Discussion :

[Daniela]

Bonjour je suis debutant en excel. j'ai deux feuilles un pour inserer le nom l'autre pour le stocker. comment je fais a creer un bouton qui permet d'inserer dans la colonne A de la feuille 2 le nom ecrit dans la cellule A de la feuille 1?

merci beaucoup.

[gourmand]

pour créé le bouton : clic sur mode création puis bouton de comende
place le bouton comme tu veux puis double clic dessus.
sa vas t'amené sur une feuil blache avec sa dedans :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
 
End Sub

inser :

Code :

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

ActiveWorkbook.Worksheets("Feuil2").Range("A1").Value=ActiveWorkbook.Worksheets("Feuil1").Range("A1").Value

et voila

ActiveWorkbook : classeur activé
Worksheets("Feuil2") : feuil que l'on veux (ici Feuil2)
Range("A1") : cellule que l'on veux (ici A1)
Value : valeur

en gros on veux la valeur contenue dans la cellule A1 contenu dans la feuil Feuil1 contenu dans le classeur activé

[Daniela]

merci beaucoup marche bien, mais comment je fais a lui dire où il y a la cellule occupé d'aller à la premiere cellule libre de la colonne?

[gourmand]

tu peux faire une boucle

Code :

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

1
2
3
4
5
i=1
While ActiveWorkbook.Worksheets("Feuil2").cell(1, i).Value = ""
i = i + 1
Wend
ActiveWorkbook.Worksheets("Feuil2").cell(1, i).Value=ActiveWorkbook.Worksheets("Feuil1").Range("A1").Value

on ne rentre dans la boucle que si A1 est vide et on y sort si il y a du texte

[Daniela]

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
i = 1
While ActiveWorkbook.Worksheets("Foglio1").cell(1, i).Value = ""
i = i + 1
Wend
ActiveWorkbook.Worksheets("Foglio1").cell(1, i).Value = ActiveWorkbook.Worksheets("Foglio2").Range("A1").Value
End Sub

il y a un probleme... ne marche pas.