bonjour,
j'ai un petit problème avec mon code vba, il bloque sur une fonction recherche V avec des variables ????
Besoin d'aide ....
Ci dessous une partie de mon code :
Dim col As Integer
derlign = Range("A65000").End(xlUp).Row 'donne la dernière ligne non vide en colonne B
For i = 2 To derlign
'recherche une formule en couleur
If Cells(i, 1).Interior.ColorIndex = 28 Then
'recherche de la ligne concernée ...
ligne = Cells(i, 5).Value
If ligne = "xx" Then
nbre = 2
Else
nbre = 3
End If
'recherche la colonne de la formule dans tableau des formules
col = Sheets("Formules").Range("A1:K10").Find(Cells(i, 1), LookIn:=xlValues, lookat:=xlWhole).Column
' recherche de l'alternative dans tableau
alt = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Alternative").Range(Cells(2, col), Cells(10, (col + 2))), nbre, False)
End If
Next
Merci d'avance
j'ai un petit problème avec mon code vba, il bloque sur une fonction recherche V avec des variables ????
Besoin d'aide ....
Ci dessous une partie de mon code :
Dim col As Integer
derlign = Range("A65000").End(xlUp).Row 'donne la dernière ligne non vide en colonne B
For i = 2 To derlign
'recherche une formule en couleur
If Cells(i, 1).Interior.ColorIndex = 28 Then
'recherche de la ligne concernée ...
ligne = Cells(i, 5).Value
If ligne = "xx" Then
nbre = 2
Else
nbre = 3
End If
'recherche la colonne de la formule dans tableau des formules
col = Sheets("Formules").Range("A1:K10").Find(Cells(i, 1), LookIn:=xlValues, lookat:=xlWhole).Column
' recherche de l'alternative dans tableau
alt = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Alternative").Range(Cells(2, col), Cells(10, (col + 2))), nbre, False)
End If
Next
Merci d'avance