colonne de référence

PascalXLD

XLDnaute Barbatruc

Modérateur

• 6 Janvier 2009

• #2

Re : colonne de référence

Bonjour

modifies

Range("o" & i)

par

cells(i, col_ref)

 

Vote positif 0 Vote négatif

P

phileasdav

XLDnaute Junior

• 6 Janvier 2009

• #3

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 6 Janvier 2009

• #4

Re : colonne de référence

Re

tu as quoi dans B2
un numero ou une lettre ?

 

Vote positif 0 Vote négatif

P

phileasdav

XLDnaute Junior

• 6 Janvier 2009

• #5

Re : colonne de référence

une lettre

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 6 Janvier 2009

• #6

Re : colonne de référence

RE

dans ce cas-là c'est

Range(col_ref & i)

 

Vote positif 0 Vote négatif

P

phileasdav

XLDnaute Junior

• 6 Janvier 2009

• #7

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 6 Janvier 2009

• #8

Re : colonne de référence

bonjour

modifies

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

en

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

 

Vote positif 0 Vote négatif

P

phileasdav

XLDnaute Junior

• 6 Janvier 2009

• #9

Re : colonne de référence

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

 

Vote positif 0 Vote négatif