Boucle fusion vba excel
jacky
-
jacky -
jacky -
Bonjour,
J'ai un probleme avec le code suivant au niveau de ma boucle mais je vois pas trop si quelqu'un pouvait m'aider :
For numligne = numligne To numligne + 4
For numcolonne = 1 To 2
Feuil5.Range(numligne, numcolonne).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.merge
Selection.Font.Bold = True
Next numcolonne
Next numligne
Merci d'avance!
J'ai un probleme avec le code suivant au niveau de ma boucle mais je vois pas trop si quelqu'un pouvait m'aider :
For numligne = numligne To numligne + 4
For numcolonne = 1 To 2
Feuil5.Range(numligne, numcolonne).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.merge
Selection.Font.Bold = True
Next numcolonne
Next numligne
Merci d'avance!
1 réponse
-
Bonjour,
Tu faciliterais la tâche de chacun si tu indiquais la ligne de plantage et le message d'erreur...
En attendant:
Feuil5.Range(numligne, numcolonne)
devient
sheets("feuil5").cells(numligne,numcolonne)
mais je ne vois pas trop le but de ta macro (merge sur 1 cellule ?)
est tu sûr d'avoir besoin de préciser tout cela ?:
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
:-x
