Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Amelioration user form

nic81

XLDnaute Junior
Bonjour

Avec l'aide de plusieurs personnes du forum et de plusieurs fichiers trouvés sur le forum, j'ai adapté un user form
Mais comme je ne connais rien au vba, j'ai beaucoup de mal. Depuis hier, j'ai voulu faire une amélioration, mettre le code postal et la ville avec une combo box, je suis arrivée a faire la liste déroulante, je vois cp et ville. (je n'ai pas fini de tout mettre en place) j'avance petit à petit

Mais maintenant quand je clique sur le nom du patient j'ai une erreur d'exécution. je ne sais pas ce qu'il faut corriger

Pouvez vous m'aider ?

J'ai une autre question est ce que le cp et la ville (qui sont en combobox) s'afficheront sur le tableau comme les autres données

Merci beaucoup de prendre le temps de regarder mon fichier (fichier joint)

Merci de votre aide

Cordialement
 

Pièces jointes

  • essai fichier.xlsm
    80.3 KB · Affichages: 51
  • essai fichier.xlsm
    80.3 KB · Affichages: 51
  • essai fichier.xlsm
    80.3 KB · Affichages: 55

natorp

XLDnaute Barbatruc
Re : Amelioration user form

Bjr nic81

Le code ne trouve plus le textbox4. En fait il faut que le nom du combobox pour les codes postaux s'appelle textbox4, idem dans la macro UserForm_Activate

cordialement, Gérard
 

nic81

XLDnaute Junior
Re : Amelioration user form

Bonsoir Natorp

merci pour ta réponse, j'ai fait la correction et j'ai un nouveau message d'erreur
--
Erreur de compilation:

Membre de méthode ou de données introuvable ( sur offset)
---------------------------
Private Sub textbox4_Change()
Dim Cell As Range
Me.Comboville.Clear
With Sheets("cpvilles")
For Each Cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
If CStr(Cell) = Me.textbox4 Then
Me.TextBox5.AddItem (Cell.Offset(0, 1))
End If
Next
End With
If Me.TextBox5.ListCount = 1 Then
Me.TextBox5.ListIndex = 0
End If

End Sub

Merci beaucoup de votre aide
 

natorp

XLDnaute Barbatruc
Re : Amelioration user form

Re,

moi je n'ai pas d'erreur....

Voir le fichier joint, cordialement, Gérard
 

Pièces jointes

  • test1.xls
    179 KB · Affichages: 58
  • test1.xls
    179 KB · Affichages: 33
  • test1.xls
    179 KB · Affichages: 47

Discussions similaires

Réponses
3
Affichages
280
Réponses
2
Affichages
507
Réponses
16
Affichages
858
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…