List combobox et affiche un message

Bonjour

regarde bien tu as de 1 à 7 pour la valeur de tes textboxs pour (pompe à chaleur) ( For i = 1 To 7 ) donc,

si tu regardes bien la valeur doit changé de 8 to 14 ( For i = 8 To 14 ) pour ta combo2 ( Chaudiere Bois Granule)

crdlt,

André

Voila c'est fait mais je n'ai la textbox9 qui fonctionne ?

Private Sub ComboBox2_Change()

If flag = 1 Then

flag = 0

Exit Sub

End If

With Sheets("Chaudiere Bois Granule")

ln = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row).Find(ComboBox2, lookat:=xlWhole).Row

For i = 8 To 14 'affectation textbox 8 à 14

Controls("Textbox" & i) = .Cells(ln, i).Value

Next i

End With

End Sub

RE André,

en regardant les 1 à 7 correspondent aux colonnes et Non aux textbox1 à 7 ?

Car en écrivant For i = 8 to 14 je lui affecte les colonnes 8 à 14

Help me

Cordialement

Re,

Problème actuel:

-1 Userform avec un Multipage (page 1,2 et3) par sélection d'une des trois combobox afin d'afficher la liste sur une des trois feuilles du classeur

je place ci-joint ou j'en suis, reste à trouver comment faire pour réinitialiser les textbox (raffraichir) à chaque changement de cette fameuse multipage

merci d'avance à celles ou ceux qui pourront trouver l'astuce car moi là ! c'est une grosse énigme

bonne fin de soirée à toues et tous

Bonjour toutes et tous

Marc1972 comme je n'aime pas perdre (je suis un mauvais perdant)

Nouvelle mouture

j'ai fait en sorte que tu n'es plus le multipage, donc, 3 userforms différents et qui sont fonctionnels

et qui te fait le travail autant bien

à toi de le remodeler et à vérifier l'ajout des données de chaque USFs (car là j'étais out)

ci-joint

crdlt,

André

Bonjour André13

et merci bcp

Cdlmt

Bonsoir André13,

Regarde mon fichier, il y a une subtilité par contre peux tu voir pourquoi la modification ne fonctionne pour les 3 feuilles ?

Et par la même occasion concernant les boutons "Supprimer ligne produit" je souhaiterai c'est de supprimer directement la ligne dans les onglets concernés "POMPE A CHALEUR" "Chaudiere Bois Granule" et "Chauffe Eau Electrique".

Merci

cdlmt

Bonsoir toutes et tous,

j'ai juste à peine regarder tu as réalisé un bon boulot ^^ cool avec les images mais...

alors, en faite pour répondre à ta question 1

c'est ce que j'avais commencé et pratiquement identique avec ce que tu as réalisés (sans images lol) mais hélas!, je me suis rendu vite compte une histoire de rafraîchissement de ce multipage (page1-2 et 3) qu'à chaque fois au changement de menu de ces pages 1-2 et 3 qui se numérote pas pareil en vba 0, 1 et 2 de l'USF il faut que les textbox se vident à chaque fois (1 to 7) et que ces textboxs et combos reprennent à chaque fois en mémoire la feuille adéquate, c'est pour cela que j'ai préféré repartir sur une autre base avec 3 userforms différents et faire appel aux feuilles destinées, j'ai regardé sur le Net fouiné un peu de partout mais, pour l'instant grrr niet

ta question 2

si la 1ere question n'est pas réglé la 2 risque de fonctionner à moitié

j'espère me trompais sur tout les plans et je vois ce que tu veux réalisés mais mon niveau n'est pas assez expertiser en la matière

ne t'inquiètes pas si je trouve une solution, je te ferais signe illico presto

sur ceci, bonne fin de soirée , je jetterai un oeil demain à tête reposé

EDIT: je vois que c'est faisable, il me reste plus qu'à régler s'il trouve pas la référence qu'il stoppe car là il me supprime à chaque fois les dernieres lignes (test sur les 3 feuilles idem) en cours de test...

crdlt,

André

Merci

Bonne soirée

Bonjour André13

regarde mon fichier ça a l'air de fonctionner

je ne suis pas un expert qu'en penses tu ?

Cdlmt

Bonjour

çà à l'air oki bon

je vois que tu as rajouté un bouton vider le contenu des textboxs et la combo

1/ j'ai vu une ch'tite erreur sur :

MsgBox "La modification a été prise en compte." vbinformation, t

