renseigner une date ...

[dn35]

Bonjour à tous,

De retour pour un tout petit problème 😉
J'ai ce code (récupéré sur un excellent fichier mis en ligne sur ce site)

Sub archivage()
    Dim x, L1 As Integer
    Dim totarchive As Currency
    Dim N1, N2 As String

Feuil1.Activate
Feuil1.Unprotect "toto"
Range("Début").Offset(1, 0).Select
N1 = ActiveSheet.Name
Feuil4.Activate
Feuil4.Unprotect "toto"
Range("A5").Select
N2 = ActiveSheet.Name
AllerA_LigneVierge
L1 = Selection.Row

Worksheets(N1).Activate
Range("Début").Select
 Selection.AutoFilter Field:=1
 Tri
 
 x = 5
 Do While Worksheets(N1).Cells(x, 1).Value <> ""
If Worksheets(N1).Cells(x, 20).Value <> "" And _
    Worksheets(N1).Cells(x, 21).Value <> "" And _
         Worksheets(N1).Cells(x, 19).Value = "clos" And _
               Worksheets(N1).Cells(x, 2).Value <> "" Then
               
Worksheets(N1).Range(Cells(x, 1), Cells(x, 21)).Copy
Worksheets(N2).Cells(L1, 1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
Worksheets(N1).Unprotect ("toto")
Worksheets(N1).Range(Cells(x, 2), Cells(x, 23)).ClearContents
Worksheets(N1).Protect ("toto")
Application.CutCopyMode = False
L1 = L1 + 1
End If
x = x + 1
If x > 100 Then MsgBox "beaucoup de DI en attente !!!,vbexclamation"
If x > 3000 Then Exit Do
Loop

Worksheets(N2).Activate
Range("A1").Select
Tri

Worksheets(N1).Activate
Range("Début").Offset(1, 0).Select
Tri

End Sub

celui-ci me permet d'archiver des lignes dites "close" Ce que je souhaite c'est réussir à intégrer ce bout de code :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 20 Then 
Target.Offset(0, 2) = Date 
End If

End Sub

Que j'utilise sur une autre feuille
Ce que je souhaite c'est pouvoir indiquer la date d'archivage en bout de tableau. Malheureusement je ne sais pas trop a quel moment placer ce code et comment l'adapter efficacement ... Si vous aviez quelques idées ...

Merci d'avance et bon appetit à tous

 

[dn35]

Re : renseigner une date ...

Bonjour Lii

Oui j'avais testé aussi mais je ne comprend pas il ne reconnais pas le mot de passe et m'affiche directement la msgbox lorsque je valide ... 😕😕😕

 

[fhoest]

Re : renseigner une date ...

bonjour,
c'est normale il sera toujours different de l'un ou de l'autre il faut juste mettre AND a la place de OR
exemple A=1
si A<>1 ou A<>2 alors :
message coucou
autrement:
message beuh!!
fin de condition
le fait que A soit égale a 1 il est forcément différent de 2 donc message coucou
A+

 

[dn35]

Re : renseigner une date ...

bonsoir fohest

et merci de la réponse ... et l'explication (pourquoi je me sens toujours si bête losque je lis vos explications ?)
Jeste demain au boulot

Bonne soirée
Laure

 

[fhoest]

Re : renseigner une date ...

bonsoir
personne n'est bête on as tous nos lacunes,moi même j'apprend énormément sur ce forum,
tu dois apprendre a utiliser les points d'arret du VBA,l'espions et les touches F5 ou F8 pas a pas
cela t'aidera énormément
reprend ton exemple précédent puis fais un test tu verra avec les outils du vba les choses parfois compliqué deviennent beaucoup plus simple.
A bientot.

F H O E S T...

 

[dn35]

Re : renseigner une date ...

Bonjour FHOEST,

Autant pour moi sur l'orthographe de ton pseudo 😱
Et merci pour les conseils. J'ai fait tout comme tu m'as dit et effectivement je comprend mieux pourquoi cela ne fonctionnait pas. En tous cas maintenant c'est nickel !

Merci encore, moi aussi j'apprend ENORMEMENT ici
Bonne journée