Balayer différentes colonnes de plusieurs feuilles d'un projet

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

Bonjour,

Un essai :

' 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)

        ' ********
        For C = 8 To 64 Step 4
             der = secteur.Cells(Cells.Rows.Count, C).End(xlUp).Row
        ' **********

                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

non testé...

A+

Bonjour Algoplus,

merci, ce petit bout de code rectifié fonctionne parfaitement.

De plus c'était très simple et une fois de plus je cherchais midi à quatorze heures.

Bonne soirée

Rechercher des sujets similaires à "balayer differentes colonnes feuilles projet"