Bonjour,
Je viens solliciter votre aide.
J'ai l'erreur 91 "variable objet ou variable de bloc With non définie"
Voici mon code:
Sub Merge_cells()
Dim i As Integer
Dim Cells As Range
Dim Selection As Range
Dim A As Integer
Dim B As Integer
For i = 4 To 10 Step 1
A = Cells(6, i).Value
B = Cells(6, i + 1).Value
If A = B Then
Range(Cells(6, i), Cells(6, i + 1)).Select
Selection.MergeCells = True
End If
i = i + 1
Next
End Sub
Merci d'avance
Je viens solliciter votre aide.
J'ai l'erreur 91 "variable objet ou variable de bloc With non définie"
Voici mon code:
Sub Merge_cells()
Dim i As Integer
Dim Cells As Range
Dim Selection As Range
Dim A As Integer
Dim B As Integer
For i = 4 To 10 Step 1
A = Cells(6, i).Value
B = Cells(6, i + 1).Value
If A = B Then
Range(Cells(6, i), Cells(6, i + 1)).Select
Selection.MergeCells = True
End If
i = i + 1
Next
End Sub
Merci d'avance