Cherche à vider mon formulaire dans ma BDD

[ChantalTreize]

Bonjour tout le monde
J'ai monté un userform et je voudrais le basculer dans ma BDD
J'ai voulu faire un essai et voir s'il se positionnait bien et là il me plante
Voici le code:
'Procedure d'ajout d'un nouvel enregistrement dans la BDD

Private Sub BtnAjoutBDD_Click()

Sheets("BDD").Activate
Range("A1").Select
Selection.End(x1Down).Select ' Position sur la dernière ligne non vide
Selection.Offset(1, 0).Select ' Décalage d'une ligne vers le bas


End Sub
C'est la ligne ;Selection.End(x1Down).Select qui pose problème
Merci d'avance
Chantal

 

[Theze]

Bonjour,

Essais de cette façon et évites autant que possible les "Select" et "Activate" ça fait scintiller l'écran et c'est inutile :

Private Sub BtnAjoutBDD_Click()

    Dim Lig As Long
   
    With Worksheets("BDD")
   
        Lig = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
       
        .Range("A" & Lig).Value = "C'est ici !"
       
    End With
   
End Sub

 

[ChantalTreize]

Bonjour,

Essais de cette façon et évites autant que possible les "Select" et "Activate" ça fait scintiller l'écran et c'est inutile :

Private Sub BtnAjoutBDD_Click()

    Dim Lig As Long
  
    With Worksheets("BDD")
  
        Lig = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
      
        .Range("A" & Lig).Value = "C'est ici !"
      
    End With
  
End Sub

Un grand merci ça fonctionne très bien
Chantal