A la ligne

[Tonio]

Bonjour à tous !!!!

Je voudrais inserer une inputbox qui insère les données les unes après les autres, à chaque utilisation de la macro. C'est à dire qu'a chaque utilisation de la macro, on passe à la ligne suivante.
Voila ce que j'ai fait :

Dim Name As String
Dim Dercell As Integer

range("G21").Activate

Name = InputBox("Nom du nouveau site :")

Dercell = sheets("liste des sites").range("G21").End(xlDown).Row
Dercell = Dercell + 1
range("G" & Dercell).Select

range("G" & Dercell) = Name

Je suis en dépassement de capacités (Erreur 6), et je ne vois pas de quoi cela peut provenir. Pouvez-vous m'aider?

Merci à tous

 

[Arnaud]

salut,

l'erreur viens surement du fait que avec un xlDown, la plage de cellule devient trop importante pour lui.
essaye avec un xlUp cela fonctionne très bien.

 

[Tonio]

Salut Arnaud et tous les autres !!
J'ai beau essayé mais même avec xlUp, cela ne fonctionne toujours pas, il n'y a plus de message d'erreur mais ce sont les cellules qui ne se décalent plus. A tu encore une autre petite idée?

Merci beaucoup

 

[Pascal76]

Bonjour Tonio, Arnaud le forum

Perso j'ai essayé ton code sur plus de 8000 lignes il n'y a pas de problème même si le select n'est peut-être pas obligatoire.

Pourrais-tu envoyé un morceau du fichier pour voir ?

Pascal

 

[Arnaud]

je ne comprend pas vraiment ce que tu veux que ça te fasse en fait.
actuellement, cela rentre le texte saisi a partir de la ligne G2 et après a la ligne d'aprè ( G3 ) etc.....

toi tu voudrai quoi ??

 

[Arnaud]

moi g essayer sur un classeur standard c a dire 65536 lignes et ça pète.

 

[Tonio]

Salut le forum !!!

Voila un morceau de fichier.
Je voudrais que lorsque j'utilise ma macro, les données s'affichent en E 270, puis en l'utilisant une seconde fois en E 271 etc...

Lors de la première utilisation de la macro cela s'affiche bien en E 270 mais la seconde fois, cela s'affiche en E 11. Voila

Merci de votre aide

 

[Pascal76]

Re

Bon tu avais juste une petite erreur
Quand tu fais un end(xlup) il faut partir de E65536.

Bon courage

Pascal

 

[Tonio]

Merci Beaucoup Pascal76 , et tout le forum

C'est ce que je voulait, je suis débutant et c'est le pied d'avoir des professeurs comme vous !!!!!!!!

Merci de votre disponibilité