Cherche à vider mon formulaire dans ma BDD

ChantalTreize · 3 Décembre 2017

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 · 3 Décembre 2017

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

ChantalTreize · 3 Décembre 2017

Theze à dit:
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

Un grand merci ça fonctionne très bien
Chantal

Cherche à vider mon formulaire dans ma BDD

ChantalTreize

XLDnaute Occasionnel

Theze

XLDnaute Occasionnel

ChantalTreize

XLDnaute Occasionnel

Discussions similaires

Cherche à vider mon formulaire dans ma BDD

ChantalTreize

XLDnaute Occasionnel

Theze

XLDnaute Occasionnel

ChantalTreize

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency