Macro excel pour déplacer les cellules entre feuilles
Soyez le premier à donner votre avis sur cette source.
Snippet vu 13 598 fois - Téléchargée 34 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
- [VBA / macro excel] déverrouillage de certaines cellules ✓ - Forum - Visual Basic 6
- [Déplacé .NET -> VBA]Macro excel pour envoi de mail avec une partie de la feuill ✓ - Forum - Visual Basic 6
Commentaire
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.