Exporter valeur textbox par selection dans combobox
Bonjour Ric,
Foruim
Merci pour ta contribution code changé impeccable.
Tout fonctionne parfait un grand merci.
ric
Oui jusqu' a la prochaine modif.
https://forum.excel-pratique.com/posting.php?mode=smilies&https://forum.excel-pratique.com/posting.php?mode=smilies&f=2#f=2#
Bonsoir Ric,
Forum
Je reviens vers toi pour une petite modif
je me rends compte qu'il serait aussi pratique de pouvoir
faire aussi une sélection par le nom du client
es ce possible de rajouter une autre combo pour sélection aussi par nom de client a partir de la feuille client
afin de faire les mêmes manips qu'avec la sélection par num.
Bonjour Ric,
Forum admin, desolé pour le fichier
Je reviens vers toi pour une petite modif
je me rends compte qu'il serait aussi pratique de pouvoir
faire aussi une sélection par le nom du client
es ce possible de rajouter une autre combo pour sélection aussi par nom de client a partir de la feuille client
afin de faire les mêmes manips qu'avec la sélection par num.
Bonjour,
Je regarde cela ...
ric
Bonjour à tous,
Voir si ça convient ...
- En saisissant du texte dans TextBox_Societe, Cbo_Societe est désactivé.
- En sélectionnant un item dans Cbo_Societe, TextBox_Societe est désactivé.
ric
Bonsoir Ric
Forum,
Merci Ric pour cette avancée
Quand validation OK la cellule F9 ne reçois pas la TextBox_Societe puisque elle est vide
je ne peux pas modifier les coordonnées a cause de l'alerte rouge champs vide
il faudrait TextBox_Societe = Cbo_Societe pour pouvoir changer éventuellement le nom de la société dans le temps
J ai essaye de bidouiller sans résultat.
Ric
en mettant ici
Private Sub Cbo_Societe_Change()
Me.TextBox_Societe.Enabled = True
Me.CommandButton_Ajouter.Caption = "Modifier"
N = Me.Cbo_Societe.ListIndex + 2
Me.TextBox_N°Client.Enabled = False
Call Societe_Suite
End Sub
je peux modifier le nom
mais le problème persiste quand je select par combo ou par num
la TextBox_Societe reste vide
Bonjour,
Dans les débuts de Private Sub CommandButton_Ajouter_Click()
Modifier ce segment ainsi...
ElseIf TextBox_Societe.Value <> "" And Me.Cbo_Societe <> "" Then
Label_SocieteT.ForeColor = RGB(255, 0, 0) 'SocieteDésolé pour la coquille.
ric
Pour F9 feuille DEVIS j'ai changé ça
C'est bon ?
Private Sub OK_Click()
Dim N As Long
N = Me.Cbo_NoClient.ListIndex
If N > 0 Then
With Worksheets("DEVIS")
.Range("H2").Value = Me.TextBox_N°Client.Value
.Range("F9").Value = Me.Cbo_Societe.Value
.Range("F10").Value = Me.TextBox_Adresse.Value
.Range("F11").Value = Me.TextBox_Ville.Value
.Range("B15").Value = Me.TextBox_Telephone.Value
.Range("B16").Value = Me.TextBox_Email.Value
Unload Me
End With
Else
MsgBox "Veuillez choisir un client"
End If
End Sub
Bonjour,
Effectivement, il manquait aussi cette petite correction.
Je te laisse reproduire les différents scénarios.
Au besoin ...
ric
Ric,
Mes souci ne sont pas réglés ca ne marche pas comme je veux
je ne peux modifier le nom qu'en le faisant avec ces étapes:
1)select avec "combo" ----> effacement du nom-------> "Modifier" ----> verif feuile client plus rien dans la colonne nom clients
2) "reinitialise user"----> select par num le meme num nom du client effacé-----> entré nvx nom dans "TextBox_Societe" qui est maintenant accessible------> "Modifier"-----> control dans la feuil client ok c'est rempli !
Casse tete.......
Pas cool tout ça
Bonjour,
D'autres corrections ...
- vérification si la variable "Nom" est vide, la remplir avec la valeur de Cbo_Societe
- puis, réexécuter "LireNomSociete" pour actualiser Cbo_Societe; ainsi, on peut corriger les infos de plusieurs clients à la suite.
Observation :
- "Societe/Nom" > tu imposes une civilité. Même pour un nom de société ??
ric
Bonjour Ric
Forum,
EXCELLENT
Observation :
- "Societe/Nom" > tu imposes une civilité. Même pour un nom de société ??
Non uniquement pour les particuliers a Modifier si tu peux
Une derniere choses vu hier soir :
Quand je sectionne par numero avec Cbo_NoClient
la copie vers feuille devis cellule F9 ne se fait qu'a partir du num 113 le 112 ne passe pas .
Phil
Bonjour,
Dans Private Sub OK_Click()
modifie N = Me.Cbo_NoClient.ListIndex
pour N = Me.Cbo_NoClient.ListIndex + 1
Concernant la civilité, sélectionne OptionButton1 (Mme), dans ses propriétés > mets Value = False.
Ainsi, aucun des optionsbutton (Mme, Mlle ou M) ne sera sélectionné par défaut. Il restera à en sélectionner un au besoin.
ric
Ric
Modif faite ça fonctionne
un petit bonus après je ne t’embête plus parce que la on est au bout .
lors de l'ouverture es ce possible d'avoir dans la TextBox_N°Client le numéro suivant le dernier inscrit de la feuille client
Bonjour,
... après je ne t’embête plus parce que la on est au bout ...
Remplace par :
Private Sub UserForm_Initialize()
Dim Dlig As Long
Dlig = Worksheets("CLIENTS").Cells(Rows.Count, "A").End(xlUp).Row
Me.TextBox_N°Client.Value = Worksheets("CLIENTS").Cells(Dlig, "A").Value + 1
Call Me.LireNoClient
Call Me.LireNomSociete
Me.CommandButton_Ajouter.Caption = "Ajouter"
End Subric
Merci pour tout Ric
c'est nickel
Merci d'avoir consacré du temps sur mon fichier
Cette fois c'est bon je te laisse soutenir d'autres personnes moins envahissante que moi.