Macro exel evoyer zone de texte vers cellule
Fermé
Utilisateur anonyme
-
8 déc. 2008 à 19:17
herod1983 Messages postés 193 Date d'inscription jeudi 2 octobre 2008 Statut Membre Dernière intervention 3 août 2012 - 8 déc. 2008 à 21:11
herod1983 Messages postés 193 Date d'inscription jeudi 2 octobre 2008 Statut Membre Dernière intervention 3 août 2012 - 8 déc. 2008 à 21:11
A voir également:
- Macro exel evoyer zone de texte vers cellule
- Zone telechargement - Guide
- Excel cellule couleur si condition texte - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Windows 7 vers windows 10 - Guide
2 réponses
herod1983
Messages postés
193
Date d'inscription
jeudi 2 octobre 2008
Statut
Membre
Dernière intervention
3 août 2012
5
8 déc. 2008 à 21:11
8 déc. 2008 à 21:11
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)
à mettre dans un module:
à 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
