Définitiion d'une plage de cellules

[marmotte18]

Bonjour,

Je souhaite sélectionner la plage de cellules qui commence à A1 et qui se termine par la dernière cellule non vide de la ligne 1

J'ai mis le code suivant et cela ne fonctionne pas au niveau de la 3ème ligne :

Sub Essai()
Dim DernCelDroite As Range, Carré As Range
Set DernCelDroite = Range("A1:IV1").End(xlToLeft)
Set Carré = A1: DernCelDroite
Range(Carré).Select
End sub

Pouvez-vous m'aider ?

Merci par avance

 

[BOISGONTIER]

Re : Définitiion d'une plage de cellules

Bonjour,

Range("A1", [IV1].End(xlToLeft)).Select

JB

 

[PascalXLD]

Re : Définitiion d'une plage de cellules

Bonjour

essaies

Set DernCelDroite = Range("IV1").End(xlToLeft)

 

[marmotte18]

Re : Définitiion d'une plage de cellules

Merci BOISGONTIER,

Ton code fonctionne très bien !

 

[marmotte18]

Re : Définitiion d'une plage de cellules

Bonjour PascalXLD,

Merci de ton aide mais ton code ne fonctionne pas !

 

[PascalXLD]

Re : Définitiion d'une plage de cellules

RE

Oui je me suis rendu compte de mon erreur après 😀

 

[marmotte18]

Re : Définitiion d'une plage de cellules

PascalXLD,

Ce n'est pas grave ! Je connais ta compétence et elle n'est plus à démontrer !

C'est le genre de situation qui peut arriver à chacun, suite à une distraction malencontreuse !

A+