Bonjour je commence fort avec des questions. J’ai un fichier avec 2 feuilles, j’aimerais savoir comment couper une ligne de la feuille “RP” si Elle verifie la condition suivante . Dans ma colonne B de.la feuille "RP" se trouve des dates j'aimerai que si une Date de cette colonne est inférieur à la date d'aujourdhui couper la ligne entire et le coller sur la première ligne vide de la feuille “Archive”. Je ne suis pas très ferrée en VBA, mais apres plusieurs lecture dans plusieurs forum j'arrive pas à trouver une solution
voici le code que j'ai essayer de bicolor
Sub Archivage()
n=3
nblig=35
For i=n To nblig
Sheets("RP"). Select
If Cells(i, 2). Value < Date Then
Cells(i,2). EntireRow.Cut
Sheets(Archive").Select
ActiveSheet.Paste
Sheets("RP"). Select
nblig=nblig -1
n=n+1
End If
Next i
End Sub
Private Sub CommanButton1 ()
Call Archivage
End Sub
Elle fonction au premier couper coller
apres prochaine mise à jour s`incrimente pas sur l`ancien Archive
et j`aimerai aussi que les lignes couper soit supprimmer de la feuille"RP"
Merci svp quelqu'un pour m'aider je suis coincé
voici le code que j'ai essayer de bicolor
Sub Archivage()
n=3
nblig=35
For i=n To nblig
Sheets("RP"). Select
If Cells(i, 2). Value < Date Then
Cells(i,2). EntireRow.Cut
Sheets(Archive").Select
ActiveSheet.Paste
Sheets("RP"). Select
nblig=nblig -1
n=n+1
End If
Next i
End Sub
Private Sub CommanButton1 ()
Call Archivage
End Sub
Elle fonction au premier couper coller
apres prochaine mise à jour s`incrimente pas sur l`ancien Archive
et j`aimerai aussi que les lignes couper soit supprimmer de la feuille"RP"
Merci svp quelqu'un pour m'aider je suis coincé