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

XL 2016 Changement de recherche de critère des listes et adaptation aux usf

Y

YAP32

XLDnaute Occasionnel
Bonsoir à toutes et à tous,

Voilà je suis employé dans une petite société privée et au bureau on utilise la version Excel 2016 en FR.

Nous avons un fichier de client qui est très basique et j'avais proposé de créer un fichier Excel de gestion client et de rendez-vous.

Après plusieurs recherches sur la toile je suis tombé sur un fichier téléchargeable et gratuit mais impossible de l'adapter à notre source je ne suis pas du tout expert dans les codes VBA.

Donc je suis ici pour demander votre aide précieux afin de supprimer certaines colonnes du fichier téléchargé afin de l'adapter dans les 2 userform et supprimer du userform ce qui n'est pas nécessaire pour la gestion de client et gestion des rendez-vous.

Si c'est possible je souhaiterais supprimer ce qui est noté dans le fichier Excel ci-dessous et l'adapter niveau la page 'client'.
Notre page de client assez simple dont un tableau l'en-tête des colonnes qui sont: Nom Société /Rue /Code Postal /Ville /N° TVA /N° de Téléphone et Adresse Mail.

Le fichier contient plus de données dont si c'est possible de supprimer les colonnes comme d'écrit dans le fichier et de l'adapter dans les userforms.(il y en a 2).

PS: On avait essayé avec un collègue du bureau de supprimer mais c'était un résultat catastrophique quand j'ai supprimé les colonnes A, Ces, D, E, F, G et I les USF ne réponds plus et si possible dans le userform gestion client niveau numéro de téléphone modifier au format belge genre +32 475 75 75 99 et aussi le N° de Tva vers le format 0 756 852 321.

Merci d'avance.

YAP32
 

Pièces jointes

  • v1-agenda-osteov2.xlsm
    104.7 KB · Affichages: 8
Solution
YAP32 à dit:
Pas de soucis, je connais ce site et depuis 2 jours je cherche des solutions ici mais bon. Merci.
Cliquez pour agrandir...
Bonjour,

@YAP32 : Finalement, tu cherches du tout cuit en pointant ton message comme résolu.
En t'inspirant du FrmClient (qui est fonctionnel), tu aurais pu arriver à quelque chose en travaillant plus.
Sur l'autre forum, on ne se donnerait pas même pas la peine de répondre à ton message.
J'en déduis aussi que plus on donne, plus on nous en demande. Je t'ai aidé pour le 1er userform, pour le second désolé, j'ai aussi mes petits soucis. Il semble que tu sois pressé d'avoir un fichier exploitable.
Bonne continuation.

ps: il ne faut jamais abandonner
Trier par date Trier par votes

ChTi160

XLDnaute Barbatruc
Bonjour YAP32
Bienvenue sur XLD
il faudrait que tu travailles sur les Userform et y mettre ce que tu veux y trouver et Quoi y faire !
Renomme les Controls que tu veux garder et mets-y le texte que tu veux etc
Ensuite on pourra travailler a adapter les procédures.
Bonne Journée
Jean marie
 
Vote positif 1 Vote négatif

ChTi160

XLDnaute Barbatruc
Re
une première approche
j'ai modifié la présentation du Userform "Clients" (en fonction de ce que j'ai compris)
Perfectible
Jean marie
 

Pièces jointes

  • v1-agenda-Chti160-1.xlsm
    109.3 KB · Affichages: 8
Vote positif 1 Vote négatif
Y

YAP32

XLDnaute Occasionnel
Bonjour Chti60,

Je te remercie infiniment pour ton aide. À l'ouverture du fichier j'ai un message : membre de méthode ou de données introuvable ci-joint en image.

Dans le userform gestion client je souhaite garder l'option critères de recherche client afin de pouvoir choisir le client et modifier, supprimer ou ajouter, mais peut-être qu'ils sont là mais en raison du message de compilation on ne les voit pas ? Comme dans les images.

Les userform je n'ose pas trop toucher/modifier mais je peux organiser niveau visuel

Merci

Yap32
 

Pièces jointes

  • Message_d'ouverture.PNG
    41.1 KB · Affichages: 27
  • Criteres_de_recherche.png
    97.5 KB · Affichages: 26
  • Criteres_de_recherche_client_selectione.png
    75.5 KB · Affichages: 22
  • Criteres_de_recherche_client_selectione_modification.png
    81.2 KB · Affichages: 24
Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc
Bonjour @ChTi160 , @YAP32 ,

@YAP32 : Je n'ai pas compris pourquoi à l'ouverture du fichier vouloir vider la listbox alors que le formulaire n'a encore été initialisé (ouvert). Il te suffit de supprimer la procédure qui plante.

Le fichier joint a été conçu pour géré des Patients. Les userforms sont à adapter. Il faut donc oser y toucher.
Maintenant, si tu es là pour un coup de pouce, je suis partant pour t'aider. Par contre si c'est pour du tout cuit, je passe la main.
D'après tes tableaux, je pense c'est ce qu'il te faut (image)

A+
 
Dernière édition:
Vote positif 1 Vote négatif
Y

YAP32

XLDnaute Occasionnel
Bonjour cp4,

Je vous remercie d'avance et comme vous l'avez mentionné j'ai supprimé dans Thisworkbook le clear.
Mais je n'ai pas le même fichier que vous. Pouvez-vous ajouter le fichier que vous avez SVP chez moi ce n'est pas du tout le même fichier je j'ai pas cette fenêtre.

PS: Puis je ferai des changements et je reviendrais vers vous.

Cordialement.
 

Pièces jointes

  • Client Rendez-vous.png
    37.2 KB · Affichages: 26
Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc
Re,

