zac.dubeau
XLDnaute Nouveau
Bonjour,
J'ai fais une macro pour fusionner des cellules d'une même couleur. La macro ce lance bien mais rien ne ce passe.
J'arrive pas à trouver ce qui manque.
Sub test()
Dim DernLigne As Long
Dim i As Integer
'Recherche la dernière cellule dans la colonne contenant une valeur
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To DernLigne
'Si la cellule ne contient pas la couleur saumon alors passe à la prochaine cellule
If Cells.Interior.Color = 15531262 Then
'Fusionne la ligne de A à S contenant la couleur saumon
Range("A" & i & ":S" & i).Select
Selection.Merge
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
End If
Next i
End Sub
J'ai fais une macro pour fusionner des cellules d'une même couleur. La macro ce lance bien mais rien ne ce passe.
J'arrive pas à trouver ce qui manque.
Sub test()
Dim DernLigne As Long
Dim i As Integer
'Recherche la dernière cellule dans la colonne contenant une valeur
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To DernLigne
'Si la cellule ne contient pas la couleur saumon alors passe à la prochaine cellule
If Cells.Interior.Color = 15531262 Then
'Fusionne la ligne de A à S contenant la couleur saumon
Range("A" & i & ":S" & i).Select
Selection.Merge
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
End If
Next i
End Sub