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