list déroulante pour modification

[aziz]

Bonjour à tous et au forum.
Avec la liste déroulante de ma combobox, je souhaiterai faire appel au nom de la personne avec ses coordonnées pour pouvoir les modifier.
Merci pour votre aide à tous.

 

[phlaurent55]

Re : list déroulante pour modification

Bonjour aziz,

voir fichier joint


à+
Philippe

 

[BOISGONTIER]

Re : list déroulante pour modification

Bonjour,

cf PJ

JB

 

[aziz]

Re : list déroulante pour modification

Grand merci a vous deux
Laurent et BOISGONTIER.
Question ? lors de la saisie dans ma textbox : Date d'entrée, peut on imposer la saisie de cette façon : _ _ / _ _ / _ _ _ _
en ayant les slach automatiquement.
merci

 

[aziz]

Re : list déroulante pour modification

Re Bonjour philippe, je regarde le fichier mais impossible de faire une modification du client
ce qu'il me fait c'est de rajouter une ligne a la suite.😕
merci

 

[aziz]

Re : list déroulante pour modification

J'ai essayer avec ceci, mais j'ai une erreur d'exécution 424 :

Private Sub CommandButton1_Click()

Dim CTRL As Control 'Variable pour la collection des controls
Dim i As Integer
Dim Response As Byte

'Si le User tente de change le nom de la ComboBox en Mode Modification
If Me.ComboBoxParNom.ListIndex = -1 Then Exit Sub 'ON sort si pas de sélection
'Ici un message demandant d'accepter les changement en les listant
Response = MsgBox("Acceptez vous les changements ? ", vbQuestion + vbOKCancel, T & " Modification de : " & Nom)
'Si Réponse OK on continue
If Response = 1 Then
'ici avec la Feuille on va faire :
With WS
.Range("A" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxDate ' On écrit dans chaque colonne les valeurs des différents controls
.Range("B" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxnom ' Idem
.Range("C" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxprénom ' Idem
.Range("D" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxAdresse ' Idem
.Range("E" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxcodepostal ' Idem
.Range("F" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxville ' Idem
.Range("G" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxNtelephone
.Range("H" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxnuméroCI
.Range("I" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxCIdélivré
.Range("J" & Me.ComboBoxParNom.ListIndex + 3) = TextBoxmail

End With 'On evoie un message de confirmation
MsgBox "Opération accomplie", vbInformation, T

Else
MsgBox "Opération annulée", vbInformation, T
End If

End Sub

 

[aziz]

Re : list déroulante pour modification

Bonsoir au forum
quelqu'un à une idée pourquoi cela ne fonctionne pas ?
merci

 

[cathodique]

Re : list déroulante pour modification

Bonjour Aziz,

Je pense que tu n'as pas déclaré la variable WS, rajoute ces 2 lignes à ton code

WS As Worksheet
Set WS = Worksheets("Base client")

Cordialement,

Cathodique

 

[aziz]

Re : list déroulante pour modification

Merci beaucoup cathodique.
Question ?
lors de la saisie dans ma textbox : Date d'entrée,
peut on imposer la saisie de cette façon : _ _ / _ _ / _ _ _ _
en ayant les slach automatiquement.
merci

 

[cathodique]

Re : list déroulante pour modification

Tu as beaucoup de change, j'avais moi aussi sollicité de l'aide dans ce sens et j'ai retrouvé le code que j'ai intégré dans le fichier joint.

J'espère que c'est ce que tu veux.

 

[aziz]

Re : list déroulante pour modification

Merci beaucoup, c'est parfait

 

[aziz]

Re : list déroulante pour modification

Par contre si je souhaite l'appliquer sur une autre textbox (dans mon cas dilivré le🙂
faut il créer un 2eme module ou bien à la suite du module ?
merci

 

[cathodique]

Re : list déroulante pour modification

Non, tu ne crées pas un 2ème module. Tu fais appel au même module dans l'évènement de ta textbox.