Résolu Microsoft 365 Problème dans mon formulaire de recherche vba

_Thierry

XLDnaute Barbatruc
En relisant ton Edit ...

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
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
 

dubarre

XLDnaute Occasionnel
Supporter XLD
Les deux combobox ne reçoive pas tout le temps des dates c'est exact j'ai essayé avec un if mais j'avoue que je ne sais pas trop quoi mettre dedans
 

_Thierry

XLDnaute Barbatruc
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...
 

_Thierry

XLDnaute Barbatruc
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
 

dubarre

XLDnaute Occasionnel
Supporter XLD
Je suis désolé je viens encore vous embêter ça fonctionne très bien dans le userform1

dans le userform2 j'ai essayé de mettre le même code dans le bouton enregistrer mais il me met un message d'erreur je vous mets le classeur merci encore de votre aide.
 

Fichiers joints

_Thierry

XLDnaute Barbatruc
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 ;)
 

dubarre

XLDnaute Occasionnel
Supporter XLD
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas