Identifier des variables

Résolu/Fermé

PhilouCH - 18 oct. 2015 à 19:00
PhilouCH - 19 oct. 2015 à 08:22

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

A voir également:

Identifier des variables
Identifier appareil avec adresse mac - Guide
Identifier un numéro de gsm belgique - Forum Mobile
Identifier un tableau à partir d'une photo - Forum Loisirs / Divertissements
Comment savoir à qui appartient un numéro de portable ? ✓ - Forum Mobile
Identification d'un peintre d'apres tableau et signature ✓ - Forum Loisirs / Divertissements

2 réponses

Réponse 1 / 2

NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 331
18 oct. 2015 à 20:02

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

PhilouCH
19 oct. 2015 à 08:22

Merci d'avoir pris du temps pour me lire et aussi de m'avoir répondu.
Meilleures salutations

Réponse 2 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
19 oct. 2015 à 08:09

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

PhilouCH
19 oct. 2015 à 08:20

Merci,
J'ai suivi votre conseil et ca tourne.
Merci d'avoir pris le temps de me lire et de me repondre

Discussions similaires

Identifier un numéro de GSM en Belgique

Trouver le nom d'un tableau avec sa photo.

nom du propriétaire d'un numero de gsm en Belgique

trouver numero gsm belgique

Identification d'un peintre à partir d'une signature

Discussions similaires

Newsletters