J'ai pris ton fichier joint et suivant tes explications j'ai supprimé certains contrôles du formulaire FrmPatient.
 
Vote positif 1 Vote négatif

ChTi160

XLDnaute Barbatruc
Re
le fichier ou j'ai supprimé le Workbook_Open
soit
VB: 
Private Sub Workbook_Open()
FrmPatient.Lb_Patient.Clear
End Sub
et plus de Message à l'ouverture Lol
Jean marie
 

Pièces jointes

  • v1-agenda-Chti160-1.xlsm
    112.4 KB · Affichages: 5
Vote positif 1 Vote négatif
Y

YAP32

XLDnaute Occasionnel
ChTi160 à dit:
Re
le fichier ou j'ai supprimé le Workbook_Open
soit
VB: 
Private Sub Workbook_Open()
FrmPatient.Lb_Patient.Clear
End Sub
et plus de Message à l'ouverture Lol
Jean marie
Cliquez pour agrandir...
Un Tout grand MERCI.

J'avais déjà supprimé, mais plus accès dans la deuxième USF impossible de chercher/ajouter/modifier ou même supprimer le client -> gestion client.

Le fichier de cp4 super quand je fais ajouter/modifier ou autre il me donne d'autre erreur.

J'ai essayé de changer le format du N° de téléphone vers +32 ##0\ 00""0\ 000 ex; +32 475 100 555 rien n'est semblable et idem pour la N° de tva le format est 0\ 000\ 000\ 000 exemple 0 890 355 638

A+
 

Pièces jointes

  • v2-agenda-osteov2.xlsm
    126.4 KB · Affichages: 3
Dernière édition:
Vote positif 0 Vote négatif
Y

YAP32

XLDnaute Occasionnel
Bonsoir à tous,

J'essaie de modifier un client dans le USF-> gestion client mais je reçois le message : erreur d'exécution : 13 "incompatibilité de type comment modifier le (n = Me.Lb_Patient.Value) ici le Lb.Patient c'est quoi ? où puis-je le modifier cela fait quasi 2 heures que je tourne en rond.

PS:Je tiens à vous préciser que je suis novice de novice en vba

Mais je continue à tourner en rond


Dans N° téléphone ; j'ai ajouté entre "" le format +32 ##0\ 00""0\ 000 mais ne reponds pas non plus

Private Sub TxtN°téléphoneFrmPatient_Change()

TxtN°téléphoneFrmPatient.MaxLength = 16 (avant 14 ici)
Select Case Len(TxtN°téléphoneFrmPatient.Value)
Case 2, 5, 8, 11
TxtN°téléphoneFrmPatient.Value = TxtN°téléphoneFrmPatient.Value & "+32 ##0\ 00""0\ 000 "
End Select
TxtAlerteFrmPatient = ""

End Sub

Merci

A+
 
Dernière édition:
Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc
YAP32 à dit:
PS:Je tiens à vous préciser que je suis novice de novice en vba

Mais je continue à tourner en rond

A+
Cliquez pour agrandir...
Bonjour,

@YAP32 : Novice, tu t'attaques donc à un gros projet sans B.A BA du VBA. ICI une mine d'or de feu Jacques Boisgontier.
Tu tournes en rond, c'est normal car tu as pris le projet de quelqu'un d'autre. Il faut donc faire l'effort de comprendre puis modifier/corriger le code.

Je suis un peu occupé, je ne serai donc pas très réactif. J'ai fait une petite modification concernant la ville et le code postal. En effet, dans le fichier joint, la ville peut ne pas correspondre au cp saisie(voir démo)

Bonne journée.
 
Vote positif 1 Vote négatif

cp4

XLDnaute Barbatruc
Bonjour,

Pour te permettre d'avancer, Laisse la procédure ci-dessus dans ton message telle qu'elle était et ajoutes cette procédure. le numero sera mis à jour en passant en passant à un autre contrôle.
VB: 
Private Sub TxtN°téléphoneFrmPatient_AfterUpdate()
TxtN°téléphoneFrmPatient = "+32 " & Format(TxtN°téléphoneFrmPatient, "0#"" ""##"" ""##"" ""##"" ""##")
End Sub
nb: je n'ai traité que le bouton "ajouter" pas "modifier"
 
Vote positif 1 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Question
Microsoft 365 recherche multicritère de la valeur suivante
2
Réponses
29
Affichages
871
alexga78
A
W
  • Question
Microsoft 365 Formule combinant multiples critères et OU
Réponses
4
Affichages
470
Wiil85
W
P
  • Résolu(e)
XL 2013 Creations de macro
Réponses
3
Affichages
470
PR.
P
  • Résolu(e)
XL 2016 Incrémenter des formules dans une feuille, en la copiant et la renommant en même temps
Réponses
9
Affichages
521
jgav
C
  • Question
XL 2010 Recherche de colonne et calcul sur 2 années consécutives
Réponses
0
Affichages
211
CS49
C
Y
  • Résolu(e)
XL 2019 Userform à adapter par rapport les colonnes d'un tableau
2
Réponses
21
Affichages
1 K
YAP32
Y
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
973
Alexandrax971
A
B
  • Question
XL 2016 VBA formulaire incrémenter un N° de facture selon l'année(mais dates sur deux colonnes)
Réponses
4
Affichages
571
badduke
B
B
  • Question
Microsoft 365 Automatisation fichier de compte rendu
Réponses
13
Affichages
1 K
Blf57
B
S
  • Question
XL 2021 Planning de suivi des actions pour service Hygiène Sécurité et Environnement
Réponses
2
Affichages
821
fanfan38
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…