Macro ajout colonne à la fin

ptit_ange -  
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
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  1. hich24 Messages postés 1686 Statut Membre 753
     
    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>
    0
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      bonjour
      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
      0