TheLio
XLDnaute Accro
Hello tous,
je pense que mon titre est assez explicite, malgré cette petite phrase magique, on voit le passage sur l'onglet "Contrôle" puis retour sur l'onglet d'origine du bouton
Donc, Why??
Merci d'avance A++
TheLio
je pense que mon titre est assez explicite, malgré cette petite phrase magique, on voit le passage sur l'onglet "Contrôle" puis retour sur l'onglet d'origine du bouton
Code:
Private Sub CommandButton1_Click()
ScreenUpdating = False
NomUsager = Application.UserName
With Worksheets("Contrôle")
On Error Resume Next
Worksheets("Contrôle").Unprotect.Password (TOTO)
Derligne = .Range("A65536").End(xlUp).Row + 1 'on détecte la derniere ligne vide
.Cells(Derligne, 1) = Format(Date, "dd/mm/yyyy") 'ici on mets la date du Jour
.Cells(Derligne, 2) = Format(Time, "HH:MM:SS") 'ici on met l'heure réelle
.Cells(Derligne, 3) = NomUsager 'ici le Nom du User
.Cells(Derligne, 4) = Feuil2.Range("$P$10") 'ici le N° de série enregistré
Worksheets("Contrôle").Protect.Password (TOTO)
End With
ScreenUpdating = True
End Sub
Merci d'avance A++
TheLio
Dernière édition: