Microsoft 365 Problème dans mon formulaire de recherche vba

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion dubarre
  • 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 !

S'inscrire
D

dubarre

XLDnaute Occasionnel
Bonjour à tous,

Je viens vous voir car j'ai un souci dans mon classeur j'ai une base de données :

- la première colonne est agrémenté par le userform1 label8 quand je clique sur enregistrer ça alimente la base de données correctement

-dans le userform3 je recherche soit par le numéro de l'artiste soit par le nom de l'artiste quand je clique sur le bouton valider le userform2 s'ouvre et doit rentrer les données de la personne concernée.

Mon problème vient que quand le formulaire s'initialise rien ne se passe et je n'arrive pas à trouver d'où vient l'erreur j'ai monté ce classeur avec plusieurs tutoriel mais je vous avoue que là je bloque pouvez-vous m'aider s'il vous plaît.
 

Pièces jointes

Solution
_Thierry
Re Bonjour @dubarre , Patrick , le Forum

Bon je ne sais pas encore si tu es dans les temps et dans les clouts pour ta démo-présentation Lundi, mais pour ton UserForm2, Modification, bouton "Supprimer la fiche"...

Je te propose ce code :
VB: 
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'Supprimer la fiche
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

Private Sub CommandButton4_Click()
Dim WSBDD As Worksheet
Dim PlageNumeroArtiste As Range, CellNoArtiste As Range

Set WSBDD = ThisWorkbook.Worksheets("BDD")
Set PlageNumeroArtiste = WSBDD.Range("B2:B" & WSBDD.Range("A5000").End(xlUp).Row)