2/ Tu peux rajouter ci-dessous (double clic gauche sur une des combo t'efface le contenu en live) (facultatif)

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ctr As Object
For Each ctr In Me.Controls
    If ctr.Name Like "TextBox*" Then ctr.Value = ""
Next
       UserForm1.ComboBox1.Value = ""
End Sub

Private Sub ComboBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ctr As Object
For Each ctr In Me.Controls
    If ctr.Name Like "TextBox*" Then ctr.Value = ""
Next
       UserForm1.ComboBox2.Value = ""
End Sub

Private Sub ComboBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ctr As Object
For Each ctr In Me.Controls
    If ctr.Name Like "TextBox*" Then ctr.Value = ""
Next
       UserForm1.ComboBox3.Value = ""
End Sub

3/ Demande par confirmation afin de modifier un article (recommandé) voir (5)

4/ à remodeler (facultatif)

 '****************************************** quitter l'UserForm
Private Sub quitter1_Click()
If MsgBox("Etes-vous certain(e) de vouloir quitter ?", vbYesNo, "Demande de confirmation") = vbYes Then
    Unload Me
    Else
    Exit Sub
    End If
End Sub

5/ Tu peux griser les textbox (impossible de les modifier tant qu'on a pas cliquer sur le bouton Modifier avec demande de confirmation. (facultatif)

6/ Le nombre d'articles dans chaque

7/ un fichier RESUME supplémentaire des actions effectuées par date afin d'avoir un suivi éventuel (bien entendu c'est facultatif)

7 / it's very good good work

bien travaillé, bon Week-end

Bon week

également

Bonjour André13 et au forum,

J'ai bien avancé sur mon fichier.

J'ai 2 questions :

1) j'ai réussir à convertir ma textbox7 en chiffre lorsque j'envoi l'info sur la feuille Devis,

grace à Cells(x, 7).Value = CCur(TextBox7.Value) mais par contre je n'y arrive pas à la convertir lorsque je fais une modification de prix avec le bouton "Private Sub CommandButton1_Click()" de l'onglet pompe à chaleur ????

2) Lorsque je crée un nouvelle article, le code vérifie s'il existe un N° de référence identique et un modèle identique.

je souhaite que le message s'affiche s'il trouve ou l'un ou l'autre (soit 1 sur 2)

Car actuellement il faut qu'il y est les 2 evenements soit présent pour avoir le message, s'il il y en a que un détecté le code continu.

Merci pour tes lumières

Cdlmt

Bonjour

Le code peut être réduit. Essayez le comme ceci :

Private Sub CommandButton1_Click()
Dim sh As String
    flag = 0
    If Me.ComboBox1.ListIndex < 0 Then Exit Sub ' si combobox1 vide rien ne ce passe
    sh = ActiveSheet.Name
    With Sheets(sh)
        On Error Resume Next
        ln = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Find(ComboBox1, lookat:=xlWhole).Row
        If ln = 0 Then MsgBox "La référence n'est pas trouvée dans la feuille " & sh: Exit Sub
        For i = 1 To 7
            .Cells(ln, i) = Controls("TextBox" & i).Value
            Controls("TextBox" & i).Value = ""
        Next i
        ComboBox1.ListIndex = -1

    End With

    MsgBox "La modification a été prise en compte."
End Sub

Par contre la modification ne sera prise en compte que dans le devis

Cordialement

Bonjour Dan et merci

tu n'a pas une idée pour la vérification référence et modèle

Merci

Bonjour

pour ton textbox7 Prix de ton USF

il serai préférable de rajouter l'autorisation 'chiffres alphanumérique' ainsi que la 'virgule flottante'

Info : Un message box qui signale que le caractère est non autorisé

Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 If InStr(1, "0123456789.,", Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then
    MsgBox "Caractère non autorisé", vbinformation
    KeyAscii = 0
 End If
End Sub

crdlt,

André

Bonjour André13

Grace à toi j'ai répondu à mon 1) c'est super merci.

As tu une idée pour mon 2) concernant la vérification de la référence et modèle ?

Merci

Re,

pour la référence est modèle c'est préférable de mettre sur chaque feuille et non sur l'USF

une recherche de modèle sélectionne la ligne et la colorise et/ou idem pour la référence

non qu'en pense -tu ?

je regarderai demain de plus près

merci

Bonjour André13, Dan et au forum

J'ai réussie à finaliser mon fichier

Est ce que le code est trop lourd ? peut on le simplifier ?

je ne sais pas.

Bonne Journée à tous