ecrire dans excel

Question

salut ttmonde,

J'arrive a ecrire dans un fichier excel cellule par celulle du style :

wsexcel.Range("a1").Value = "toto"
Mais je voudrais ecrire dans la cellule a2 sans ecraser la cellule a1 du genre :a1 toto, a2 titi, etc...

existe-t-il un tuto ou un post traitant de ce sujet ?

Si oui ou est-il ou comment faire ?

Utilisateur anonyme · Answer

Ben...
wsexcel.Range("a1").Value = "toto"
wsexcel.Range("a2").Value = "titi"
etc...





__________
  Kenji

jeanlucsl65 · Answer

ok, ça je suis d'accord

mais mon pb c'est:
bouton_de_commande, a coté text box

je rentre "toto" dans textbox, j'appuie sur bouton_command et ça ecrit "toto" dans cellule A1 puis ça efface ce qu'il y a dans textbox.

ensuite je rentre "titi" dans textbox, je clique sur bouton_command et ça doit ecrire dans A2

le pb c'est que ça ecrit toujours dans A1

je sais que je doit passer par une boucle, mais laquelle ?

n'oubliez pas que je poste dans la rubrique débutant (sauf si je m'est planté)


a+

cs_MPi · Answer

Dans ce cas précis, tu ne dois pas nécessairement passer par une boucle mais savoir où tu veux écrire la donnée.

Disons qu'à chaque Click tu veux écrire dans la 1ere ligne vide de la colonne A. Il faut alors que tu cherches cette 1ere cellule vide avant d'écrire.

PremiereCelluleVide =  Cells(Rows.Count, "A").End(xlUp).row + 1
Range("A" &  PremiereCelluleVide)  = TextBox1

MPi²

Utilisateur anonyme · Answer

Ou alors d'incrémenter une variable. Cela dépend des besoins.

__________
  Kenji

cs_MPi · Answer

Effectivement, c'est souvent plus simple et plus rapide de seulement incrémenter une variable tant qu'on sait où on en est rendu... 

MPi²

jeanlucsl65 · Answer

Pourquoi faire simple quand on peut faire compliquer

Je vais essayer de ce pas

merci et je vous tient au courent

jeanlucsl65 · Answer

re a tous,

merci a MPi qui m' a transmi ce petit bout de code :

PremiereCelluleVide =  Cells(Rows.Count, "A").End(xlUp).row + 1
Range("A" &  PremiereCelluleVide)  = TextBox1

Pour info, que signifie [ end(xlup) ]

merci en tout cas car ça fonctionne

Ecrire dans excel

7 réponses

Votre réponse

Discussions similaires