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

Amelioration user form

  • Initiateur de la discussion Initiateur de la discussion nic81
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
118
Réponses
4
Affichages
135
  • Question Question
XL 2019 User Form
Réponses
9
Affichages
357
Réponses
3
Affichages
411
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…