phileasdav
XLDnaute Junior
Bonjour et bonne année a tous;
je souhaite remplacer la colonne "o"par la colonne de référence(col_ref)
voici le code :
col_ref = ThisWorkbook.Worksheets("calcul").Range("b2").Value
If Application.WorksheetFunction.CountIf(ThisWorkbook.Worksheets("base1").Range("o1
65536"), _
.Range("o" & i).Value) > 0 Then
Ligne1 = Application.WorksheetFunction.Match(.Range("o" & i).Value, _
ThisWorkbook.Worksheets("base1").Range("o1
65536"), 0)
merci d'avance
a++
je souhaite remplacer la colonne "o"par la colonne de référence(col_ref)
voici le code :
col_ref = ThisWorkbook.Worksheets("calcul").Range("b2").Value
If Application.WorksheetFunction.CountIf(ThisWorkbook.Worksheets("base1").Range("o1
.Range("o" & i).Value) > 0 Then
Ligne1 = Application.WorksheetFunction.Match(.Range("o" & i).Value, _
ThisWorkbook.Worksheets("base1").Range("o1
merci d'avance
a++