Probleme macro pour fusiooner les cellules

[zac.dubeau]

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

 

[Nairolf]

Re : Probleme macro pour fusiooner les cellules

Salut zac,

L'erreur vient du fait qu'il faut sélectionner la cellule qu'il faut contrôler, dans la boucle for, remplace :
'Si la cellule ne contient pas la couleur saumon alors passe à la prochaine cellule
If Cells.Interior.Color = 15531262 Then

par :
Cells(i, 1).Select
'Si la cellule ne contient pas la couleur saumon alors passe à la prochaine cellule
If Selection.Interior.Color = 15531262 Then

Nairolf
Mon blog : XL assistant

 

[zac.dubeau]

Re : Probleme macro pour fusiooner les cellules

Merci Nairolf.
ça marche nickel maintenant