Bonjour,

J'ai souvent de grands projets en VBA, mais malheureusement trop peu de pratique pour m'y remettre sereinement lorsque l'idée me prends

Bon rien de très compliqué
Je scrute un tableau pour y retrouver une phrase ou seul les premier termes m’intéressent.
sous cette phrase il y a un nombre variable de paramètres que je voudrais ranger dans un tableau.

du coup, une fois que j'en ai trouvé une, je regarde en dessous ou ce trouve le terme m’annonçant la fin des paramètres ici "STRUCT_END"

le tableau apparait sous la forme suivante
STRUCT_BEGIN
DBi_Compteurs
Volumes_UFO1_FIT_7001
Volumes_UFO1_FIT_7101
Volumes_UFO1_FIT_8001
STRUCT_END
STRUCT_BEGIN
DBi_Moteurs
UFO1_PD_5101
UFO1_PD_5102
UFO1_PD_5103
UFO1_PC_5001
UFO1_PC_6101
STRUCT_END
STRUCT_BEGIN
BH_FIT_6202
Val_4mA
Val_20mA
Val_Forc
Val
Etat_MAE
BP_Forc
Def_Voie
STRUCT_END

j'ai écrit ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 'On scrute le CSV
    For Each B In Range("A1:A" & Nb_ligneB)
 
      'On cherche les termes commençant par "DBi"
        If Left(B.Value, 3) = "DBi" Then
 
                'On relève la valeur
           DBi = Range("A" & B.Row).Value
           UDT = Range("B" & B.Row).Value
 
 'On cherche Struct_End en dessous
    For Each C In Range("A & B.Row:A" & Nb_ligneB)
    If Range("A" & C.Row).Value = "STRUCT_END" Then
     C.Row = STRUCT_END_Row
 
    Next
        End If
 
       Next
En écrivant ceci, j'ai un défaut de compilation "Next sans For"....
Le problème vient probablement d'ailleur vu que Next et For sont bien présent

Peut-être ici?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 For Each C In Range("A & B.Row:A" & Nb_ligneB)
Merci d'avance pour votre aide

Valery