Bonjour,

Voici mon "problème" : j'aimerai stocker les adresses des cellules qui contiennent uniquement la chaine "Identifiant".

Actuellement, j'ai une boucle qui me permet de repérer les cellules, en ligne 1, qui respectent cette règle mais je ne sais pas comment me débrouiller pour stocker les résultats dans une variable qui va me permettre ensuite de "Concatener" l'ensemble de ces cellules topées.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub repere()
Dim DC As Integer
 
DC = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For I = 1 To DC
    If Cells(1, I) = "Identifiant" Then
    MsgBox Cells(1, I).Address
    End If
Next I
End Sub

Par avance merci de votre aide, et bon week-end en avance !