Fenetre pour insérer valeur dans une cellule donnée

[Consultat]

Re-bonjour,

voila, ayant brièvement découvert aujourd'hui , ou plutot essayer de découvrir, ce qu'était les macros ainsi que visual basic, j'aurais besoin de vos connaissances.

J'ai créé un macro qui permet d'insérer une ligne au niveau de la ligne 12 de la feuille "test":

Sub Ajoutligne()
'
' Ajoutligne Macro
' Macro enregistrée le 16/04/2010

Worksheets("test").Cells(12, 1).EntireRow.Insert

End Sub

La macro marche correctement mais j'aimerais également ajouter une valeur à la cellule B12 de la feuille "test" par exemple "fruits". Si possible via l'affichage d'une fenetre me demandant l'intitulé.

Merci,
bonne journée.

PS: je rame 😀

 

[mutzik]

Re : Fenetre pour insérer valeur dans une cellule donnée

bonjour,
range("B12") = inputbox( ... je te laisse découvrir la suite dans l'aide d'excel

 

[Pierrot93]

Re : Fenetre pour insérer valeur dans une cellule donnée

Bonjour,

essaye peut être ainsi :

Sheets("FeuilleTest").Range("B12").Value = InputBox("Quel mot en B12")

bonne fin d'après midi
@+

Edition : bonjour Bertrand

 

[Consultat]

Re : Fenetre pour insérer valeur dans une cellule donnée

Bonjour,

voila, mon bout de code avance, cependant il me reste encore un petit problème.

Sub Ajoutligne()
'
' Ajoutligne Macro
' Macro enregistrée le 16/04/2010
Worksheets("paramètre").Cells(11, 1).EntireRow.Insert
Worksheets("test").Cells(11, 1).EntireRow.Insert
Worksheets("paramètre").Range("C11") = InputBox("mot?")

End Sub

Donc la j'ajoute 1 ligne au niveau de la cellule 11 de la feuille paramètre et également sur la feuille test.
Ensuite j'ajoute un mot dans la cellule c11 sur la ligne qui vient d'être créé.
J'aimerais par ailleurs, que cela s'ajoute également sur la cellule c11 de la feuille test.

Worksheets("paramètre").Worksheets("test").Range("C11") = InputBox("mot?")

J'ai essayé cela, mais sa n'a pas l'air de fonctionner.

Auriez vous une petite idée.

Merci

 

[mutzik]

Re : Fenetre pour insérer valeur dans une cellule donnée

re,
c'est tout simple, après cette ligne:
Worksheets("paramètre").Range("C11") = InputBox("mot?")
tu mets :
sheets("test").range("C11")=sheets("paramètre").range("C11")

 

[Consultat]

Re : Fenetre pour insérer valeur dans une cellule donnée

Merci Bertrand... Simple lorsqu'on connait un minimum 😉
En tout cas sa fonctionne parfaitement.