voila, j'ai deux textbox dans lesquel je rentre des nom et prenom. Textbox1
pour le nom et textbox2 pour le prenom
j'ai besoin de recuperer ces valeurs et dans les inscrires dans deux
cellules sur une feuille excel en M1 et N1. apres une validation sur un
bouton "Next Name"
une fois, le nom et prenom copie dans les deux cellules, je veux vider les
textbox
puis de nouveau inscrire dans les 2 textbox un nouveau nom et prenom que
j'incrirais dans les cellules M2 et N2 et ainsi de suite
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
A affecter au bouton (et à adapter) :
Private Sub CommandButton1_Click() If TextBox1 <> "" And TextBox2 <> "" Then [Feuil1!M1] = TextBox1: [Feuil1!N1] = TextBox2 TextBox1 = "": TextBox2 = "" End If End Sub
AV
A affecter au bouton (et à adapter) :
Private Sub CommandButton1_Click()
If TextBox1 <> "" And TextBox2 <> "" Then
[Feuil1!M1] = TextBox1: [Feuil1!N1] = TextBox2
TextBox1 = "": TextBox2 = ""
End If
End Sub
Private Sub CommandButton1_Click() If TextBox1 <> "" And TextBox2 <> "" Then [Feuil1!M1] = TextBox1: [Feuil1!N1] = TextBox2 TextBox1 = "": TextBox2 = "" End If End Sub
AV
ru-th
Bonjour, Si je puis me permettre, cher président, comment envisageâtes vous le passage à m2 n2..... ? la 2ème ligne ne pourrait-elle pas devenir quelque chose comme sheets("Feuil1").range("m" &[m65536].end(xlup).row+1)=textbox1 sheets("Feuil1").range("n" &[n65536].end(xlup).row+1)=textbox2
a+ rural thierry
"AV" a écrit dans le message de news: eI4Gl#
A affecter au bouton (et à adapter) :
Private Sub CommandButton1_Click() If TextBox1 <> "" And TextBox2 <> "" Then [Feuil1!M1] = TextBox1: [Feuil1!N1] = TextBox2 TextBox1 = "": TextBox2 = "" End If End Sub
AV
Bonjour,
Si je puis me permettre, cher président, comment envisageâtes vous le
passage à m2 n2..... ?
la 2ème ligne ne pourrait-elle pas devenir quelque chose comme
sheets("Feuil1").range("m" &[m65536].end(xlup).row+1)=textbox1
sheets("Feuil1").range("n" &[n65536].end(xlup).row+1)=textbox2
a+
rural thierry
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
eI4Gl#YFFHA.208@TK2MSFTNGP12.phx.gbl...
A affecter au bouton (et à adapter) :
Private Sub CommandButton1_Click()
If TextBox1 <> "" And TextBox2 <> "" Then
[Feuil1!M1] = TextBox1: [Feuil1!N1] = TextBox2
TextBox1 = "": TextBox2 = ""
End If
End Sub
Bonjour, Si je puis me permettre, cher président, comment envisageâtes vous le passage à m2 n2..... ? la 2ème ligne ne pourrait-elle pas devenir quelque chose comme sheets("Feuil1").range("m" &[m65536].end(xlup).row+1)=textbox1 sheets("Feuil1").range("n" &[n65536].end(xlup).row+1)=textbox2
a+ rural thierry
"AV" a écrit dans le message de news: eI4Gl#
A affecter au bouton (et à adapter) :
Private Sub CommandButton1_Click() If TextBox1 <> "" And TextBox2 <> "" Then [Feuil1!M1] = TextBox1: [Feuil1!N1] = TextBox2 TextBox1 = "": TextBox2 = "" End If End Sub
AV
AV
Si je puis me permettre, cher président, comment envisageâtes vous le passage à m2 n2..... ?
T'as raison d'avoir "envisagé" car je n'avais point lu jusque z'au bout !
AV
Si je puis me permettre, cher président, comment envisageâtes vous le
passage à m2 n2..... ?
T'as raison d'avoir "envisagé" car je n'avais point lu jusque z'au bout !
