Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Cherche à vider mon formulaire dans ma BDD

ChantalTreize

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

XLDnaute Occasionnel
Bonjour,

Essais de cette façon et évites autant que possible les "Select" et "Activate" ça fait scintiller l'écran et c'est inutile :
Code:
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…