Soyez le premier à donner votre avis sur cette source.
Snippet vu 13 951 fois - Téléchargée 36 fois
Public Sub Autoexec() 'calcul du numéro de la premiere ligne vide k = 1 Do While Worksheets(10).Cells(k, 1) <> "" k = k + 1 Loop For i = 2 To 9 J = 2 Do While Worksheets(i).Cells(J, 1) <> "" If Worksheets(i).Cells(J, 2) < DateAdd("m", -1, Date) Then Sheets(i).Select 'selection de la feuille Range("A" & J & ":F" & J).Select 'selection des cellules Selection.Copy 'copier la selection Sheets(10).Select 'Feuille archive Range("B" & k).Select 'selectionner la cellule de destination ActiveSheet.Paste 'coller Cells(k, 1) = Sheets(i).Name 'placer le nom de la feuille k = k + 1 Worksheets(i).Rows(J).Delete End If J = J + 1 Loop Next End Sub
27 oct. 2008 à 21:54
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.