Microsoft 365 VBA comment selectionner une colonne entiere avec des vides basée sur une autre pleine?

[celiam]

bonjour,
j'ai un soucis avec ma macro, je souhaite selectionner une colonne jusqu'à la derniere donnée en utilisant :
Range("B2", Range("B2").End(xlDown)).Select. Mais cette colonne B a des cellules vides ce qui fait que la sectionner des données s'arrete à la premiere cellule vide.
je souhaiterais donc selectionner la colonne B basée sur la A qui n'a pas de cellule vide. Comment faire ?
j'ai essayé ça Range("B2", Range("A2").End(xlDown)).Select. mais cela ne fonctionne pas comme je le souhaite.
merci d'avance pour votre aide

 

[mapomme]

Bonjour @celiam,
Range("B2", Range("A2").End(xlDown).OFFSET(,1))

 

[celiam]

merci mapomme pour ta réponse rapide, peux tu me dire si offset c'est lié à la position de la colonne B par rapport à A? par exemple si je dois selectionner C, je ferai:
Range("C2", Range("A2").End(xlDown).OFFSET(,2))?
merci

 

[mapomme]

Re,

Oui.

Offset(i,j) fait référence à un "déplacement" de i lignes et j colonnes (i et/ou j peuvent être négatifs)

 

[Efgé]

Bonjour @celiam , Salut @mapomme
Sans Offset

Range("B2:B" & Cells(Rows.Count, 1).End(3).Row)

Offset(i,j) fait référence à un "déplacement" de i lignes et j colonnes (i et/ou peuvent être négatifs)

Sauf en colonne A par exemple.
Cordialement

 

[celiam]

merci à vous deux
et j'ai une autre question car j'ai en fait beaucoup de colonnes à copier, j'ai fait cela:
Sheets("3YP").Select
Range("A1").Select
Selection.End(xlDown).Select
DernLigne3YP = Range("A" & Rows.Count).End(xlUp).Row

je voudrais utiliser la variable DernLigne3YP pour l'utiliser au lieu de A et donc de offset:
et j'ai essayé de faire ça mais ça ne fonctionne pas:
Range("AS2", Range("AS2", DernLigne3YP)).Select

 

[celiam]

Bonjour @celiam , Salut @mapomme
Sans Offset

Range("B2:B" & Cells(Rows.Count, 1).End(3).Row)

Sauf en colonne A par exemple.
Cordialement

merci et à quoi correspond le 1 et le 3 dans ta formule?
je viens d'essayer mais ça ne fonctionne pas 🙃

 

[Efgé]

Re
Pour ma proposition

Range("B2:B" & Cells(Rows.Count, 1).End(3).Row)

Le 1 pour la première colonne, le 3 pour XlUp
Donc pour mettre la dernière ligne dans une variable

DernLigne3YP = Sheets("3YP").Range("A" & Rows.Count).End(xlUp).Row

Puis pour l'utilisation dans le range utile:

Sheets("3YP").Range("B2:B" & DernLigne3YP)

Les select et activate sont rarement nécessaires...

Cordialement

 

[mapomme]

Bonjour @Efgé 🙂

Sauf en colonne A par exemple.

Pourquoi la colonne A spécifiquement ? 😉

Tout déplacement à droite ou à gauche aboutissant hors des limites de la feuille doit provoquer une erreur, non ?

 

[Efgé]

Re

Tout déplacement à droite ou à gauche aboutissant hors des limites de la feuille doit provoquer une erreur, non ?

Justement, je disais ça pour éviter l'erreur 🤣
Cordialement