Discussion :

[Maiden002]

Bonjour,

J'ai un bouton qui me permet de rajouter une données dans une ligne.

Je voudrai que dés que je clique dessus il met le résultat de mon inputbox a la suite de la ligne .

Par exemple dans la ligne 1 colone A j'ai "Article" ensuite ligne 1 colone B j'ai "Loisirs" , etc

je voudrai que le résultat de ma inputbox je mette a la suite c'est a dire là par rapport a l'exemple il me faudrai qu'il se mette ligne 1 collone C, ainsi de suite.

J'ai réussi a faire le fonctionnement de mon bouton, mais je coince sur sa...

Merci

[aalex_38]

Bonjour,

tu veux trouver la dernière colonne vide ?

tu peux faire comme ça :

Code :

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

Cells(1, 256).End(xlToLeft).Column + 1

Edit:

[Maiden002]

Merci Et ensuite comment dire que par exemple ma variable reponse je veux la mettre a la suite ??

[aalex_38]

re,

Alors la je suis en train de faire tourner une grosse macro pour le boulot alors je ne peux pas testé, quoiqu'il en soit pour répondre à ta question:

Code :

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

1
2
3
4
5
reponse = InputBox("Entre votre réponse " ) 'Je ne sais pas si tu dois tester ce qui est répondu ?
 
dim ColVide as integer
Colvide = Cells(1, 256).End(xlToLeft).Column + 1
cells(1,colvide) = reponse

Tu dis ça te convient, sinon précise un peu et montre du code.

[laetitia]

bonjour Maiden002 aalex le forum un autre exemple!!

Code :

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

Range("IV1").End(xlToLeft).Offset(0, 1).Value = InputBox("renseigne cellule ")

[Maiden002]

Merci pour vos réponse,

je viens de tester sa me met bien mon résultat mais a la ligne 1 .

Si je voudrai mettre a la ligne 2

dois je changer comme sa ?

Code :

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

1
2
3
dim ColVide as integer
Colvide = Cells(1, 256).End(xlToLeft).Columns + 1
cells(2,colvide) = reponse

Car en faite ce qui m'interrese c'est que la Ligne 2 et toutes ces colonnes.

[aalex_38]

dois je changer comme sa ?

Dans ton exemple tu n'a pas changé le numéro de ligne pour déterminer la dernière colonne vide.
C'est à toi de voir, dans l'exemple ci-dessous on détermine la dernière colonne sur la ligne 2 et on renseigne la cellule sur cette ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
dim ColVide as integer
dim Ligne as long
 
reponse = InputBox("Entre votre réponse " ) 'recupère la réponse
 
Ligne = 2  ' numéro de ligne
Colvide = Cells(Ligne, 256).End(xlToLeft).Column + 1 'dernière colonne vide
 
cells(Ligne,colvide) = reponse 'renseigner la cellule avec la réponse