Macro ajout colonne à la fin
ptit_ange
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'aurais besoin d'aide dans la réalisation d'une macro.
J'aimerais ajouter une colonne qui apparait toujours a la fin de mon tableau (donc a droite de la derniere colonne ayant des informations) et qui garde la meme mise mise en forme conditionnelle (couleur changeante suivant les donnees saisies) que les colonnes précédente.
Pouvez vous m'aider sur ce point?
Merci à tous
J'aurais besoin d'aide dans la réalisation d'une macro.
J'aimerais ajouter une colonne qui apparait toujours a la fin de mon tableau (donc a droite de la derniere colonne ayant des informations) et qui garde la meme mise mise en forme conditionnelle (couleur changeante suivant les donnees saisies) que les colonnes précédente.
Pouvez vous m'aider sur ce point?
Merci à tous
A voir également:
- Macro ajout colonne à la fin
- Déplacer colonne excel - Guide
- Fin des zfe - Guide
- Trier colonne excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Colonne word - Guide
1 réponse
voici une macro que tu peut associe a un button sur la page du tableau
' Macro1 Macro
' Macro enregistrée le 13/05/2009 par Family
Range("iv1").End(xlToLeft).EntireColumn.Select
Selection.Copy
Range("iv1").End(xlToLeft).Offset(1, 1).EntireColumn.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End sub
<gras>attention : il faut essayer d'abord sur une copie du fichier </gras>
' Macro1 Macro
' Macro enregistrée le 13/05/2009 par Family
Range("iv1").End(xlToLeft).EntireColumn.Select
Selection.Copy
Range("iv1").End(xlToLeft).Offset(1, 1).EntireColumn.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End sub
<gras>attention : il faut essayer d'abord sur une copie du fichier </gras>
en supposant que tu utilises la ligne 1
en 1 ligne
Sub copier_col()
Columns(Range("IV1").End(1).Column).Copy Columns(Range("IV1").End(1).Column + 1)
End Sub