Modifications automatiques d'un tableau
quentin310
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aurais besoin d'aide pour modifier automatiquement un tableau Excel :
1) insérer une ligne entre chaque lignes d'un tableau ;
2) déplacer une cellule dans cette nouvelle ligne ;
3) insérer une ligne vierge ;
Le tout automatiquement :
Quelqu'un aurait-il la solution?
Merci d'avance,
Quentin
J'aurais besoin d'aide pour modifier automatiquement un tableau Excel :
1) insérer une ligne entre chaque lignes d'un tableau ;
2) déplacer une cellule dans cette nouvelle ligne ;
3) insérer une ligne vierge ;
Le tout automatiquement :
Quelqu'un aurait-il la solution?
Merci d'avance,
Quentin
A voir également:
- Modifications automatiques d'un tableau
- Suivi des modifications word - Guide
- Tableau word - Guide
- Trier un tableau excel - Guide
- Tableau ascii - Guide
- Imprimer un tableau excel - Guide
1 réponse
Bonjour
Macro à mettre dans un module (ALT+F11 pour ouvrir éditeur puis Insertion Module copier et coller la macro, fermer editeur
Pour lancer la macro depuis la feuille : Onglet Developpeur - Macros choisir insertion et Executer
Cdlmnt
Via
Macro à mettre dans un module (ALT+F11 pour ouvrir éditeur puis Insertion Module copier et coller la macro, fermer editeur
Pour lancer la macro depuis la feuille : Onglet Developpeur - Macros choisir insertion et Executer
Sub insertion()
For n = 6 To 2Step -1 ' boucle de la ligne 6 à la 2 en remontant (à modifier si plus de lignes)
' selection de la ligne suivante et insertion
Rows(n + 1 & ":" & n + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
' Coupe valeur en F
Range("F" & n).Select
Selection.Cut
' Colle valeur en D ligne en dessous
Range("D" & n + 1).Select
ActiveSheet.Paste
Next
End Sub
Cdlmnt
Via
