ecriture pour changer un critere

PHILIP · 3 Décembre 2009

Bonjour à tous,

débutant en vba , j'ai besoin d'exemple pour avancer J'ai une macro qui recherche des criteres dans la colonne A voici le code

Code:

LastLig = wb2.Sheets("LAG_Bestand").Range("A65536").End(xlUp).Row
    Set plage = wb2.Sheets("LAG_Bestand").Range("A7:A" & LastLig)

Je sais c'est vraiment bête mais je voudrais adapter cette macro en prenant la ligne 1 en compte et pas la colonne A puisque la recherche du critere en question dois se faire de C1 à AG1 comment dois je l'ecrire alors car je ne peux écrire Range("1 65536").et (A1:1& LastLig ) Normalement la ligne c'est Row Non ?
Merci pour votre aide

Robert · 3 Décembre 2009

Re : ecriture pour changer un critere

Bonjour Phillip, bonjour le forum,

Si j'ai bien compris... :

Code:

LastLig = wb2.Sheets("LAG_Bestand").Range("C65536").End(xlUp).Row
Set plage = wb2.Sheets("LAG_Bestand").Range("C1:AG" & LastLig)

La plage va être de C1 à AGxxx où xxx est la dernière ligné éditée dans la colone C.

job75 · 3 Décembre 2009

Re : ecriture pour changer un critere

Bonjour PHILIP, salut Robert 🙂

PHILIP à dit:
(...) je voudrais adapter cette macro en prenant la ligne 1 en compte et pas la colonne A

Alors peut-être :

Code:

LastCol = wb2.Sheets("LAG_Bestand").Range("IV1").End(xlToLeft).Column
Set plage = wb2.Sheets("LAG_Bestand").Range("C1").Resize(, LastCol - 2)

Edit : mais pourquoi pas ça simplement (c'est vous qui savez...) :

Code:

Set plage = wb2.Sheets("LAG_Bestand").Range("C1:AG1")

A+

ecriture pour changer un critere

PHILIP

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

ecriture pour changer un critere

PHILIP

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency