colonne de référence

[phileasdav]

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++

 

[PascalXLD]

Re : colonne de référence

Bonjour

modifies

Range("o" & i)

par

cells(i, col_ref)

 

[phileasdav]

Re : colonne de référence

ça marche pas ;: il me dit que b2 est vide !!!
alors que j'ai le le nom de la colonne "o" dans b2

grrrrrrrrrrrrrrr

 

[PascalXLD]

Re : colonne de référence

Re

tu as quoi dans B2
un numero ou une lettre ?

 

[phileasdav]

Re : colonne de référence

une lettre

 

[PascalXLD]

Re : colonne de référence

RE

dans ce cas-là c'est

Range(col_ref & i)

 

[phileasdav]

Re : colonne de référence

il y quelque chose qui ne fonctionne pas dans ce code !!!! mais quoi??:😕

With ThisWorkbook.Worksheets("base2")
Derligne = .Range("a65536").End(xlUp).Row
For i = 1 To Derligne
col_ref = ThisWorkbook.Worksheets("calcul").Range("b2").Value

If Application.WorksheetFunction.CountIf(ThisWorkbook.Worksheets("base1").Range("& col_ref & 1:col_ref & 65536"), _
.Range(col_ref & i).Value) > 0 Then
Ligne1 = Application.WorksheetFunction.Match(.Range(col_ref & i).Value, _
ThisWorkbook.Worksheets("base1").Range("& col_ref & 1:col_ref & 65536"), 0)
next i
End if
End with

merci encore

 

[PascalXLD]

Re : colonne de référence

bonjour

modifies

Range("& col_ref & 1:col_ref & 65536")

en

Range(col_ref & "1:" & col_ref & "65536")

 

[phileasdav]

Re : colonne de référence

super, ça marche !!
vous etes géniaux