Pb ajout dans base de donnée avec btn valider

Bonjour le forum,

Bon je suis perdue après plusieurs essais, mon code ne fonctionne pas alors qu'il fonctionne parfaitement pour un autre doc excel.

Mon problème, lorsque je valide mon formulaire il écrase la ligne dans ma base de données au lieu de l'ajouter plus bas. J'ai essayé plusieurs code mais rien n'y fait !

Tout fonctionne sauf ça, pouvez-vous m'aider s'il vous plait ?

Private Sub BTValider_Click()

'Choix de Température
For Each bouton_Frame1 In Frame1.Controls
    If bouton_Frame1.Value Then
        température = bouton_Frame1.Caption 'Température choisie
    End If
Next
'Insertion des valeurs sur la feuille
 Range("C2").Select
  Selection.End(xlDown).Select 'on se positionne sur la dernière ligne non vide
   Selection.Offset(1, 0).Select 'on se decale d'un ligne vers le bas
    ActiveCell = Label3
    ActiveCell.Offset(0, 1).Value = température

    MsgBox "La température est enregistrée !", vbOKOnly + vbInformation, "Enregistrement température"
    Unload Me
End Sub
14vbatest.xlsm (51.07 Ko)

Bonjour

Un essai à tester.

Bye !

17vbatest-v1.xlsm (47.12 Ko)

Je n'avais pas essayé cette solution, c'est parfait ! Merci beaucoup !

Rechercher des sujets similaires à "ajout base donnee btn valider"