Problème macro VBA ajout d'enregistrement Fermé

Question

Bonjour,

Je veux ajouter les données de deux cellules de la feuil1 dans une feuille base de données feuil2.

Quand j'exécute la macro ça plante. J'ai une erreur d'exécution 1004 "erreur définie par l'application ou par l'objet" à la ligne 9. 

Je ne trouve pas mon erreur !! 

Quelqu'un peut il m'aider. 

Merci d'avance

Private Sub CommandButton2_Click()
'Ajouter un nouvel enregistrement
    Dim LigneAjout As Long
    Dim LigneAjout2 As Long
    Dim toto, tata As String
        
    toto = Sheets("Feuil1").Range("B20")
    tata = Sheets("Feuil1").Range("C20")
    LigneAjout = ActiveWorkbook.Sheets("Feuil2").Range("B1").End(xlDown).Row + 1
    ActiveWorkbook.Sheets("Feuil2").Range("B" & LigneAjout).Value = toto
    LigneAjout2 = ActiveWorkbook.Sheets("Feuil2").Range("C1").End(xlDown).Row + 1
    ActiveWorkbook.Sheets("Feuil2").Range("C" & LigneAjout2).Value = tata
        
        
    ActiveWorkbook.Sheets("Feuil2").Range("A" & LigneAjout).Value = ActiveWorkbook.Sheets("Feuil2").Range("A1").End(xlDown).Row
              
     MsgBox("L'enregistrement " & toto & " " & tata & " a été ajouté à la base de données.", 64)
    
    

End Sub

pijaku · Answer

Salut,
A quoi peux bien servir le "64" à la fin de : MsgBox("L'enregistrement " & toto & " " & tata & " a été ajouté à la base de données.", 64)
S'il n'est pas utile, supprime le et remplace par :
MsgBox("L'enregistrement " & toto & " " & tata & " a été ajouté à la base de données.")

Problème macro VBA ajout d'enregistrement

1 réponse

Discussions similaires