Boucle fusion vba excel

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!

A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
0
jacky
 
A la base j'ai
Range("A64:B67").Select
mais j'aimerais mettre des variable a la place.
Et effectivement je n'ai pas besoin de tout.
0