Dernière ligne

Le
rthompson
Bonjour à toutes et tous

Pourquoi ma macro coince-t-elle sur cette ligne


Range("A1").End(xlDown).Offset(1, 0).Select

Tout ce que je lui demande est de trouver la dernière ligne vide
et de passer à la suivante

Une idée???????


Merci et à bientôt


Rex
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JPMonnier
Le #17677011
Bonjour,
essaie ceci
If Range("A1").End(xlDown) = Range("a65535") Then
Range("a65535").End(xlUp).Offset(1, 0).Select
Else
Range("A1").End(xlDown).Offset(1, 0).Select
End If

--
Cordialement

"rthompson" news:%
Bonjour à toutes et tous

Pourquoi ma macro coince-t-elle sur cette ligne


Range("A1").End(xlDown).Offset(1, 0).Select

Tout ce que je lui demande est de trouver la dernière ligne vide
et de passer à la suivante

Une idée???????


Merci et à bientôt


Rex





stéphane
Le #17677001
Bonjour,

normalement cela doit fonctionner, sauf si la colonne A est vide !

tu peux essayer

Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0).Select


Stéphane

"rthompson" news: %
Bonjour à toutes et tous

Pourquoi ma macro coince-t-elle sur cette ligne


Range("A1").End(xlDown).Offset(1, 0).Select

Tout ce que je lui demande est de trouver la dernière ligne vide
et de passer à la suivante

Une idée???????


Merci et à bientôt


Rex





rthompson
Le #17677221
Bonjour et merci

C'est impeccable

Merci beaucoup

Mais pourquoi??

Si tu as le temps une petite explication serait le bienvenu

Et en même temps si tu as une réponse pour le message de mémoire
n'hésite pas

A bientôt

Rex



"JPMonnier"
Bonjour,
essaie ceci
If Range("A1").End(xlDown) = Range("a65535") Then
Range("a65535").End(xlUp).Offset(1, 0).Select
Else
Range("A1").End(xlDown).Offset(1, 0).Select
End If

--
Cordialement

"rthompson" news:%
Bonjour à toutes et tous

Pourquoi ma macro coince-t-elle sur cette ligne


Range("A1").End(xlDown).Offset(1, 0).Select

Tout ce que je lui demande est de trouver la dernière ligne vide
et de passer à la suivante

Une idée???????


Merci et à bientôt


Rex








JPMonnier
Le #17677211
S1 A1 n'a pas de données en dessous, la proc renvoyant
en A65535 de peut pas appliquer Offset(1,0)
qui correspondrait à A65536 hors du tableau
Cordialement
"rthompson" écrit dans le message de news:
Bonjour et merci

C'est impeccable

Merci beaucoup

Mais pourquoi??

Si tu as le temps une petite explication serait le bienvenu

Et en même temps si tu as une réponse pour le message de mémoire
n'hésite pas

A bientôt

Rex



"JPMonnier"
Bonjour,
essaie ceci
If Range("A1").End(xlDown) = Range("a65535") Then
Range("a65535").End(xlUp).Offset(1, 0).Select
Else
Range("A1").End(xlDown).Offset(1, 0).Select
End If

--
Cordialement

"rthompson" news:%
Bonjour à toutes et tous

Pourquoi ma macro coince-t-elle sur cette ligne


Range("A1").End(xlDown).Offset(1, 0).Select

Tout ce que je lui demande est de trouver la dernière ligne vide
et de passer à la suivante

Une idée???????


Merci et à bientôt


Rex












rthompson
Le #17677681
Merci à toi mon cher


Il faut toujours prévoir l'imprévisible

A bientôt

Rex



"stéphane" ge92rf$iad$
Bonjour,

normalement cela doit fonctionner, sauf si la colonne A est vide !

tu peux essayer

Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0).Select


Stéphane

"rthompson" news: %
Bonjour à toutes et tous

Pourquoi ma macro coince-t-elle sur cette ligne


Range("A1").End(xlDown).Offset(1, 0).Select

Tout ce que je lui demande est de trouver la dernière ligne vide
et de passer à la suivante

Une idée???????


Merci et à bientôt


Rex









rthompson
Le #17677671
Bonjour et merci monsieur le professeur

C'est logique, mais il fallait y penser

Merci à toi et à bientôt

Rex



"JPMonnier" %
S1 A1 n'a pas de données en dessous, la proc renvoyant
en A65535 de peut pas appliquer Offset(1,0)
qui correspondrait à A65536 hors du tableau
Cordialement
"rthompson" écrit dans le message de news:
Bonjour et merci

C'est impeccable

Merci beaucoup

Mais pourquoi??

Si tu as le temps une petite explication serait le bienvenu

Et en même temps si tu as une réponse pour le message de mémoire
n'hésite pas

A bientôt

Rex



"JPMonnier"
Bonjour,
essaie ceci
If Range("A1").End(xlDown) = Range("a65535") Then
Range("a65535").End(xlUp).Offset(1, 0).Select
Else
Range("A1").End(xlDown).Offset(1, 0).Select
End If

--
Cordialement

"rthompson" de news:%
Bonjour à toutes et tous

Pourquoi ma macro coince-t-elle sur cette ligne


Range("A1").End(xlDown).Offset(1, 0).Select

Tout ce que je lui demande est de trouver la dernière ligne vide
et de passer à la suivante

Une idée???????


Merci et à bientôt


Rex















Modeste
Le #17678161
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :

C'est logique, mais il fallait y penser



élémentaire!!! qu'il disait l'autre ;o)))

S1 A1 n'a pas de données en dessous, la proc renvoyant
en A65535 de peut pas appliquer Offset(1,0)
qui correspondrait à A65536 hors du tableau





"When you have eliminated the impossible, whatever remains, however improbable, must be the truth."

--
@+
;o)))
rthompson
Le #17678661
;-))))))


"Modeste" On$
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :

C'est logique, mais il fallait y penser



élémentaire!!! qu'il disait l'autre ;o)))

S1 A1 n'a pas de données en dessous, la proc renvoyant
en A65535 de peut pas appliquer Offset(1,0)
qui correspondrait à A65536 hors du tableau





"When you have eliminated the impossible, whatever remains, however
improbable, must be the truth."

--
@+
;o)))
Publicité
Poster une réponse
Anonyme