ecriture pour changer un critere

[PHILIP]

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

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]

Re : ecriture pour changer un critere

Bonjour Phillip, bonjour le forum,

Si j'ai bien compris... :

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]

Re : ecriture pour changer un critere

Bonjour PHILIP, salut Robert 🙂

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

Alors peut-être :

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...) :

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

A+