Bonjour,


Je n'arrive pas à écrire la dernière ligne de mon code.

Mon code teste que le tableau contient bien les noms d'entêtes de la variable Test_Entete à l'aide de la fonction find sur la première ligne.
Une fois mon entête trouvée je voudrais appeler la valeur de ma deuxième variable NomColVariable soit NumColVarToto1 pour qu'elle devienne une troisème variable dans ma macro.
Avec l'aide du bon code que la valeur NumColVarToto1soit égal à activecell.column ou se trouve le titre de mon en-tête de colonne

Mais malheureusement je cale sur la syntaxe ou la façon de faire.

Merci de votre aide

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
21
22
23
Test_Entete = Array("toto1", "toto2", "toto3")
NomColVariable = Array("NumColVarToto1", "NumColVarToto2", "NumColVarToto3")
'Boucle en sélectionnant la 1ère ligne on recch si les cel contiennent DATE, FOURNISSEUR et SOLDE
For a = 0 To UBound(Test_Entete)
 
'Permet de vérifier que le find fctionne
Set Resultat = Range(Cells(1, 1), Cells(1, ylastcolumn)).Find(What:="*" & Test_Entete(a) & "*", LookIn:=xlValues, LookAt:=xlWhole)
 
If Resultat Is Nothing Then
        MsgBox ("Il n'y a pas sur la 1ere ligne une en-tete de colonne contenant le mot " & Test_Entete(a) & vbCrLf & _
                "Merci de le rajouter dans la feuille de départ et de relancer la macro")
             End
 
                Else:
 
        Resultat.Activate
 
 
Je cale ici----> 'valeur NomColVariable(a) = ActiveCell.Column
 
End If
 
Next a