Voila je viens d'avancer son mon probl=E8me de fiche client mais j'ai
encore un soucis
J'ai une combobox nomm=E9e Produit qui se trouve sur mon userform
Ficheclient
Je voudrais peupler cette comboxbox avec la liste de la page combo
sachant qu'a chaque fois que je selectionne un nom (cusine
sbd,salon...) mes controle s'affiche en dessous en format case =E0
cocher.
Est ce que cette op=E9ration est r=E9alisable ?
Merci de votre aide. Je joint le fichier pour que vous voyez la
structure
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
lolo
Salut RGI
Merci beaucoup de ton coup de main. Par contre j'ai voulu modifier l'action du bouton valider mais lorsque je rajoute une ligne par exemple comme celle ci, elle ,e s'inscrit pas dans ma fauille base. En fait le but à la fin c'est quand je vais cliquer sur le bouton imprimer un rapport sera éditer et les contrôles devront figurer sur ce rapport.
Merci beaucoup A+
'Action lorsque l'on appuie sur la touche valider Private Sub validform_Click() Dim iDerligne As Integer Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("base") 'Feuille de travail.. iDerligne = sh.Range("B1").CurrentRegion.Rows.Count sh.Cells(iDerligne + 1, 1) = fiche 'Place textBox1 en A iDerligne+1 sh.Cells(iDerligne + 1, 2) = nom 'Place textBox2 en B iDerligne+1 sh.Cells(iDerligne + 1, 3) = daterecep 'Place textBox3 en D iDerligne+1 sh.Cells(iDerligne + 1, 4) = dateexpe 'Place textBox4 en E iDerligne+1 sh.Cells(iDerligne + 1, 5) = contrôle1 'Place Checkbox1 en F iDerligne+1 --> CETTE LIGNE
Salut RGI
Merci beaucoup de ton coup de main.
Par contre j'ai voulu modifier l'action du bouton valider mais lorsque
je rajoute une ligne par exemple comme celle ci, elle ,e s'inscrit pas
dans ma fauille base.
En fait le but à la fin c'est quand je vais cliquer sur le bouton
imprimer un rapport sera éditer et les contrôles devront figurer sur
ce rapport.
Merci beaucoup
A+
'Action lorsque l'on appuie sur la touche valider
Private Sub validform_Click()
Dim iDerligne As Integer
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("base") 'Feuille de travail..
iDerligne = sh.Range("B1").CurrentRegion.Rows.Count
sh.Cells(iDerligne + 1, 1) = fiche 'Place textBox1 en A
iDerligne+1
sh.Cells(iDerligne + 1, 2) = nom 'Place textBox2 en B iDerligne+1
sh.Cells(iDerligne + 1, 3) = daterecep 'Place textBox3 en D
iDerligne+1
sh.Cells(iDerligne + 1, 4) = dateexpe 'Place textBox4 en E
iDerligne+1
sh.Cells(iDerligne + 1, 5) = contrôle1 'Place Checkbox1 en F
iDerligne+1 --> CETTE LIGNE
Merci beaucoup de ton coup de main. Par contre j'ai voulu modifier l'action du bouton valider mais lorsque je rajoute une ligne par exemple comme celle ci, elle ,e s'inscrit pas dans ma fauille base. En fait le but à la fin c'est quand je vais cliquer sur le bouton imprimer un rapport sera éditer et les contrôles devront figurer sur ce rapport.
Merci beaucoup A+
'Action lorsque l'on appuie sur la touche valider Private Sub validform_Click() Dim iDerligne As Integer Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("base") 'Feuille de travail.. iDerligne = sh.Range("B1").CurrentRegion.Rows.Count sh.Cells(iDerligne + 1, 1) = fiche 'Place textBox1 en A iDerligne+1 sh.Cells(iDerligne + 1, 2) = nom 'Place textBox2 en B iDerligne+1 sh.Cells(iDerligne + 1, 3) = daterecep 'Place textBox3 en D iDerligne+1 sh.Cells(iDerligne + 1, 4) = dateexpe 'Place textBox4 en E iDerligne+1 sh.Cells(iDerligne + 1, 5) = contrôle1 'Place Checkbox1 en F iDerligne+1 --> CETTE LIGNE
RGI
il faut savoir ce que fait le checkbox coché ou décoché
j'ai fait apparaître les checkbox suivant les lignes sélectionnées mais elles sont décochées donc quand on appuie sur valider il faut vérifier si le checkbox visible est coché ou décoché checkbox(i).value = True ou False suivant cet état il faut savoir quelle valeur est affectée à ces conditions ex: si checkbox(i).value =True alors variable="tartepion" sinon variable="tartarin" ensuite seulement on pourra marquer
sh.Cells(iDerligne + 1, 5) = mavariable
salutations
RGI
Salut RGI
Merci beaucoup de ton coup de main. Par contre j'ai voulu modifier l'action du bouton valider mais lorsque je rajoute une ligne par exemple comme celle ci, elle ,e s'inscrit pas dans ma fauille base. En fait le but à la fin c'est quand je vais cliquer sur le bouton imprimer un rapport sera éditer et les contrôles devront figurer sur ce rapport.
Merci beaucoup A+
'Action lorsque l'on appuie sur la touche valider Private Sub validform_Click() Dim iDerligne As Integer Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("base") 'Feuille de travail.. iDerligne = sh.Range("B1").CurrentRegion.Rows.Count sh.Cells(iDerligne + 1, 1) = fiche 'Place textBox1 en A iDerligne+1 sh.Cells(iDerligne + 1, 2) = nom 'Place textBox2 en B iDerligne+1 sh.Cells(iDerligne + 1, 3) = daterecep 'Place textBox3 en D iDerligne+1 sh.Cells(iDerligne + 1, 4) = dateexpe 'Place textBox4 en E iDerligne+1 sh.Cells(iDerligne + 1, 5) = contrôle1 'Place Checkbox1 en F iDerligne+1 --> CETTE LIGNE
il faut savoir ce que fait le checkbox coché ou décoché
j'ai fait apparaître les checkbox suivant les lignes sélectionnées mais
elles sont décochées
donc quand on appuie sur valider il faut vérifier si le checkbox visible
est coché ou décoché
checkbox(i).value = True ou False
suivant cet état il faut savoir quelle valeur est affectée à ces conditions
ex: si checkbox(i).value =True alors variable="tartepion" sinon
variable="tartarin"
ensuite seulement on pourra marquer
sh.Cells(iDerligne + 1, 5) = mavariable
salutations
RGI
Salut RGI
Merci beaucoup de ton coup de main.
Par contre j'ai voulu modifier l'action du bouton valider mais lorsque
je rajoute une ligne par exemple comme celle ci, elle ,e s'inscrit pas
dans ma fauille base.
En fait le but à la fin c'est quand je vais cliquer sur le bouton
imprimer un rapport sera éditer et les contrôles devront figurer sur
ce rapport.
Merci beaucoup
A+
'Action lorsque l'on appuie sur la touche valider
Private Sub validform_Click()
Dim iDerligne As Integer
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("base") 'Feuille de travail..
iDerligne = sh.Range("B1").CurrentRegion.Rows.Count
sh.Cells(iDerligne + 1, 1) = fiche 'Place textBox1 en A
iDerligne+1
sh.Cells(iDerligne + 1, 2) = nom 'Place textBox2 en B iDerligne+1
sh.Cells(iDerligne + 1, 3) = daterecep 'Place textBox3 en D
iDerligne+1
sh.Cells(iDerligne + 1, 4) = dateexpe 'Place textBox4 en E
iDerligne+1
sh.Cells(iDerligne + 1, 5) = contrôle1 'Place Checkbox1 en F
iDerligne+1 --> CETTE LIGNE
il faut savoir ce que fait le checkbox coché ou décoché
j'ai fait apparaître les checkbox suivant les lignes sélectionnées mais elles sont décochées donc quand on appuie sur valider il faut vérifier si le checkbox visible est coché ou décoché checkbox(i).value = True ou False suivant cet état il faut savoir quelle valeur est affectée à ces conditions ex: si checkbox(i).value =True alors variable="tartepion" sinon variable="tartarin" ensuite seulement on pourra marquer
sh.Cells(iDerligne + 1, 5) = mavariable
salutations
RGI
Salut RGI
Merci beaucoup de ton coup de main. Par contre j'ai voulu modifier l'action du bouton valider mais lorsque je rajoute une ligne par exemple comme celle ci, elle ,e s'inscrit pas dans ma fauille base. En fait le but à la fin c'est quand je vais cliquer sur le bouton imprimer un rapport sera éditer et les contrôles devront figurer sur ce rapport.
Merci beaucoup A+
'Action lorsque l'on appuie sur la touche valider Private Sub validform_Click() Dim iDerligne As Integer Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("base") 'Feuille de travail.. iDerligne = sh.Range("B1").CurrentRegion.Rows.Count sh.Cells(iDerligne + 1, 1) = fiche 'Place textBox1 en A iDerligne+1 sh.Cells(iDerligne + 1, 2) = nom 'Place textBox2 en B iDerligne+1 sh.Cells(iDerligne + 1, 3) = daterecep 'Place textBox3 en D iDerligne+1 sh.Cells(iDerligne + 1, 4) = dateexpe 'Place textBox4 en E iDerligne+1 sh.Cells(iDerligne + 1, 5) = contrôle1 'Place Checkbox1 en F iDerligne+1 --> CETTE LIGNE
lolo
Salut
En fait je vais faire autrement je vais imprimer le formulaire tel qu'il est à l'ecran... J'ai fais quelques modifications du fichier donc je le remet en lien. J'ai essayé de faire une macro sur le bouton de l'userform Ouverture je voudrais que ce boutoin retrouve une fiche existant mais ca ne fonctionne pas...
Merci de ton aide car je suis vraiment à l'ouest...
http://cjoint.com/?lAuItB652v
Salut
En fait je vais faire autrement je vais imprimer le formulaire tel
qu'il est à l'ecran...
J'ai fais quelques modifications du fichier donc je le remet en lien.
J'ai essayé de faire une macro sur le bouton de l'userform Ouverture
je voudrais que ce boutoin retrouve une fiche existant mais ca ne
fonctionne pas...
Merci de ton aide car je suis vraiment à l'ouest...
En fait je vais faire autrement je vais imprimer le formulaire tel qu'il est à l'ecran... J'ai fais quelques modifications du fichier donc je le remet en lien. J'ai essayé de faire une macro sur le bouton de l'userform Ouverture je voudrais que ce boutoin retrouve une fiche existant mais ca ne fonctionne pas...
Merci de ton aide car je suis vraiment à l'ouest...
