Identifier des variables Résolu

Question

Bonjour / bonsoir,

J'ai la macro ci-dessous avec laquelle je recherche la cellule de couleur jaune, à la ligne sélectionnée. Cette cellule pouvant se trouver entre la colonne E et la colonne G

'Recherche de la Case coloriée
            C = 5   'Colonne 5 --> 1ère initiale
            For Each Col In Range("E" & L, "G" & L).Columns  'Plage à adapter
            For Each CI In Col.Cells
                If CI.Interior.Color = RGB(255, 255, 0) Then ' Couleur à adapter
                    Colo = Cells(L, C).Value    'Initiale colorée
                End If
            C = C + 1
            Next
            Next

Jusqu'à présent elle a fonctionné à merveille. 
Mais là, j'ai voulu la prendre pour une autre macro. Et celà bug, car il m'est demandé d'identifier les variables Col et CI. Ce qui n'est pas fait dans la macro qui fonctionne !
J'ai fait plusieurs essai avec Dim Col As String, ou As Long, Ou As DataObject
Sans succès.
Pouvez-vous me sauver. D'avance je vous remercie et vous adresse mes meilleures salutations

NHenry · Answer

As-tu essayé en As Object ou As Variant ?

cs_Le Pivert · Answer

Bonjour,

essaie ceci:

Sub test()
 Dim Col As Range, C As Range
 For Each Col In Range("C1:G20").Columns 'adapter la plage
  For Each C In Col.Cells
     If C.Interior.Color = RGB(255, 255, 0) Then ' Couleur à adapter
     MsgBox "Colonne : " & C.Column
     MsgBox "Ligne : " & C.Row
     End If
  Next
 Next
 End Sub

Identifier des variables

2 réponses

Votre réponse

Discussions similaires

Newsletters