Copier numero cellule dans textbox

Bonjour,

J'ai sur une feuille appelé ("BDD"), la cellule K2 qui contient un chiffre.

J'aimerais qu'a chaque ouverture de mon Userform1 la textbox ("Dateinter") prenne la valeur de la cellule ("K2") et qu'a chaque fois qu'on enregistre une intervention que la valeur ("K2") prenne +1 .

Merci de votre aide

Bonjour,

ajoute cela aux codes de ton UserForm si j'ai bien compris

Private Sub UserForm_Activate()
Dateinter = Sheets("bdd").[K2]
End Sub

et pour la validation change ton code par cela

'archivage
Private Sub Valider_Click()
Application.ScreenUpdating = False
    'Sheets("Archivage").Unprotect
    Sheets("Archivage").Select
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").Value = Numinter
Range("B2").Value = Dateinter
Range("C2").Value = Heureinter
Range("D2").Value = Datedemande
Range("E2").Value = Duréeinter
Range("F2").Value = Intervenant
Range("G2").Value = Localisation
Range("H2").Value = Typeinter
Range("I2").Value = Objet
Numinter = ""
'Dateinter = ""
Heureinter = ""
Datedemande = ""
Duréeinter = ""
Intervenant = ""
Localisation = ""
Typeinter = ""
Objet = ""
Sheets("BDD").Range("K2") = Dateinter + 1
Dateinter = Sheets("BDD").Range("K2")
End Sub

Bonne Journée

Merci DL_13, ça marche super ! Enfin débloqué