Alléger une macro excel [Résolu]

[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 :

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

[jpcheck]

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.

[juliematlab]

Le nombre de ligne reste fixe j'ai un nombre fixe de pièce de rechange.

[issoram]

Il suffit donc que tu paramètres ta fonction avec pour argument la colonne à dupliquer

[juliematlab]

oui. en fait faudrait que je fasse un "bouton" unique qui me copie à chaque fois ma dernière colonne rempli dans la suivante.
Alors après je sais pas, je dois sans doute faire une boucle?

J'ai essayé de faire une boucle mais quand j'essaye de la lancer pour voir ou est mon erreur mon PC plante... donc la macro doit trop en demander mais je vois pas ou je peux la simplifier....

Code :

1
2
3
4
5
6
7
8
Sub Croix()
Dim cell As Range
For j = 11 to 100
For Each cell In Worksheets("feuille1").Range ("j:j")
If cell.Value = "x" Then cell.EntireColumn.Copy Columns("j+1:j+1")
Next cell
Next j
End Sub

Merci pour votre aide.

Ou alors faut-il que j'utilise la fonction "Offset"?
Si quelqu'un pouvais m'aider...

[jpcheck]

Hello,

Ne pars pas dans tous le sens
Tout d'abord tu confonds l'utilisation de la variable j et la chaine de caractères "j".

Dans quel ordre souhaites-tu passer en revue les cellules ?
- ligne par ligne ? colonne par colonne ? toutes les cellules d'une plage ?

Avant de te lancer dans le code, il faut réaliser l'algorithme que tu souhaiterais faire tourner

Cette étape là est à mon avis pas encore claire pour toi

[gFZT82]

Bonjour,

Voici une solution pour recopier les données de la colonne précédente dans la colonne sélectionnée.
1 - Se positionner sur la colonne à renseigner (colonne F par exemple).
2 - Cliquer sur le bouton pour copier les données de la colonne E dans la colonne F.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Private Sub CopierCroix_Click()
Dim DerLig As Long
Dim Col As Integer
Dim Cel As Range
With Worksheets("Feuil1") 'A adapter
    'On recherche la dernière ligne renseignée dans la colonne A
    DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
    'On note le numéro de la colonne que l'on veut renseigner (colonne sélectionnée)
    Col = ActiveCell.Column
    'On copie chaque cellule de la colonne précédente dans la colonne sélectionnée
    For Each Cel In .Range(.Cells(4, Col), .Cells(DerLig, Col))
        Cel = Cel.Offset(0, -1)
    Next Cel
End With
End Sub

Cordialement.

[juliematlab]

En effet quand j'ai du mal sur un truc j'ai tendance à m'éparpiller....

Je souhaite passer en revue mes colonnes.

J'ai joint en pièce jointe un tableau qui permet d'expliquer ce que je souhaite faire.

Je fais un suivi de pièces.

Je pars avec pièce A B et C. Je coche donc manuellement la première utilisation donc ma première colonne jour 1 matin.

Si l'après-midi du jour 1 je conserve les pièces utilisées le matin alors je voudrais créer un "bouton" qui me copie la première colonne ( matin jour 1).

Si l'après-midi du jour 1 je dois utiliser d'autre pieces car la première pièce à casser : je dois donc passer à la configuration piece A2, B et C alors là je dois cocher manuellement ma colonne mais je voudrais que la colonne suivante (ici jour 2 matin) copie la colonne que je viens de modifier.

J'espère que cette explication est plus claire.

Merci pour votre aide.

Cordialement.

[juliematlab]

Pour le moment j'ai le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Sub Croix()
Dim cell As Object
For i = 5 To 139
For j = 11 To 13
    For Each cell In Worksheets("feuille1").Cells(i, j)
    If cell.Value = "x" Then Cells(i, j).Copy Destination:=Cells(i, j + 1)
    Next cell
    Next j
    Next i
End Sub

Mais bon c'est pas l'idéal car en fait je copie mes croix sur une certaine plage et si j'ai un changement d'utilisation de pièce je dois le reprendre à la main....

Cordialement.

[gFZT82]

Euh ôte-moi d'un doute...
Tu prends bien le temps de lire les réponses ?

Cordialement.

[juliematlab]

Je lis bien les réponses!
quand j'ai écris mes derniers messages je n'avais pas encore reçu ton post...