XL 2021 la macro ne fonctionne pas

pibes · 23 Janvier 2024

Bonsoir à toutes, bonsoir à tous,
Je vous souhaites de tous cœur les meilleurs choses pour l'année 2024.

Je viens vers vous car cela fait plus de 2 mois que je cherche sur YouTube comment je peux faire la macro d'un userform, mais rien ne fonctionne comme je le voudrais, et je suis perdu.

je ne sais pas modifier les cellules de A à AC, car les cellules AD à AF sont avec des formules.

Si cela était possible de regarder si toute la macro est correct .

Je vous remercie d'avance.

Pibes

TooFatBoy · 23 Janvier 2024

Bonjour,

Après avoir renommé le tableau "Tableau2" en "t_BDD", est-ce que la macro suivante fonctionne comme tu le veux ?

VB:

Private Sub commandbutton1_click()
' Pour ajouter une nouvelle entrée
Dim ligne As Long

    If ComboBox1.Value = "" Then
        MsgBox ("Veuillez renseigner le champ ""Nom de l'enfant"" !")
    Else
        If MsgBox("Confirmez-vous l'ajout des données ?", vbYesNo, "Confirmaion") = vbYes Then
            With Range("t_BDD")
                ligne = IIf(.ListObject.DataBodyRange Is Nothing, 1, .ListObject.ListRows.Count + 1)
                .Cells(ligne, 1) = ComboBox1.Value          ' Nom e
                .Cells(ligne, 2) = TextBox1.Value           ' Prénom e
                .Cells(ligne, 3) = TextBox2.Value           ' Date n e
                .Cells(ligne, 4) = TextBox3.Value           ' GSM
                .Cells(ligne, 5) = TextBox4.Value           ' e-mail
                If IsDate(TextBox5.Value) Then              ' Date de jugement
                    .Cells(ligne, 6) = CDate(TextBox5.Value)
                End If
                If IsDate(TextBox6.Value) Then              ' Date de mise en oeuvre
                    .Cells(ligne, 7) = CDate(TextBox6.Value)
                End If
                .Cells(ligne, 8) = TextBox7.Value           ' Établissement
                .Cells(ligne, 9) = TextBox8.Value           ' Adresse
                .Cells(ligne, 10) = TextBox9.Value          ' Commune
                .Cells(ligne, 11) = TextBox10.Value         ' Code p
                .Cells(ligne, 12) = TextBox11.Value         ' E-mail
                .Cells(ligne, 13) = TextBox12.Value         ' Tél
                .Cells(ligne, 14) = TextBox13.Value         ' Nom M
                .Cells(ligne, 15) = TextBox14.Value         ' Prenom M
                .Cells(ligne, 16) = TextBox15.Value         ' Adresse
                .Cells(ligne, 17) = TextBox16.Value         ' Code P
                .Cells(ligne, 18) = TextBox17.Value         ' Commune
                .Cells(ligne, 19) = TextBox18.Value         ' Tél
                .Cells(ligne, 20) = TextBox19.Value         ' E-mail
                .Cells(ligne, 21) = TextBox20.Value         ' Nom P
                .Cells(ligne, 22) = TextBox21.Value         ' Prénom
                .Cells(ligne, 23) = TextBox22.Value         ' Adresse
                .Cells(ligne, 24) = TextBox23.Value         ' Code P
                .Cells(ligne, 25) = TextBox24.Value         ' Commune
                .Cells(ligne, 26) = TextBox25.Value         ' Tél
                .Cells(ligne, 27) = TextBox26.Value         ' E-mail
                .Cells(ligne, 28) = ComboBox2.Value         ' Code enfant
                .Cells(ligne, 29) = ComboBox3.Value         ' Ouvert
'                Unload UserForm1
'                UserForm1.Show 0
            End With
        End If
    End If

End Sub

ps : pour les TextBox qui sont des dates, il faut utiliser une conversion en date.

pibes · 23 Janvier 2024

Bonsoir et merci,

Je viens d'essayer mais voila ce que cela donne.

TooFatBoy · 23 Janvier 2024

pibes à dit:
Je viens d'essayer mais voila ce que cela donne.

Donc ça fonctionne d'après ce que je vois : ça inscrit bien les données au bon endroit. C'est cool.

Je vois que tu as corrigé mon erreur sur la date de naissance de l'enfant.

pibes · 27 Janvier 2024

Bonsoir,

je ne parviens pas a faire des modifications, car il ne veut pas "me.TextDate" et je ne comprends pas pourquoi ?

Merci d'avance.

Pibes

pibes · 27 Janvier 2024

Voici le fichier

Merci

TooFatBoy · 27 Janvier 2024

pibes à dit:
je ne parviens pas a faire des modifications, car il ne veut pas "me.TextDate" et je ne comprends pas pourquoi ?

Donc c'est réglé pour la question initiale qui portait sur la macro pour ajouter une ligne, mais maintenant c'est la macro de modification qui pose problème ?

VB:

Cells(i, 3) = Me.TextDate = Format(ActiveCell.Offset(0, 3), "DD/MM/YYYY").TextBox2.Text

C'est normal : tu n'as aucune TextBox nommée "TextDate" dans ton UserForm.
De plus, A=B=C, ça te donnera au mieux soit "Vrai", soit "Faux", dans A.

pibes · 27 Janvier 2024

Oui exactement

TooFatBoy · 27 Janvier 2024

Je pense qu'il y a des petits problèmes de logique dans ton code.

Par exemple, que fait-on s'il y a deux enfants avec le même nom ??? On modifie, avec les mêmes données, toutes les lignes dont le nom correspond ?

Chaque enfant a l'air d'avoir un id unique, donc il vaudrait mieux se baser là-dessus pour savoir quelle ligne modifier.

TooFatBoy · 27 Janvier 2024

pibes à dit:
Oui exactement

Dans ce cas, pourquoi ne pas essayer de se baser sur la macro d'ajout qui fonctionne, pour écrire le code de la macro de modification ?

Il serait même intéressant de déporter le remplissage du tableau dans une macro spécifique qui serait alors appelable aussi bien pour l'ajout que pour la modification.

pibes · 27 Janvier 2024

Je suis tout à fait d'accord avec vous. Mais je ne sais pas comment faire.

Merci beaucoup de vos conseils.

TooFatBoy · 27 Janvier 2024

pibes à dit:
Je suis tout à fait d'accord avec vous.

D'accord sur quoi ?
Sur le fait que chaque enfant a obligatoirement un id unique et qu'on ne crée pas de nouvelle ligne si l'id de l'enfant n'est pas renseigné ?

pibes · 27 Janvier 2024

De faire une macro spécifique pour l'ajout et la modification

TooFatBoy · 27 Janvier 2024

pibes à dit:
De faire une macro spécifique pour l'ajout et la modification

OK.

Et,

TooFatBoy à dit:
Sur le fait que chaque enfant a obligatoirement un id unique et qu'on ne crée pas de nouvelle ligne si l'id de l'enfant n'est pas renseigné ?

es-tu également d'accord ???

pibes · 27 Janvier 2024

Oui j'ai oublié de le renseigner, merci

XL 2021 la macro ne fonctionne pas

pibes

XLDnaute Occasionnel

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

pibes

XLDnaute Occasionnel

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

pibes

XLDnaute Occasionnel

pibes

XLDnaute Occasionnel

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

pibes

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

pibes

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

pibes

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

pibes

XLDnaute Occasionnel

Discussions similaires