OVH Cloud OVH Cloud

Fusion céllule en vba

1 réponse
Avatar
Pierre
Bonjour,

Je gère la mise en forme d'un classeur excel depuis une appli access. Donc
la mise en forme de mon classeur excel se fait via un code en vba depuis
access.

Lorsque je fusionne une plage de céllule, j'ai un message de Excel :
"La fusion contient plusieurs valeurs. La fusion des cellules ne conservera
que les données de la cellule supérieur gauche." OK - Annuler

J'aimerais bien supprimer ce message en y répondant par OK mais je n'y
arrive pas. Existe t il dans excel, un paramètre qui répond OK a la fusion de
céllule ?


Voici le code qui permet la fusion de céllule :

With xlSheet.Range("D" & vtemp & ":M" & vtemp)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
.Merge
End With

Merci d'avance

1 réponse

Avatar
isabelle
bonjour Pierre,

ajoute cette commande en début de macro
Application.DisplayAlerts = False

et celle ci en fin de macro
Application.DisplayAlerts = True

isabelle


Bonjour,

Je gère la mise en forme d'un classeur excel depuis une appli access. Donc
la mise en forme de mon classeur excel se fait via un code en vba depuis
access.

Lorsque je fusionne une plage de céllule, j'ai un message de Excel :
"La fusion contient plusieurs valeurs. La fusion des cellules ne conservera
que les données de la cellule supérieur gauche." OK - Annuler

J'aimerais bien supprimer ce message en y répondant par OK mais je n'y
arrive pas. Existe t il dans excel, un paramètre qui répond OK a la fusion de
céllule ?


Voici le code qui permet la fusion de céllule :

With xlSheet.Range("D" & vtemp & ":M" & vtemp)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
.Merge
End With

Merci d'avance