[Résolu] Selection de colonne jusqu'à la dernière ligne

[Hiraishin]

Bonjour le forum,

Je viens à vous car je suis bloqué pour une chose qui est peut être assez simple. J'ai testé de nombreuses choses mais rien ne fonctionne.

J'aimerais sélectionner plusieurs colonnes, par exemple la colonne A, C et E jusqu'à la dernière ligne de chaque colonne (a savoir que le nombre de ligne va changer régulièrement). Heureusement, pour moins de complications, le nombre de ligne pour toutes les colonnes est toujours égal.

Cela ressemble fortement à la commande ctrl, la seule différence, c'est que je ne veux pas une plage "dur" et bien entendu je veux toutes les lignes.

Voici le code que j'ai fais mais qui ne fonctionne pas :

Sub test()

    DernièreLigne = Range("A65536").End(xlUp).Row
 
    Columns("A1" & DernièreLigne, "C1" & DernièreLigne, "E1" & DernièreLigne).Select
    

End Sub

Je rajoute également le fichier qui peut servir d'exemple.

Si bien sur je ne suis pas bien fait comprendre, faites le moi savoir.


Cordialement,

Hiraishin

 

[Papou-net]

Re : Selection de colonne jusqu'à la dernière ligne

Bonjour Hiraishin,

Voici comment corriger ton code :

Sub Test()
With Sheets("Sheet1")
  DernièreLigne = .Range("A65536").End(xlUp).Row
  Application.Union(.Range("A1:A" & DernièreLigne), .Range("C1:C" & DernièreLigne), .Range("E1:E" & DernièreLigne)).Select
End With
End Sub

Cordialement.

 

[Hiraishin]

Re : Selection de colonne jusqu'à la dernière ligne

Bonjour Papou-net,

Merci beaucoup pour ton aide, ça fonctionne parfaitement

Cordialement.