Macro excel pour déplacer les cellules entre feuilles
Soyez le premier à donner votre avis sur cette source.
Snippet vu 13 951 fois - Téléchargée 36 fois
Contenu du snippet
J'ai réalisé ce code pour pouvoir copier toutes les lignes de feuilles 1 à n et les coller vers une feuille qui sert d'archive. Toutes les lignes copiées sont supprimées pour libérer la feuille. Utiles lors d'un accés au fichier excel pour consulter les feuilles. La macro se lance à l'ouverture
un grand merci à ShadowWisp pour ces conseils
Source / Exemple :
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
Conclusion :
un grand merci à ShadowWisp pour ces conseils
A voir également
- Macro excel pour déplacer les cellules entre feuilles
- Macro excel pour copier des cellules dans une autre feuille ✓ - Forum - Visual Basic
- Copier le contenu d'une feuille excel dans une autre - Forum - Visual Basic
- Copier cellule dans autre feuille (vba) - Forum - Visual Basic
- Comment appeler une cellule d'une autre feuille - Forum - Visual Basic
- Copier vers le bas une ligne de formule tant que valeur - Forum - VBA Office (Excel, Word ...)
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.