Bonjour,

Ce bout de code est généré par une macro dans un fichier excel . La zone active se trouve dans une feuille où l'on vient d'importer des données d'un fichier texte.
Le but étant de selectionner une certaine zone d'une colonne en fonction du champ d'une autre colonne.

colonne G = TYPE1
TYPE2
TYPE3
......
TYPE5 (max)

selection dans la colonne A des codes de TYPE1 renvoyé accessible par la combobox.

          
    Dim CurCRASht As Worksheet     
    Dim CurCRAWkb As Workbook       
    Dim aCL As Range
    Dim pTexte As String
    Dim i As Integer

    Set CurCRASht = CurCRAWkb.Sheets("Description")

    CurCRASht.Select
    CurCRASht.Range("G19:G24").Select

i = 1

'probleme de syntaxe pour ce For Each'
For Each CurCRASht.Range("G19:G24") In CurCRASht.Range("G19:G24")

    If CurCRASht.Range.value <> "" Then

        pTexte = CurCRASht.Range.value

        Set aCL = CurCRASht.Cells.Find(What:=pTexte, LookIn:=xlValues, LookAt:=xlPart, _
               SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

        CurCRASht.Range("A19:A3000").Select
        CurCRASht.Range("A3000").Activate
        CurCRAWkb.Names.Add Name:="CdPr" & i & "", RefersToR1C1:="=Description!" & aCL.Rows & "C1:" & aCL.Rows - 1 & "C1"

    i = i + 1 
    End If

Next

Configuration: Windows XP
Firefox 3.0.11