interface vbaRésolu

Question

Bonjour 

je suis en train de créer une interface avec VBA qui va permettre de saisir des données sur excel et qui va être considérer comme une base de données, 
j'ai fait un ptit code pour ajouter des informations au début, mais ça me donne tjrs une erreur 
voilà le code que j'ai faite 

'Pour le bouton ajouter 
Private Sub CommandButton3_Click() 
Dim L As Integer 
If MsgBox("Confirmez-vous l'ajout de cette nouvelle bobine ? ", vbYesNo, " Demande de confirmation d'ajout ") = vbYes Then 
L = Sheets("BDD").Range("a65536?").End(xlUp).Row + 1 
Range("A" & L).Value = TextBox1 
Range("B" & L).Value = TextBox2 
Range("C" & L).Value = TextBox3 
End If 
End Sub 

'pour le bouton quitter 

Private Sub CommandButton4_Click() 
Unload Me 
End Sub 

l'erreur se trouve dans la ligne suivante:L = Sheets("BDD").Range("a65536?").End(xlUp).Row + 1 

il me donne erreur d'exécution "1004" 

merci d'avance pour votre aide 
crdlt

cs_MPi · Answer

Bonjour,

Enlève le "?"

jawja · Answer

Merci pour votre réponse!, ça fonctionne :)

Interface vba

2 réponses

Votre réponse

Discussions similaires