Discussion :

[ludo02]

bonjour,

Voila, je recolte des info à l'aide de 3 inputbox de suite puis les ecrit sur ma feuille exel. quand je recommence l'operation naturelement les données precedente sont ecraser par les nouvelles donnée. J'aimerais ecrire les nouvelles données sur la ligne en dessous comme expliquer en dessous:

> recolte les infos
> ecrit les infos en celule B21;C21 et D21
> recolte les infos
> ecrit les infos en celule B22;C22 et D22
> ....

j'avais penser a une boucle qui surveille le contenu des celules puis qui incremente une variable de 1 et renvoie le resultat a ma procedure d'ecriture, mais probleme je ne sais comment faire.
merci a tous.

[ouskel'n'or]

Tu places un séparateur entre tes données lors de ta saisie puis tu fais un split sur le résultat
T'as plus qu'à placer tes donnée au bon endroit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
result = Inputbox("Saisir tes données","Titre",ValsParDéfaut)
LeTableau = Split(Result,LeSéparateur)
PremièreCol = 2 'tu fixes la 1ère colonne dans laquelle tu veux placer ta première donnée
NoLigne = 5 ''tu fixes le N° de ligne
For Nocol = 0 to Ubound(LeTableau)
      Cells(NoLigne, Nocol + PremièreCol) = LeTableau(NoCol)
Next

A+

Edit
Précision utile : Tu saisies tes données dans le même inputbox séparées d'un séparateur (; ou - ou $ ou & ou "séparateur" ou ceketuve)