OVH Cloud OVH Cloud

Ajout de données (les une derrières les autres impossible)

3 réponses
Avatar
Jacques
Salut a toutes et tous

Voila dans ce fichier je n'arrive pas a jouter des données les unes
derrières les autre.
Cela écrase la première ligne.

http://cjoint.com/?fujww5nHJm

Pourriez vous me dire ce qu'il ne va pas?

Merci d'avance, Jacques

3 réponses

Avatar
papou
Bonjour
DerniereLigne = Feuil7.Range("B65536").End(xlUp).Row + 1

Cordialement
Pascal

"Jacques" a écrit dans le message de news:
446ec3d0$0$6647$
Salut a toutes et tous

Voila dans ce fichier je n'arrive pas a jouter des données les unes
derrières les autre.
Cela écrase la première ligne.

http://cjoint.com/?fujww5nHJm

Pourriez vous me dire ce qu'il ne va pas?

Merci d'avance, Jacques



Avatar
JLuc
*Bonjour Jacques*,
remplace :
DerniereLigne = Feuil7.Range("B6").End(xlUp).Row + 1
par :
DerniereLigne = Feuil7.Range("B" & Rows.Count).End(xlUp).Row + 1


Salut a toutes et tous

Voila dans ce fichier je n'arrive pas a jouter des données les unes derrières
les autre.
Cela écrase la première ligne.

http://cjoint.com/?fujww5nHJm

Pourriez vous me dire ce qu'il ne va pas?

Merci d'avance, Jacques


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
Jacques
Papou, JLuc, le forum

Merci a vous deux, Jacques
"JLuc" a écrit dans le message de news:

*Bonjour Jacques*,
remplace :
DerniereLigne = Feuil7.Range("B6").End(xlUp).Row + 1
par :
DerniereLigne = Feuil7.Range("B" & Rows.Count).End(xlUp).Row + 1


Salut a toutes et tous

Voila dans ce fichier je n'arrive pas a jouter des données les unes
derrières les autre.
Cela écrase la première ligne.

http://cjoint.com/?fujww5nHJm

Pourriez vous me dire ce qu'il ne va pas?

Merci d'avance, Jacques


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O