NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" a écrit dans le message de news:
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à faire
pour une ligne, mais je n'arrive pas à faire les autres lignes "suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
e9BJwXNFHHA.2468@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à faire
pour une ligne, mais je n'arrive pas à faire les autres lignes "suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" a écrit dans le message de news:
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à faire
pour une ligne, mais je n'arrive pas à faire les autres lignes "suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" a écrit dans le message de news:
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à faire
pour une ligne, mais je n'arrive pas à faire les autres lignes "suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
e9BJwXNFHHA.2468@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à faire
pour une ligne, mais je n'arrive pas à faire les autres lignes "suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" a écrit dans le message de news:
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à faire
pour une ligne, mais je n'arrive pas à faire les autres lignes "suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" a écrit dans le message de news:
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" a écrit dans le message de news:NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" a écrit dans le message de news:
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes "suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
OXiWYNZFHHA.4072@TK2MSFTNGP04.phx.gbl...
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OHqTBpTFHHA.3616@TK2MSFTNGP06.phx.gbl...
NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
e9BJwXNFHHA.2468@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes "suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" a écrit dans le message de news:
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" a écrit dans le message de news:NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" a écrit dans le message de news:
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes "suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" a écrit dans le message de news:
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" a écrit dans le message de news:NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" a écrit dans le message de news:
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes "suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
OXiWYNZFHHA.4072@TK2MSFTNGP04.phx.gbl...
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OHqTBpTFHHA.3616@TK2MSFTNGP06.phx.gbl...
NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
e9BJwXNFHHA.2468@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes "suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" a écrit dans le message de news:
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" a écrit dans le message de news:NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" a écrit dans le message de news:
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes "suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
'---------------------------
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
'---------------------------
A ) Modifie le nom de la "Feuil1" pour le nom de la feuille de ton
application.
B ) Tu dois aussi adapter le nom des textbox si différents
C ) Pour écrire quelque chose dans les cellules, les textbox ne doivent
pas
être vides.
D ) Ce code doit être inscrit dans le module du formulaire.
si malgré cela, tu n'y arrives pas, publie ton classeur (version allégée)
sur Cjoint.com
et publie ici l'adresse obtenue.
"LARSON" a écrit dans le message de news:
%
Bonjour, comment tu sais que je suis timide?? ;-)
j'ai mis la ligne de programme que tu m'as passé pour le testé, mais elle
ne fonctionne pas.
Il n'inscrit rien, sur la première ligne "B14", "C14" et "K14", quand
j'appuis sur le bouton suivant (commandbutton1) et encore moins sur les
lignes suivantes "B15", "C15", "K15" etc... jusqu'à la dernière ligne qui
est "B47","C47","K47"
Je te remercie pour l'aide que tu me donne.
"MichDenis" a écrit dans le message de news:
u8j3$Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" a écrit dans le message de news:
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" a écrit dans le message de news:NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" a écrit dans le message de news:
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes
"suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
'---------------------------
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
'---------------------------
A ) Modifie le nom de la "Feuil1" pour le nom de la feuille de ton
application.
B ) Tu dois aussi adapter le nom des textbox si différents
C ) Pour écrire quelque chose dans les cellules, les textbox ne doivent
pas
être vides.
D ) Ce code doit être inscrit dans le module du formulaire.
si malgré cela, tu n'y arrives pas, publie ton classeur (version allégée)
sur Cjoint.com
et publie ici l'adresse obtenue.
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
%23vijkYhFHHA.1240@TK2MSFTNGP03.phx.gbl...
Bonjour, comment tu sais que je suis timide?? ;-)
j'ai mis la ligne de programme que tu m'as passé pour le testé, mais elle
ne fonctionne pas.
Il n'inscrit rien, sur la première ligne "B14", "C14" et "K14", quand
j'appuis sur le bouton suivant (commandbutton1) et encore moins sur les
lignes suivantes "B15", "C15", "K15" etc... jusqu'à la dernière ligne qui
est "B47","C47","K47"
Je te remercie pour l'aide que tu me donne.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
u8j3$VaFHHA.536@TK2MSFTNGP02.phx.gbl...
Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
OXiWYNZFHHA.4072@TK2MSFTNGP04.phx.gbl...
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OHqTBpTFHHA.3616@TK2MSFTNGP06.phx.gbl...
NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
e9BJwXNFHHA.2468@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes
"suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
'---------------------------
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
'---------------------------
A ) Modifie le nom de la "Feuil1" pour le nom de la feuille de ton
application.
B ) Tu dois aussi adapter le nom des textbox si différents
C ) Pour écrire quelque chose dans les cellules, les textbox ne doivent
pas
être vides.
D ) Ce code doit être inscrit dans le module du formulaire.
si malgré cela, tu n'y arrives pas, publie ton classeur (version allégée)
sur Cjoint.com
et publie ici l'adresse obtenue.
"LARSON" a écrit dans le message de news:
%
Bonjour, comment tu sais que je suis timide?? ;-)
j'ai mis la ligne de programme que tu m'as passé pour le testé, mais elle
ne fonctionne pas.
Il n'inscrit rien, sur la première ligne "B14", "C14" et "K14", quand
j'appuis sur le bouton suivant (commandbutton1) et encore moins sur les
lignes suivantes "B15", "C15", "K15" etc... jusqu'à la dernière ligne qui
est "B47","C47","K47"
Je te remercie pour l'aide que tu me donne.
"MichDenis" a écrit dans le message de news:
u8j3$Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" a écrit dans le message de news:
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" a écrit dans le message de news:NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" a écrit dans le message de news:
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes
"suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
'---------------------------
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
'---------------------------
A ) Modifie le nom de la "Feuil1" pour le nom de la feuille de ton
application.
B ) Tu dois aussi adapter le nom des textbox si différents
C ) Pour écrire quelque chose dans les cellules, les textbox ne doivent
pas
être vides.
D ) Ce code doit être inscrit dans le module du formulaire.
si malgré cela, tu n'y arrives pas, publie ton classeur (version allégée)
sur Cjoint.com
et publie ici l'adresse obtenue.
"LARSON" a écrit dans le message de news:
%
Bonjour, comment tu sais que je suis timide?? ;-)
j'ai mis la ligne de programme que tu m'as passé pour le testé, mais elle
ne fonctionne pas.
Il n'inscrit rien, sur la première ligne "B14", "C14" et "K14", quand
j'appuis sur le bouton suivant (commandbutton1) et encore moins sur les
lignes suivantes "B15", "C15", "K15" etc... jusqu'à la dernière ligne qui
est "B47","C47","K47"
Je te remercie pour l'aide que tu me donne.
"MichDenis" a écrit dans le message de news:
u8j3$Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" a écrit dans le message de news:
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" a écrit dans le message de news:NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" a écrit dans le message de news:
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes
"suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
'---------------------------
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
'---------------------------
A ) Modifie le nom de la "Feuil1" pour le nom de la feuille de ton
application.
B ) Tu dois aussi adapter le nom des textbox si différents
C ) Pour écrire quelque chose dans les cellules, les textbox ne doivent
pas
être vides.
D ) Ce code doit être inscrit dans le module du formulaire.
si malgré cela, tu n'y arrives pas, publie ton classeur (version allégée)
sur Cjoint.com
et publie ici l'adresse obtenue.
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
%23vijkYhFHHA.1240@TK2MSFTNGP03.phx.gbl...
Bonjour, comment tu sais que je suis timide?? ;-)
j'ai mis la ligne de programme que tu m'as passé pour le testé, mais elle
ne fonctionne pas.
Il n'inscrit rien, sur la première ligne "B14", "C14" et "K14", quand
j'appuis sur le bouton suivant (commandbutton1) et encore moins sur les
lignes suivantes "B15", "C15", "K15" etc... jusqu'à la dernière ligne qui
est "B47","C47","K47"
Je te remercie pour l'aide que tu me donne.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
u8j3$VaFHHA.536@TK2MSFTNGP02.phx.gbl...
Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
OXiWYNZFHHA.4072@TK2MSFTNGP04.phx.gbl...
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OHqTBpTFHHA.3616@TK2MSFTNGP06.phx.gbl...
NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
e9BJwXNFHHA.2468@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes
"suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
'---------------------------
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
'---------------------------
A ) Modifie le nom de la "Feuil1" pour le nom de la feuille de ton
application.
B ) Tu dois aussi adapter le nom des textbox si différents
C ) Pour écrire quelque chose dans les cellules, les textbox ne doivent
pas
être vides.
D ) Ce code doit être inscrit dans le module du formulaire.
si malgré cela, tu n'y arrives pas, publie ton classeur (version allégée)
sur Cjoint.com
et publie ici l'adresse obtenue.
"LARSON" a écrit dans le message de news:
%
Bonjour, comment tu sais que je suis timide?? ;-)
j'ai mis la ligne de programme que tu m'as passé pour le testé, mais elle
ne fonctionne pas.
Il n'inscrit rien, sur la première ligne "B14", "C14" et "K14", quand
j'appuis sur le bouton suivant (commandbutton1) et encore moins sur les
lignes suivantes "B15", "C15", "K15" etc... jusqu'à la dernière ligne qui
est "B47","C47","K47"
Je te remercie pour l'aide que tu me donne.
"MichDenis" a écrit dans le message de news:
u8j3$Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" a écrit dans le message de news:
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" a écrit dans le message de news:NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" a écrit dans le message de news:
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes
"suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de texte?
je vous remercie par avance
Là : http://cjoint.com/?mdmwne8O0U
"LARSON" a écrit dans le message de news:
bonjour, oui ça marche, mais c'est sur la ligne de B56 etc....
je te met mon classeur, et c'est le bouton automatique, qui pose des
problèmes
http://cjoint.com/?mcs4aeO078
est-ce que tu peux m'expliqué après, si tu arrives à résoudre le problème.
Pour que j'arrive à comprendre pour la prochaine fois.
merci, par avance.
"MichDenis" a écrit dans le message de news:
'---------------------------
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
'---------------------------
A ) Modifie le nom de la "Feuil1" pour le nom de la feuille de ton
application.
B ) Tu dois aussi adapter le nom des textbox si différents
C ) Pour écrire quelque chose dans les cellules, les textbox ne doivent
pas
être vides.
D ) Ce code doit être inscrit dans le module du formulaire.
si malgré cela, tu n'y arrives pas, publie ton classeur (version allégée)
sur Cjoint.com
et publie ici l'adresse obtenue.
"LARSON" a écrit dans le message de news:
%
Bonjour, comment tu sais que je suis timide?? ;-)
j'ai mis la ligne de programme que tu m'as passé pour le testé, mais
elle
ne fonctionne pas.
Il n'inscrit rien, sur la première ligne "B14", "C14" et "K14", quand
j'appuis sur le bouton suivant (commandbutton1) et encore moins sur les
lignes suivantes "B15", "C15", "K15" etc... jusqu'à la dernière ligne qui
est "B47","C47","K47"
Je te remercie pour l'aide que tu me donne.
"MichDenis" a écrit dans le message de news:
u8j3$Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" a écrit dans le message de news:
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" a écrit dans le message de news:NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" a écrit dans le message de news:
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes
"suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour
le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de
texte?
je vous remercie par avance
Là : http://cjoint.com/?mdmwne8O0U
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
uUu6KyjFHHA.3668@TK2MSFTNGP02.phx.gbl...
bonjour, oui ça marche, mais c'est sur la ligne de B56 etc....
je te met mon classeur, et c'est le bouton automatique, qui pose des
problèmes
http://cjoint.com/?mcs4aeO078
est-ce que tu peux m'expliqué après, si tu arrives à résoudre le problème.
Pour que j'arrive à comprendre pour la prochaine fois.
merci, par avance.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OWUS1fhFHHA.3508@TK2MSFTNGP04.phx.gbl...
'---------------------------
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
'---------------------------
A ) Modifie le nom de la "Feuil1" pour le nom de la feuille de ton
application.
B ) Tu dois aussi adapter le nom des textbox si différents
C ) Pour écrire quelque chose dans les cellules, les textbox ne doivent
pas
être vides.
D ) Ce code doit être inscrit dans le module du formulaire.
si malgré cela, tu n'y arrives pas, publie ton classeur (version allégée)
sur Cjoint.com
et publie ici l'adresse obtenue.
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
%23vijkYhFHHA.1240@TK2MSFTNGP03.phx.gbl...
Bonjour, comment tu sais que je suis timide?? ;-)
j'ai mis la ligne de programme que tu m'as passé pour le testé, mais
elle
ne fonctionne pas.
Il n'inscrit rien, sur la première ligne "B14", "C14" et "K14", quand
j'appuis sur le bouton suivant (commandbutton1) et encore moins sur les
lignes suivantes "B15", "C15", "K15" etc... jusqu'à la dernière ligne qui
est "B47","C47","K47"
Je te remercie pour l'aide que tu me donne.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
u8j3$VaFHHA.536@TK2MSFTNGP02.phx.gbl...
Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
OXiWYNZFHHA.4072@TK2MSFTNGP04.phx.gbl...
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OHqTBpTFHHA.3616@TK2MSFTNGP06.phx.gbl...
NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" <stboinard@wanadoo.fr> a écrit dans le message de news:
e9BJwXNFHHA.2468@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes
"suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour
le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de
texte?
je vous remercie par avance
Là : http://cjoint.com/?mdmwne8O0U
"LARSON" a écrit dans le message de news:
bonjour, oui ça marche, mais c'est sur la ligne de B56 etc....
je te met mon classeur, et c'est le bouton automatique, qui pose des
problèmes
http://cjoint.com/?mcs4aeO078
est-ce que tu peux m'expliqué après, si tu arrives à résoudre le problème.
Pour que j'arrive à comprendre pour la prochaine fois.
merci, par avance.
"MichDenis" a écrit dans le message de news:
'---------------------------
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
'---------------------------
A ) Modifie le nom de la "Feuil1" pour le nom de la feuille de ton
application.
B ) Tu dois aussi adapter le nom des textbox si différents
C ) Pour écrire quelque chose dans les cellules, les textbox ne doivent
pas
être vides.
D ) Ce code doit être inscrit dans le module du formulaire.
si malgré cela, tu n'y arrives pas, publie ton classeur (version allégée)
sur Cjoint.com
et publie ici l'adresse obtenue.
"LARSON" a écrit dans le message de news:
%
Bonjour, comment tu sais que je suis timide?? ;-)
j'ai mis la ligne de programme que tu m'as passé pour le testé, mais
elle
ne fonctionne pas.
Il n'inscrit rien, sur la première ligne "B14", "C14" et "K14", quand
j'appuis sur le bouton suivant (commandbutton1) et encore moins sur les
lignes suivantes "B15", "C15", "K15" etc... jusqu'à la dernière ligne qui
est "B47","C47","K47"
Je te remercie pour l'aide que tu me donne.
"MichDenis" a écrit dans le message de news:
u8j3$Pourquoi tant de timidité ?
Il ne faut pas te gêner pour donner des détails sur la problématique
que tu éprouves...
Ce type de commentaire : "le programme ne fonctionne pas"
n'est pas très parlant !!!
"LARSON" a écrit dans le message de news:
Merci, d'essayer de m'aider. mais le programme ne fonctionne pas.
Est-ce qu'il manque quelque chose??
Private Sub CommandButton1_Click()
With Worksheets("factclient")
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.TextBox1
.Range("C" & NoLigne) = Me.listdesig
.Range("K" & NoLigne) = Me.TextBox2
End With
End Sub
Merci encore
"MichDenis" a écrit dans le message de news:NoLigne est une variable qui représente la nouvelle ligne
où devra s'inscrire le nouvel enregistrement dans la feuille
With Worksheets("Feuil1") 'Nom feuille à adapter...
NoLigne = .Range("B65536").End(xlUp)(2).Row
.Range("B" & NoLigne) = Me.textbox1
.Range("C" & NoLigne) = Me.textbox2
.Range("K" & NoLigne) = Me.textbox3
End With
"LARSON" a écrit dans le message de news:
Bonjour à tous,
je commence à apprendre la programmation sous vba. Et ça fait qu'1
semaine,
que j'apprenne les formulaires (userform).
J'ai créé, 2 zone de texte et 1 zone de liste.
il me donne les réponses dans les cellules b14, c14, K14, j'arrive à
faire
pour une ligne, mais je n'arrive pas à faire les autres lignes
"suivante"
en
b,c,k 15, ensuite 16, etc, si l'on appuis sur le bouton suivant, pour
le
même formulaire?
Comment on fait pour ré-initialiser à chaque fois que l'on appuiera sur
le
bouton suivant, la zone de texte, ou sur le bouton fin.?
Et ma derniere questions, pour ce sujet.
Est-ce que l'on peux limité le nombre, à 1 ou 2, dans une zone de
texte?
je vous remercie par avance
