VBA - Nouvelle colonne

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

Bonjour,

tu veux trouver la dernière colonne vide ?

tu peux faire comme ça :

Code:

---

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

---

Edit:

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

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:

---

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.

bonjour Maiden002 aalex le forum un autre exemple!!

Code:

---

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

---

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:

---

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.

Citation:

---

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:

---

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

---

Il me fait une erreur

Code:

---

1 2 3

line = 2 colVide = Cells(line, 256).End(xlToLeft).Columns + 1 Cells(line, colVide) = cmbLang.Value

---

la ligne en gras il me fait une erreur, disant que colVide est vide (=0)

Désolé, j'ai mis columns au lieu de column, je corrige dans ce post et les précédents :

Code:

---

1 2 3

Dim colVide As Integer Line = 2 colVide = Cells(Line, 256).End(xlToLeft).Column + 1 'Premier colonne vide dans la ligne indiquée

---

Super sa marche nikel.

Juste une petit derniére question (dsl)

Pour recherche la valeur et la supprimer

Par exemple la valeur est "EN" et on veux supprimer la valeur "EN" qui est contenu dans la case

Comment peu t'on procédé ?



Je me mélange les pinceaux avec tous ces codes ^^

Le mieux est d'ouvrir un autre poste pour les autres questions et de mettre celui-ci sur résolu ;)

PS : Regarde du côté de replace / Find / autofilter / like ...

Support de cours complet pour le VBA d'Excel

Le menu de l'excellent site de silkyroad

ok