La première cell vide horizontale

bonjour,

MsgBox Range("IV1").End(xlToLeft).Column

si c'est sur la ligne1

A+

Bonsoir,
j'ai cette procédure qui me permet d'avoir la première cellule non vide de
la col A
Comment faire afin d'avoir la même chose mais de manière horizontale ?
Merci beaucoup
Vincent

Sub Lader()
Range("A65536").End(xlUp)(2).Select
End Sub

Merci beaucoup et bonne soirée
Vincent
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
425c0a62$0$1250$8fcfb975@news.wanadoo.fr...

bonjour,

MsgBox Range("IV1").End(xlToLeft).Column

si c'est sur la ligne1

A+

Bonsoir,
j'ai cette procédure qui me permet d'avoir la première cellule non vide
de la col A
Comment faire afin d'avoir la même chose mais de manière horizontale ?
Merci beaucoup
Vincent

Sub Lader()
Range("A65536").End(xlUp)(2).Select
End Sub

Euh ...
Désolé après test cela ne donne pas le résultat souhaité :
Je ne souhaite pas de msgbox, mais seulement que la cellule se positionne
après la cellule rempli à droite
Merci
Vincent


"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
425c0a62$0$1250$8fcfb975@news.wanadoo.fr...

bonjour,

MsgBox Range("IV1").End(xlToLeft).Column

si c'est sur la ligne1

A+

Bonsoir,
j'ai cette procédure qui me permet d'avoir la première cellule non vide
de la col A
Comment faire afin d'avoir la même chose mais de manière horizontale ?
Merci beaucoup
Vincent

Sub Lader()
Range("A65536").End(xlUp)(2).Select
End Sub

Bonsour® anonymousA ,
;o)))
un léger aparté sémantique !!!!
si je ne m'abuse ces formules permettent en fait de trouver la position la
plus élévée d'un cellule dans la plage cherchée
et non pas la premiere cellule vide de cette plage...surtout si cette plage
contient des cellules vides !!!
essayez les différentes approches :
;o)))
Range("IV1").End(xlToLeft).Select
Range("A1").End(xlToRight).Select
Range("A65536").End(xlUp).Select
Range("A1").End(xlDown).Select

@+




dans
wrote:

bonjour,

MsgBox Range("IV1").End(xlToLeft).Column

si c'est sur la ligne1

A+

Bonsoir,
j'ai cette procédure qui me permet d'avoir la première cellule non
vide de la col A
Comment faire afin d'avoir la même chose mais de manière horizontale
? Merci beaucoup
Vincent

Sub Lader()
Range("A65536").End(xlUp)(2).Select
End Sub

Range("IV1").End(xlToLeft).Offset(0, 1).select

se positionnera après la dernière cellule remplie dans la ligne 1.

A+

Euh ...
Désolé après test cela ne donne pas le résultat souhaité :
Je ne souhaite pas de msgbox, mais seulement que la cellule se positionne
après la cellule rempli à droite
Merci
Vincent


"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
425c0a62$0$1250$8fcfb975@news.wanadoo.fr...

bonjour,

MsgBox Range("IV1").End(xlToLeft).Column

si c'est sur la ligne1

A+

Bonsoir,
j'ai cette procédure qui me permet d'avoir la première cellule non vide
de la col A
Comment faire afin d'avoir la même chose mais de manière horizontale ?
Merci beaucoup
Vincent

Sub Lader()
Range("A65536").End(xlUp)(2).Select
End Sub

bonjour GD

je te remercie de toutes tes attentions mais je pense ne plus avoir
encore besoin qu'on m'explique les subtilités de
range("ganaga").end(xlgnagna).gnagna .Je crois bien que ca doit même
faire partie des premières instructions que j'ai étudiées de près.
J'ai répondu au correspondant certes pas tout à fait à la question
exacte posée mais je me doutais qu'il s'agissait de la dernière cellule
non vide en partant de la droite, ce que d'ailleurs son dernier message
laisse entendre.

A+

Bonsour® anonymousA ,
;o)))
un léger aparté sémantique !!!!
si je ne m'abuse ces formules permettent en fait de trouver la position la
plus élévée d'un cellule dans la plage cherchée
et non pas la premiere cellule vide de cette plage...surtout si cette plage
contient des cellules vides !!!
essayez les différentes approches :
;o)))
Range("IV1").End(xlToLeft).Select
Range("A1").End(xlToRight).Select
Range("A65536").End(xlUp).Select
Range("A1").End(xlDown).Select

@+




dans
wrote:

bonjour,

MsgBox Range("IV1").End(xlToLeft).Column

si c'est sur la ligne1

A+

Bonsoir,
j'ai cette procédure qui me permet d'avoir la première cellule non
vide de la col A
Comment faire afin d'avoir la même chose mais de manière horizontale
? Merci beaucoup
Vincent

Sub Lader()
Range("A65536").End(xlUp)(2).Select
End Sub

Bonsour® anonymousA
;o)))
eu égards tes nombreuses contributions pertinentes :
titre du message : première cellule vide
dans le message : première cellule non vide

ma remarque ;o)))
ne se situait que sur le plan sémantique !!!
notament pour souligner le fait qu'il puisse y avoir des cellules vides
intercalées parmi les cellules renseignées de la plage considérée.
tes doutes ont en effet été confirmés, ce qui n'était probabilistement pas
évident...
;o)))
comme je le signalais récement à Flo, toujours garder à l'esprit les Lois de
Murphy
;o)))
@+

bonjour GD

je te remercie de toutes tes attentions mais je pense ne plus avoir
encore besoin qu'on m'explique les subtilités de
range("ganaga").end(xlgnagna).gnagna .Je crois bien que ca doit même
faire partie des premières instructions que j'ai étudiées de près.
J'ai répondu au correspondant certes pas tout à fait à la question
exacte posée mais je me doutais qu'il s'agissait de la dernière
cellule non vide en partant de la droite, ce que d'ailleurs son
dernier message laisse entendre.

A+

Bonsour® anonymousA ,
;o)))
un léger aparté sémantique !!!!
si je ne m'abuse ces formules permettent en fait de trouver la
position la plus élévée d'un cellule dans la plage cherchée
et non pas la premiere cellule vide de cette plage...surtout si
cette plage contient des cellules vides !!!
essayez les différentes approches :
;o)))
Range("IV1").End(xlToLeft).Select
Range("A1").End(xlToRight).Select
Range("A65536").End(xlUp).Select
Range("A1").End(xlDown).Select

@+




dans
wrote:

bonjour,

MsgBox Range("IV1").End(xlToLeft).Column

si c'est sur la ligne1

A+

Bonsoir,
j'ai cette procédure qui me permet d'avoir la première cellule non
vide de la col A
Comment faire afin d'avoir la même chose mais de manière
horizontale ? Merci beaucoup
Vincent

Sub Lader()
Range("A65536").End(xlUp)(2).Select
End Sub