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!
A voir également:
- Boucle fusion vba excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Déplacer colonne excel - Guide
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
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
Range("A64:B67").Select
mais j'aimerais mettre des variable a la place.
Et effectivement je n'ai pas besoin de tout.