Macro exel evoyer zone de texte vers cellule

Question

Bonjour,

Je suis sur un classeur, en train de faire un formulaire,donc j'ai mis des zone de texte et des case a cocher.
je voudrai savoir par l'intermédiaire d'un macro si je peu envoyer le contenu d'une zone de texte vers une cellule sur une autre page lorsque l'on appuis sur le bouton, mais en sachant cas chaque fois que l'on appui dessus il prend le contenu de la zone de texte il la mes sur une cellule différente (l'un en dessous de l'autre).
merci de votre aide.

Utilisateur anonyme · Answer

S'il Vous plaît!!!

herod1983 · Answer

salut

à mettre dans ton bouton: 
(j'ai le nom de la zone de texte par défaut en textbox1, n'oublie pas de changer le nom si il est différent)

Private Sub CommandButton1_Click()

'appel macro essai
Call essai
End Sub

à mettre dans un module:

Sub essai()

'si zone de texte a une valeur alors
If Sheets("feuil1").TextBox1.Value <> "" Then

'boucle de cellule 1 a 10000
For i = 1 To 10000

'si boucle trouve cellule vide
'dans i variable ligne et 1 colonne A
'pour feuil2
'alors arrete boucle

If Sheets("feuil2").Cells(i, 1).Value = "" Then Exit For

Next i

'copie valeur de zone de texte dans cellule vide
'ouverture feuil2
Sheets("feuil2").Cells(i, 1).Value = Sheets("feuil1").TextBox1.Value
Sheets("feuil2").Activate

End If

End Sub

Macro exel evoyer zone de texte vers cellule

2 réponses

Discussions similaires

Newsletters