Bonjour à tous,
Je désire "balayer" plusieurs colonnes non adjacentes des 4 feuilles de mon projet afin de retrouver un nom.
Voici le code que j'ai essayé :
' recherche du nom
For I = 65 To 68 ' boucle pour parcourir les feuilles nommées "secteurs A, B, C et D"
page = Chr$(I) ' 65=A, 66=B, 67=C, 68=D
Worksheets("Secteur " & page).Select ' sélection des pages secteurs A, B, C et D
Set secteur = Sheets("Secteur " & page)
der = secteur.Range("A65536").End(xlUp).Row ' recherche du dernier enregistrement dans les pages secteurs A, B, C et D
' ********
For C = 8 To 64 Step 4
Columns(secteur.Columns(" & Chr(C) & ")).Select
Set col = Columns(secteur.Columns(Chr(C)))
' **********
For K = 2 To der ' ' boucle pour lire les noms dans chacun des secteurs
If secteur.Cells(K & "," & C).Value = nom Then
etc .....
Next K
Next C
Next I
Je me doute que la partie de code située entre ' ***** et ' ******, doit être farfelue, mais je n'y arrive pas
Pourriez vous me donner une piste, merci et bonne journée