If Me.TextBox17 <> "" Then
    If MsgBox("Etes-vous sûr de définitivement supprimer " & vbCrLf & Me.TextBox2...
Trier par date Trier par votes
Bonjour je reviens vers vous car j'ai un petit problème dans mon classeur quand je rentre les données dans le formulaire création fiche artiste au niveau des dates je sélectionne dans ma liste déroulante boursier quand je clique sur enregistrer cela fonctionne par contre quand je mets la formule

Code: 
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'ENREGISTREMENT DANS FEUILLE BDD
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

Dim i As Integer, baseDD As Worksheet, dligne As Long
Set baseDD = Sheets("BDD")
dligne = Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row + 1

    baseDD.Cells(dligne, 1).Value = Me.Label8.Caption 'id
    baseDD.Cells(dligne, 2).Value = Me.TextBox17.Value 'Nouveau N°
    baseDD.Cells(dligne, 3).Value = Me.CbxCivilite.Value 'civilité
    baseDD.Cells(dligne, 4).Value = Me.TextBox2.Value 'nom
    baseDD.Cells(dligne, 5).Value = Me.TextBox22.Value 'prénom
    baseDD.Cells(dligne, 6).Value = Me.TextBox3.Value 'adresse
    baseDD.Cells(dligne, 7).Value = Me.TextBox4.Value 'adresse2
    baseDD.Cells(dligne, 8).Value = Me.TextBox5.Value 'adresse3
    baseDD.Cells(dligne, 9).Value = Me.TextBox6.Value 'adresse4
    baseDD.Cells(dligne, 10).Value = Me.TextBox7.Value 'cp
    baseDD.Cells(dligne, 11).Value = Me.TextBox23.Value 'ville
    baseDD.Cells(dligne, 12).Value = Me.TextBox24.Value 'pays res
    baseDD.Cells(dligne, 13).Value = Me.TextBox9.Value 'pays sté
    baseDD.Cells(dligne, 14).Value = Me.ComboBox1.Value 'bouche pied
    baseDD.Cells(dligne, 15).Value = Me.TextBox18.Value 'Ancien id
    baseDD.Cells(dligne, 16).Value = CDate(Me.TextBox10.Value) 'Date de naissance
    baseDD.Cells(dligne, 17).Value = Me.TextBox11.Value 'Lieu de naissance
    baseDD.Cells(dligne, 18).Value = Me.TextBox19.Value 'boursier
    baseDD.Cells(dligne, 19).Value = Me.TextBox20.Value 'membre associé
    baseDD.Cells(dligne, 20).Value = Me.TextBox21.Value 'membre
    baseDD.Cells(dligne, 21).Value = CDate(Me.CbxBoursier.Value) 'Date de boursier
    baseDD.Cells(dligne, 22).Value = CDate(Me.CbxMAssocie.Value) 'Date de membre associé
    baseDD.Cells(dligne, 23).Value = CDate(Me.CbxMembre.Value) 'date de membre
    baseDD.Cells(dligne, 24).Value = "" 'decede
    baseDD.Cells(dligne, 25).Value = "" 'Date de dece
    baseDD.Cells(dligne, 26).Value = Me.TextBox25.Value   'Tel fixe
    baseDD.Cells(dligne, 27).Value = Me.TextBox12.Value   'Tel mobile
    baseDD.Cells(dligne, 28).Value = Me.TextBox26.Value   'E-mail
    baseDD.Cells(dligne, 29).Value = Me.TextBox13.Value   'Site internet
    baseDD.Cells(dligne, 30).Value = Me.TextBox14.Value   'N Siret
    baseDD.Cells(dligne, 31).Value = Me.TextBox15.Value
    baseDD.Cells(dligne, 32).Value = Me.TextBox16.Value
    baseDD.Cells(dligne, 33).Value = Me.Label3.Caption 'Date de creation
    baseDD.Cells(dligne, 34).Value = "" 'Date de modification
    baseDD.Cells(dligne, 35).Value = Me.TextBox1.Value 'Remarque
      

Module2.tri_par_ID

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'EFFACEMENT DE TOUS LES CHAMPS DU FORMULAIRE
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

    For Each Ctrl In UserForm1.Controls
        If TypeOf Ctrl Is MSForms.TextBox Or TypeOf Ctrl Is MSForms.ComboBox Then
            Ctrl.Text = ""
        End If
    Next

UserForm_Initialize

End Sub

quand je clique sur enregistrer il me met un message d'erreur aux deux lignes qui sont CDate(Me.CbxMAssocie.Value) 'Date de membre associé et CDate(Me.CbxMembre.Value) 'date de membre alors que sur les deux autres cela fonctionne et je n'arrive pas à comprendre pourquoi pouvez vous m'aider s'il vous plaît merci d'avance
 
Dernière édition:
Vote positif 0 Vote négatif
En relisant ton Edit ...

dubarre à dit:
un message d'erreur aux deux lignes qui sont
CDate(Me.CbxMAssocie.Value) 'Date de membre associé
et CDate(Me.CbxMembre.Value) 'date de membre
Cliquez pour agrandir...

Une question toute bête sans aller plus loin, est-il possible que ces ComboBox soient Vides ?
Dans quel cas il faut faire une condition
If Me.CbxMembre.Value = "" Then ...

Ou encore est on sûr d'y avoir des Date ?
If IsDate(Me.CbxMembre.Value) = False Then ...

Bon courage
@+Thierry
 
Vote positif 0 Vote négatif
Re @dubarre , le Forum,

Au lien de ceci direct :
VB: 
    baseDD.Cells(dligne, 21).Value = CDate(Me.CbxBoursier.Value) 'Date de boursier

Essaies comme ceci :
VB: 
    If Me.CbxBoursier.Value = "" Then
        baseDD.Cells(dligne, 21).Value = ""
    Else
        If IsDate(Me.CbxBoursier.Value) = False Then
            baseDD.Cells(dligne, 21).Value = Me.CbxBoursier.Value '>> sinon message que ce n'est pas une date !
        Else
            baseDD.Cells(dligne, 21).Value = CDate(Me.CbxBoursier.Value) 'Date de boursier
        End If
    End If

Et idem pour les autres cas...

Bon travail
@+Thierry

EDIT J'ai regardé ton dernier fichier, c'est trop compliqué maintenant pour simuler quoique ce soit...
 
Vote positif 0 Vote négatif
Re

En parcourant le code je suis tombé sur ceci :

VB: 
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'REINITIALISATION DE TOUTES LES COMBOBOXES
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

    For i = ComboBox1.ListCount - 1 To 0 Step -1
     ComboBox1.RemoveItem (i)
    Next i
    For i = CbxCivilite.ListCount - 1 To 0 Step -1
    CbxCivilite.RemoveItem (i)
    Next i
    For i = CbxBoursier.ListCount - 1 To 0 Step -1
    CbxBoursier.RemoveItem (i)
    Next i
    For i = CbxMAssocie.ListCount - 1 To 0 Step -1
    CbxMAssocie.RemoveItem (i)
    Next i
     For i = CbxMembre.ListCount - 1 To 0 Step -1
    CbxMembre.RemoveItem (i)
    Next i

Pour ta gouverne,
ComboBox1.Clear
Fait exactement la même chose ! 😉

Bien à toi
@+Thierry
 
Vote positif 0 Vote négatif
Re bonsoir @dubarre ,

Bon et bien si tu es arrivé dans USF1, tu devrais y arriver dans le USF2, évidemment si il a la même structure et nom de Control ActiveX... Et si c'est la même erreur...
Je ne vais pas faire le débuggage de tous les Userforms un par un.

C'est la différence entre apprendre à pécher et donner du poisson...

Bon travail
@+Thierry

PS Merci pour le "Haha" à Patrck 😉
 
Vote positif 0 Vote négatif
Bonjour à tous d'accord sans le vouloir j'ai peut-être mal agi je ne voulais pas je ne suis pas habitué spécialement au forum comment cela fonctionne je vais essayer d'être plus correct et de faire attention

Concernant la suppression avec le bouton je ne suis pas encore totalement habitué avec le codage il y a des choses que j'ai fait peut-être mal et je dois apprendre donc je tenais à m'excuser auprès de tous le monde et j'essaierai de faire attention pour le futur je vous remercie de votre compréhension

Concernant les dates cela est résolu concernant la suppression de fiches je vais faire plusieurs tests pour voir comment cela fonctionne pour comprendre le codage encore plus

je ne cherche pas à prendre à droite et à gauche code j'essaie de comprendre comment il fonctionne mais tout n'est pas expliqué ou n'est pas explicite dans les tutoriels que l'on peut trouver il y a une certaine logique que je n'ai pas encore donc je vous souhaite une belle soirée cordialement
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

J
  • Résolu(e)
XL 2019 VBA - problème call depuis module de classe
Réponses
10
Affichages
369
JohnnyBGood
J
Phil Du59
  • Résolu(e)
XL 2019 Recopier mes feuilles dans mon USF
2 3
Réponses
39
Affichages
433
Phil Du59
Phil Du59
pompaero
  • Question Question
Microsoft 365 Recherche info pour remplir fiche
Réponses
4
Affichages
277
pompaero
pompaero
M
  • Question Question
XL 2016 liste déroulante formulaire vba excel
2
Réponses
20
Affichages
717
fanch55
fanch55
B
  • Résolu(e)
Microsoft 365 Recherche de plusieurs critères dans une cellule
2
Réponses
19
Affichages
352
Bambi35
B
F
  • Question Question
XL 2016 recherche de mots
2
Réponses
19
Affichages
614
job75
job75
A
  • Question Question
Microsoft 365 recherche ,remplissage userform
Réponses
3
Affichages
253
azzouziwalid
A
A
  • Question Question
Microsoft 365 Affichage , recherche et extraire des données .
Réponses
1
Affichages
151
vgendron
vgendron
sergiofox
  • Résolu(e)
Microsoft 365 Problème de position dans la VBA
2
Réponses
15
Affichages
393
TooFatBoy
TooFatBoy
L
  • Résolu(e)
XL 2016 formule nombre de véhicules mensuel
2 3
Réponses
34
Affichages
966
Lionel 25
L
G
  • Question Question
Microsoft 365 publipostage : problème
Réponses
5
Affichages
275
Hecatonchire
H
AIXELS
  • Question Question
Microsoft 365 Problème lors réinitialisation
Réponses
13
Affichages
336
AIXELS
AIXELS
C
  • Résolu(e)
XL 2019 Problème de transferts de données formulaire à feuille
Réponses
5
Affichages
179
ceralpes
C
S
  • Question Question
Microsoft 365 Problème avec formule INDEX et EQUIV
Réponses
4
Affichages
333
stoffer57
S
E
  • Question Question
Microsoft 365 Liste déroulante conditionnelle à 2 critères avec base de données sur fichier externe
Réponses
3
Affichages
271
job75
job75
D
  • Résolu(e)
XL 2021 Selection listview et Envoie Emails automatique
Réponses
4
Affichages
360
delsart59
D
D
  • Résolu(e)
XL 2021 VBA Formulaire
2
Réponses
27
Affichages
2 K
delsart59
D
S
  • Question Question
XL 2016 Problème ajout client et modification code postale dans gestion de stock/clients/factures
Réponses
8
Affichages
400
Piment
P
Pierre77
  • Question Question
Microsoft 365 Problème Création Sommaire
Réponses
4
Affichages
219
sylvanu
sylvanu
V
  • Résolu(e)
Microsoft 365 Recherche V avec 2 classeurs
Réponses
3
Affichages
140
JHA
J
Retour