OVH Cloud OVH Cloud

sous programme IF THEN

4 réponses
Avatar
.
bonjour
j'ai du mal a me debarasser du probleme suivant :

dans mon programme, je fais un tri sur la colonne A.
Si l'operateur oublie de renseigner les cellules en colonne A, alors
le programme va en cellule A65536 comme c'est ecrit dessous


Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

Bien entendu lors de l'execution de la deuxieme ligne, dans le cas ou
la colonne est vide, il y a erreur car le curseur est deja en bas de
page apres l'execution de la premiere ligne.
Comment faire pour que alors le programme s'arrete et retourne
simplement en A1 de la feuille ?

J'ai pense a mettre apres la ligne numero 1 :

IF ActiveCell = A65635 THEN Range("A1").Select
Stop
Else ActiveCell.Offset(1, 0).Select et je laisse continuer le
programme.

le probleme, c'est que ca bug....

Merci d'avance
Paul

4 réponses

Avatar
Jacques93
Bonjour P. Martin,

Essaie :

Selection.End(xlDown).Select
If ActiveCell.Address = "$A$65536" Then
Range("A1").Select
Else
ActiveCell.Offset(1, 0).Select
End If



bonjour
j'ai du mal a me debarasser du probleme suivant :

dans mon programme, je fais un tri sur la colonne A.
Si l'operateur oublie de renseigner les cellules en colonne A, alors
le programme va en cellule A65536 comme c'est ecrit dessous


Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

Bien entendu lors de l'execution de la deuxieme ligne, dans le cas ou
la colonne est vide, il y a erreur car le curseur est deja en bas de
page apres l'execution de la premiere ligne.
Comment faire pour que alors le programme s'arrete et retourne
simplement en A1 de la feuille ?

J'ai pense a mettre apres la ligne numero 1 :

IF ActiveCell = A65635 THEN Range("A1").Select
Stop
Else ActiveCell.Offset(1, 0).Select et je laisse continuer le
programme.

le probleme, c'est que ca bug....

Merci d'avance
Paul




--
Cordialement,

Jacques.

Avatar
Philippe Noss
Bonjour
Sans test en partant du bas
Range("A65536").End(xlUp).Offset(1, 0).Select

http://nossphil.perso.cegetel.net/exoutils.html
Philippe NOSS
Avatar
Jacques93
Bonjour Philippe Noss,

Plus élégant effectivement :-)
mais sélectionne la cellule A2 et non A1 si la colonne est vide ;-)

non ?

Bonjour
Sans test en partant du bas
Range("A65536").End(xlUp).Offset(1, 0).Select

http://nossphil.perso.cegetel.net/exoutils.html
Philippe NOSS




--
Cordialement,

Jacques.

Avatar
.
Merci beaucoup.
Paul Martin