Boucle fusion vba excel Fermé

Question

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!

Configuration: Windows XP

michel_m · Answer

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