M
myriam
Guest
je voudrais selectionner les plages de cellules coloriées sur 1 feuille en VBA.
Merci d'avance.
Merci d'avance.
Sub Bouton1_QuandClic()
Dim c As Range
Dim texte As String, texte1 As String
For Each c In Range('a1:n30') '<=====a adapter
If c.Interior.ColorIndex = 3 Then
texte = texte & c.Address(0, 0) & ','
texte1 = Left(texte, Len(texte) - 1)
End If
Next c
Range(texte1).Select
End Sub