macro ou formule pour afficher l'adresse du contenu d'une cellule

[WITER]

bonjour à tous,
je recherche une macro ou une formule pour afficher dans la colonne B de ma feuille 1 la liste des cellules de la meme feuille, a partir de la colonne C, qui contiennent le meme texte que la cellule A1

merci pour votre aide

 

[Lord Nelson]

Re : macro ou formule pour afficher l'adresse du contenu d'une cellule

Salut,

Voici une macro qui devrait convenir :

Sub Macro1()
Dim CL As Range
Dim Ligne As Long
Range("C1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
For Each CL In Selection
If CL.Text = Range("A1").Text Then
Ligne = Ligne + 1
'Avec Dollars
Range("B" & Ligne) = CL.Address
'Sans Dollars
'Range("B" & Ligne) = Replace(CL.Address, "$", "")
End If
Next
Range("A1").Select
End Sub


A+
Horatio

 

[WITER]

Re : macro ou formule pour afficher l'adresse du contenu d'une cellule

merci Lord Nelson pour ta macro c exactement ce que je cherche.
Parcontre est t'il possible d'ajouter un option a la macro, afin quelle colorie en rouge dans la feuille les cellules qui contiennent le meme texte que la cellule A1

merci encore

 

[Lord Nelson]

Re : macro ou formule pour afficher l'adresse du contenu d'une cellule

Oui, pourquoi pas :

Sub Macro1()
Dim CL As Range
Dim Ligne As Long
Range("C1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
For Each CL In Selection
If CL.Text = Range("A1").Text Then
Ligne = Ligne + 1
CL.Interior.Color = vbRed
'Avec Dollars
'Range("B" & Ligne) = CL.Address
'Sans Dollars
Range("B" & Ligne) = Replace(CL.Address, "$", "")
Else
CL.Interior.ColorIndex = 0
End If
Next
Range("A1").Select
End Sub

A+
Horatio

 

[WITER]

Re : macro ou formule pour afficher l'adresse du contenu d'une cellule

Merci encore pour ton aide, c'est parfait