copie de données - trigger: un bouton

[pdemaret]

Bonjour à tous

Je voudrais faire une chose qui dépasse de loin mes connaissances limitées d'excel.

Imaginez un tableau de bord où chaque ligne reprend des données de gestion des objets pilotés par ledit tableau de bord (classique).
Imaginez dans ce tableau 3 colonnes particulières, indiquant le statut de chaque objet.
- La colonne de gauche reprends le statut il y a 2 semaines
- La colonne centrale reprends le statut il y a 1 semaine
- La colonne de droite reprends le statut de cette semaine

Les statuts valent 1, 2 ou 3. Une mise en forme conditionnée permet d'écrire le chiffre en une couleur sur fond de la même couleur, ainsi la case est colorée sans chiffre visible. Les couleurs sont 1=rouge, 2=orange et 3=vert

Le fichier en annexe illustre cela et tout va bien....

Voici ce que je voudrais.

Avoir un bouton qque part dans le tableau qui, lorsqu'il est activé :

• Copie les valeurs de colonne du milieu vers la gauche (sans l'entête)
• Copie les valeurs de colonne de droite vers le milieu (sans l'entête)
• La colonne de droite doit être vide

Je pense que comme ça ma demande est présentée clairement

 

[tototiti2008]

Re : copie de données - trigger: un bouton

Bonjour pdemaret,

Il y a surement moyen d'optimiser, mais

Sub Decale()
    Range("A2:A65536").Value = Range("B2:B65536").Value
    Range("B2:B65536").Value = Range("C2:C65536").Value
    Range("C2:C65536").ClearContents
End Sub

devrait fonctionner

Edit : j'ai XL2003 alors je me suis arrêté à la ligne 65536...

 

[pdemaret]

Re : copie de données - trigger: un bouton

Je vous remercie, c'est exactement ce qu'il me fallait.