Discussion :

[juliematlab]

Bonjour,

J'ai crée une macro qui recopie dans la colonne suivante les valeurs de la colonne précédente en appuyant sur un "Bouton".

La macro fonctionne, le problème c'est que j'ai créer une dizaine de bouton qui pour chaque colonne m’exécute la même fonction donc forcément cela donne une macro assez lourde et quand j'arrive au chargement du 4eme "bouton " par exemple la macro met 5 min à s’exécuter voir le fichier excel plante...

Donc je me demandais comment je pouvais alléger ma macro....

J'ai créée cette macro car j'ai une colonne à environ 200 lignes à remplir avec des croix et je voulais gagner du temps en créant un bouton qui me copie directement la colonne précédente...

J'espère que vous pourrez m'aider.

Voici la macro que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub Croix
Dim cell As Range
For Each cell In Worksheets("feuille1").Range("K5:K200")
If cell.Value = "x" Then cell.EntireComlumn.Copy Columns ("L:L")
Next Cell
End Sub

Merci.

Julie

[Jean-Philippe André]

Hello,

t'est-il possible de te passer du bouton et de faire cela "au fil de l'eau" ?

Je m'explique:
- en utilisant par exemple l'evenement OnChange de ta feuille, il est possible de faire réagir automatiquement Excel dans l'e cas où la valeur qui a été modifiée fait partie d'une plage de cellule.

Tu aurais alors non pas x boutons lancant la macro, mais une seule macro générale qui se lance à chaque modification de ta feuille.

[juliematlab]

En fait je fait un suivi de pièces.
Donc je rempli ma première colonne des pièces que j'ai à utiliser.
Si au fur et à mesure que je les utilisent elles ne cassent pas alors je recopie les croix (d'ou la copie de la colonne entière avec la macro en cliquant sur le "bouton").
Si une des pièces casse, j'ai une nouvelle pièce et donc un "décalage de croix" pour cette pièce et c'est cette dernière colonne que je "recopierais" pour garder mon suivi de pièces à jour.
J'ai regarder pour savoir comment on utilisait la fonction "OnChange" mais rien trouvé à ce sujet de concluant alors je sais aps i je peux l'utiliser dans mon cas?

Merci pour ton aide.

[issoram]

Bonjour,

Pourrais tu ajouter un fichier type en pièce jointe ou décrire la forme des tes données?

Cordialement.

[juliematlab]

J'ai envoyé une pièce jointe pour expliquer le principe.

Ce que j'ai fait c'est un bouton qui correspond à une macro qui recopie la colonne précédente dans la colonne suivante.

Or il y a trop de macro puisque j'associe en gros à chaque colonne jour 1, jour 2 jour 3.... un bouton qui va recopier la colonne du jour précédent dans la colonne du jour suivant...donc ça rame...

Le truc c'est que si un jour j'ai une pièce qui casse et que je dois changer je doit cocher à la main toute les pièces de ce jour et le jour suivant je voudrais qu'il continu à me copier les cellules de la colonne précédente.

J'espère que j'ai été claire sinon je peux re préciser certains points.

Merci pour votre aide.

[issoram]

Honnêtement ce n'est pas clair pour moi,

Le nombre de lignes est variable aussi? Si la pièce A casse par exemple tu ajoutes une ligne A2? Ou alors le nombre de pièce de rechange est fixe?

Cordialement.