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
Norvi
Bonjour,
Une solution :
Dans le code de Devisprepa1 :
Private Sub CommandButton3_Click() With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2 cliquez sur le petit bouton en face de devis tout en bas cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la feuil "scan" dans les case correspondante en cliquant sur suite merci
Bonjour,
Une solution :
Dans le code de Devisprepa1 :
Private Sub CommandButton3_Click()
With Sheets("scan")
Cells(18, 5).Value = TextBox1.Value
Cells(20, 5).Value = TextBox2.Value
Cells(22, 5).Value = TextBox3.Value
Cells(24, 5).Value = TextBox4.Value
End With
End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2
cliquez sur le petit bouton en face de devis tout en bas
cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la feuil
"scan" dans les case correspondante en cliquant sur suite
merci
Private Sub CommandButton3_Click() With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2 cliquez sur le petit bouton en face de devis tout en bas cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la feuil "scan" dans les case correspondante en cliquant sur suite merci
GARAULT
sa fonctionne mais qu'en partie je m'explique
la macro demarre sur la page Feuil2 si je rempli les case sa met erreure
par contre si je suis sur la feuil scan et que je lance la macro, là sa rempli bien les champs
le soucis c que je dois rester sur la feuil2 pour remplir les champs de la macro
c grave docteur ?
Bonjour,
Une solution :
Dans le code de Devisprepa1 :
Private Sub CommandButton3_Click() With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2 cliquez sur le petit bouton en face de devis tout en bas cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la feuil "scan" dans les case correspondante en cliquant sur suite merci
sa fonctionne mais qu'en partie
je m'explique
la macro demarre sur la page Feuil2
si je rempli les case sa met erreure
par contre si je suis sur la feuil scan et que je lance la macro, là sa
rempli bien les champs
le soucis c que je dois rester sur la feuil2 pour remplir les champs de la
macro
c grave docteur ?
Bonjour,
Une solution :
Dans le code de Devisprepa1 :
Private Sub CommandButton3_Click()
With Sheets("scan")
Cells(18, 5).Value = TextBox1.Value
Cells(20, 5).Value = TextBox2.Value
Cells(22, 5).Value = TextBox3.Value
Cells(24, 5).Value = TextBox4.Value
End With
End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2
cliquez sur le petit bouton en face de devis tout en bas
cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la feuil
"scan" dans les case correspondante en cliquant sur suite
merci
la macro demarre sur la page Feuil2 si je rempli les case sa met erreure
par contre si je suis sur la feuil scan et que je lance la macro, là sa rempli bien les champs
le soucis c que je dois rester sur la feuil2 pour remplir les champs de la macro
c grave docteur ?
Bonjour,
Une solution :
Dans le code de Devisprepa1 :
Private Sub CommandButton3_Click() With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2 cliquez sur le petit bouton en face de devis tout en bas cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la feuil "scan" dans les case correspondante en cliquant sur suite merci
GARAULT
voici mon code actuel:
Private Sub CommandButton3_Click()
With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
Private Sub Quitter_Click() If RepAffichage = vbquitter Then ok.Show
Else End If
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Bonjour,
Une solution :
Dans le code de Devisprepa1 :
Private Sub CommandButton3_Click() With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2 cliquez sur le petit bouton en face de devis tout en bas cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la feuil "scan" dans les case correspondante en cliquant sur suite merci
voici mon code actuel:
Private Sub CommandButton3_Click()
With Sheets("scan")
Cells(18, 5).Value = TextBox1.Value
Cells(20, 5).Value = TextBox2.Value
Cells(22, 5).Value = TextBox3.Value
Cells(24, 5).Value = TextBox4.Value
End With
End Sub
Private Sub Quitter_Click()
If RepAffichage = vbquitter Then
ok.Show
Else
End If
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Bonjour,
Une solution :
Dans le code de Devisprepa1 :
Private Sub CommandButton3_Click()
With Sheets("scan")
Cells(18, 5).Value = TextBox1.Value
Cells(20, 5).Value = TextBox2.Value
Cells(22, 5).Value = TextBox3.Value
Cells(24, 5).Value = TextBox4.Value
End With
End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2
cliquez sur le petit bouton en face de devis tout en bas
cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la feuil
"scan" dans les case correspondante en cliquant sur suite
merci
With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
Private Sub Quitter_Click() If RepAffichage = vbquitter Then ok.Show
Else End If
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Bonjour,
Une solution :
Dans le code de Devisprepa1 :
Private Sub CommandButton3_Click() With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2 cliquez sur le petit bouton en face de devis tout en bas cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la feuil "scan" dans les case correspondante en cliquant sur suite merci
Tuesmondieu
Excuse moi, stupide erreur de ma part !!!!!!
Voilà le bon code (j'ai oublié les points) :
Private Sub CommandButton3_Click() With Sheets("scan") .Cells(18, 5).Value = TextBox1.Value .Cells(20, 5).Value = TextBox2.Value .Cells(22, 5).Value = TextBox3.Value .Cells(24, 5).Value = TextBox4.Value End With End Sub
voici mon code actuel:
Private Sub CommandButton3_Click()
With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
Private Sub Quitter_Click() If RepAffichage = vbquitter Then ok.Show
Else End If
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Bonjour,
Une solution :
Dans le code de Devisprepa1 :
Private Sub CommandButton3_Click() With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2 cliquez sur le petit bouton en face de devis tout en bas cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la fe uil "scan" dans les case correspondante en cliquant sur suite merci
Excuse moi, stupide erreur de ma part !!!!!!
Voilà le bon code (j'ai oublié les points) :
Private Sub CommandButton3_Click()
With Sheets("scan")
.Cells(18, 5).Value = TextBox1.Value
.Cells(20, 5).Value = TextBox2.Value
.Cells(22, 5).Value = TextBox3.Value
.Cells(24, 5).Value = TextBox4.Value
End With
End Sub
voici mon code actuel:
Private Sub CommandButton3_Click()
With Sheets("scan")
Cells(18, 5).Value = TextBox1.Value
Cells(20, 5).Value = TextBox2.Value
Cells(22, 5).Value = TextBox3.Value
Cells(24, 5).Value = TextBox4.Value
End With
End Sub
Private Sub Quitter_Click()
If RepAffichage = vbquitter Then
ok.Show
Else
End If
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Bonjour,
Une solution :
Dans le code de Devisprepa1 :
Private Sub CommandButton3_Click()
With Sheets("scan")
Cells(18, 5).Value = TextBox1.Value
Cells(20, 5).Value = TextBox2.Value
Cells(22, 5).Value = TextBox3.Value
Cells(24, 5).Value = TextBox4.Value
End With
End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2
cliquez sur le petit bouton en face de devis tout en bas
cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la fe uil
"scan" dans les case correspondante en cliquant sur suite
merci
Private Sub CommandButton3_Click() With Sheets("scan") .Cells(18, 5).Value = TextBox1.Value .Cells(20, 5).Value = TextBox2.Value .Cells(22, 5).Value = TextBox3.Value .Cells(24, 5).Value = TextBox4.Value End With End Sub
voici mon code actuel:
Private Sub CommandButton3_Click()
With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
Private Sub Quitter_Click() If RepAffichage = vbquitter Then ok.Show
Else End If
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Bonjour,
Une solution :
Dans le code de Devisprepa1 :
Private Sub CommandButton3_Click() With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2 cliquez sur le petit bouton en face de devis tout en bas cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la fe uil "scan" dans les case correspondante en cliquant sur suite merci
GARAULT
MERCI BEAUCOUP
"Tuesmondieu" wrote:
Excuse moi, stupide erreur de ma part !!!!!!
Voilà le bon code (j'ai oublié les points) :
Private Sub CommandButton3_Click() With Sheets("scan") ..Cells(18, 5).Value = TextBox1.Value ..Cells(20, 5).Value = TextBox2.Value ..Cells(22, 5).Value = TextBox3.Value ..Cells(24, 5).Value = TextBox4.Value End With End Sub
voici mon code actuel:
Private Sub CommandButton3_Click()
With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
Private Sub Quitter_Click() If RepAffichage = vbquitter Then ok.Show
Else End If
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Bonjour,
Une solution :
Dans le code de Devisprepa1 :
Private Sub CommandButton3_Click() With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2 cliquez sur le petit bouton en face de devis tout en bas cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la feuil "scan" dans les case correspondante en cliquant sur suite merci
MERCI BEAUCOUP
"Tuesmondieu" wrote:
Excuse moi, stupide erreur de ma part !!!!!!
Voilà le bon code (j'ai oublié les points) :
Private Sub CommandButton3_Click()
With Sheets("scan")
..Cells(18, 5).Value = TextBox1.Value
..Cells(20, 5).Value = TextBox2.Value
..Cells(22, 5).Value = TextBox3.Value
..Cells(24, 5).Value = TextBox4.Value
End With
End Sub
voici mon code actuel:
Private Sub CommandButton3_Click()
With Sheets("scan")
Cells(18, 5).Value = TextBox1.Value
Cells(20, 5).Value = TextBox2.Value
Cells(22, 5).Value = TextBox3.Value
Cells(24, 5).Value = TextBox4.Value
End With
End Sub
Private Sub Quitter_Click()
If RepAffichage = vbquitter Then
ok.Show
Else
End If
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Bonjour,
Une solution :
Dans le code de Devisprepa1 :
Private Sub CommandButton3_Click()
With Sheets("scan")
Cells(18, 5).Value = TextBox1.Value
Cells(20, 5).Value = TextBox2.Value
Cells(22, 5).Value = TextBox3.Value
Cells(24, 5).Value = TextBox4.Value
End With
End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2
cliquez sur le petit bouton en face de devis tout en bas
cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la feuil
"scan" dans les case correspondante en cliquant sur suite
merci
Private Sub CommandButton3_Click() With Sheets("scan") ..Cells(18, 5).Value = TextBox1.Value ..Cells(20, 5).Value = TextBox2.Value ..Cells(22, 5).Value = TextBox3.Value ..Cells(24, 5).Value = TextBox4.Value End With End Sub
voici mon code actuel:
Private Sub CommandButton3_Click()
With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
Private Sub Quitter_Click() If RepAffichage = vbquitter Then ok.Show
Else End If
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Bonjour,
Une solution :
Dans le code de Devisprepa1 :
Private Sub CommandButton3_Click() With Sheets("scan") Cells(18, 5).Value = TextBox1.Value Cells(20, 5).Value = TextBox2.Value Cells(22, 5).Value = TextBox3.Value Cells(24, 5).Value = TextBox4.Value End With End Sub
N.
GARAULT wrote:
http://cjoint.com/?kEk67eoB8h
Dans ce dossier la page d'acceuil est la Feuil2 cliquez sur le petit bouton en face de devis tout en bas cliquez sur oui
la fenetre "preparation du devis s'ouvre"
comment envoyer ce que l'on entre dans les champs de texte dans la feuil "scan" dans les case correspondante en cliquant sur suite merci
