Executer une macro a chaque action

[Napst3r]

Salut à tous, ce message est en lien avec "Gérer la catégorie d'un nombre par rapport au contenue d'une cellule". J'ai voulu rouvrir une discution car mon pblm n'est plus le même, donc voila, qqu saurait-il comment je pourrai faire pour que ma macro s'execute casiment tt le temps, en fait jvoudrai que a chaque fois que je fais une action sur une cellule la macro ce mette en route, ou qqc dans ce genre comme pk pas quel s'execute toute les 3 ou 4s.

Jvous join mon fichier quand même au cas ou (la macro agit sur les colonne G et H)

aller salut les xldnaute, Napst3r

 

[mécano41]

Re : Executer une macro a chaque action

Voici quelque chose qui devrait aller.

- si tu mets une valeur (supposée être en millimètres), dans une cellule de G et si l'unité à côté en H est le mètre, la division par 10 s'effectue.

- si l'unité d'une valeur est le millimètre et que tu modifies dans la colonne H pour y mettre des mètres, la division par 10 s'effectue

- si l'unité d'une valeur est le mètre et que tu modifies dans la colonne H pour y mettre des millimètres, la multiplication par 10 s'effectue

Il y aurait encore des modifs à faire... les unités mètre et millimètre doivent être normalement indiquées en minuscules ; on pourrait convertir automatiquement...il faudrait voir aussi pour le format en G ; si tes mm n'ont jamais de décimales, on pourrait mettre le format correspondant en ne mettant les décimales que pour les mètres. Idem si l'unité est la pièce...

Cordialement

 

[tototiti2008]

Re : Executer une macro a chaque action

et autres petits soucis pas faciles à éviter :
si l'unité est le mètre et que tu resaisis l'unité et que tu remets mètre...

mais ça couvre déjà beaucoup de cas 🙂

 

[mécano41]

Re : Executer une macro a chaque action

En ajoutant dans les codes Feuille1 :

Private Sub Worksheet_SelectionChange(ByVal Cible As Excel.Range)
MemoireContenuCible = Cible.Value
End Sub

en ajoutant en tête de module 1 :

Public MemoireContenuCible As Variant

et en modifiant ce sub :

Sub Conversion2(CellCibl As Range)
Columns("G:G").NumberFormat = "#,##0.000"    ' Convertir le format de la colonne G en nombre avec 3 chiffres derrière la virgule
If MemoireContenuCible = "MM" And CellCibl = "M" Then                            ' Si la nouvelle unité est le mètre
    Range("G" & CellCibl.Offset(0, -1).Row).Value = Range("G" & CellCibl.Offset(0, -1).Row).Value / 1000       ' On divise la valeur par 1000
ElseIf MemoireContenuCible = "M" And CellCibl = "MM" Then                     ' Si la nouvelle unité est le millimètre
    Range("G" & CellCibl.Offset(0, -1).Row).Value = Range("G" & CellCibl.Offset(0, -1).Row).Value * 1000       ' On multiplie la valeur par 1000
End If
End Sub

cela a l'air de résoudre le problème de réécriture de la même unité... mais il y en a probablement d'autres!

Cordialement

 

[Napst3r]

Re : Executer une macro a chaque action

whaaaaaaouuuuu! Franchement mécano41 ce que tu ma fait la c'est énorme sa marche nickel, t'y est pour qqc aussi tototiti2008, je vous doit une fier chandel.
juste une dernière chose et après je vous embéte plus, dans ton module yaurai moyen de dire que PCE est pareille que MM, comme sa un jour si on remplacer l'unité PCE par M ou MM et vise versa la conversion se fait aussi.

Cher xldnaute merci pour tout, Napst3r

 

[tototiti2008]

Re : Executer une macro a chaque action

Edit : Désolé me suis trompé, rien à dire sur MemoireContenuCible

Un autre remarque : les valeurs du tableau sont-elles toujours saisies ou peuvent-elles être mises par copier coller ?

si on fait un copier coller, ça peut poser un problème.

embêtant le tototiti aujourd'hui 😉

 

[Napst3r]

Re : Executer une macro a chaque action

c'est à dire, c'est un souci ou pas, parsque j'ai testé plusieurs cas de figure et la plupart marche...

 

[tototiti2008]

Re : Executer une macro a chaque action

une proposition si on fait un copier/coller de plusieurs cellules (à tester)

Private Sub Worksheet_Change(ByVal Cible As Excel.Range)
Dim cellule As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Range("G:G"), Cible) Is Nothing Then
    If Cible.Count = 1 Then
        Call Conversion1(Cible)
    Else
        For Each cellule In Cible
            Call Conversion1(cellule)
        Next cellule
    End If
ElseIf Not Intersect(Range("H:H"), Cible) Is Nothing Then
    If Cible.Count = 1 Then
        Call Conversion2(Cible)
    Else
        For Each cellule In Cible
            Call Conversion2(cellule)
        Next cellule
    End If
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

[tototiti2008]

Re : Executer une macro a chaque action

oupsss.. c'est vrai que dans ce cas, il faudrait aussi revoir MemoireContenuCible..

désolé, ça ne marche pas

 

[mécano41]

Re : Executer une macro a chaque action

Euh, une remarque : MemoireContenuCible stocke la valeur de la dernière cellule modifiée... or ce n'est pas forcément la même que celle qui est modifiée ensuite.

Non, ça prend la valeur de la cellule que l'on vient de sélectionner, donc celle que l'on va modifier ; si l'on veut en modifier une autre, on va bien se déplacer vers celle-ci et alors la procédure Worksheet-SelectionChange va mettre à nouveau le contenu en mémoire avant la modif. ... à moins que je n'aie pas compris ce que tu veux dire car chez moi, cela semble marcher. Il faudrait m'expliquer ce qui ne va pas afin que je le modifie...


Pour napst3r :

Pour ce que tu demandes, il ne doit pas y avoir de problème mais :

- si c'est en m ou mm et que l'on met PCE à la place, on fait quoi en G? Rien?
- que fait-on pour les formats (voir à la fin de mon message #16), on met 0 décimales si mm ou PCE et 3 décimales si m?

J'attends vos réponses avant de commencer : 😀

Cordialement

 

[Napst3r]

Re : Executer une macro a chaque action

non les valeurs du tableau sont toujours saisie, a priori, mais c'est vrai on sais jamais, on pourrai être amener un jour à copier, ton code je le met à la suite de l'autre dans le code de la feuille?

 

[tototiti2008]

Re : Executer une macro a chaque action

non, ne le mets pas, ça demande une autre gestion de MemoireContenuCible et moi je vais devoir partir.

Désolé, j'ai pas été trés constructif, reste sur le code de mécano... 🙂

 

[Napst3r]

Re : Executer une macro a chaque action

c'est ce que je voulait faire au debut mais je me disais que vous en avier déja fait pas mal, sinon oui je n'ai jamais de décimal en MM (et en PCE mais sa va de soi), a lorigine je voulait sa: (plusieurs cas de figure dit moi ce que tu en pensse) (a critiquer)
- 11,111 M
- 11 MM
- 11 PCE
- 11 M
- 11,110 M
alors tu saurai faire sa toi, parsque moi déja que faire un tt petit programme je c pa mais la je séche, et en plus se serai de faire sa tout en gardant les même contrainte qu'avant.

Dsl si je fais bouillir vos cerveau avec tout, en tout cas vous êtes des as les mecs

 

[Napst3r]

Re : Executer une macro a chaque action

ok tototiti2008, merci pour tout , j'éspére un jour vous égaler

au plaisir, Napst3r

 

[mécano41]

Re : Executer une macro a chaque action

je regarde déjà cela et j'envoie...on verra ensuite pour le copier-coller.

Cordialement

 

[Napst3r]

Re : Executer une macro a chaque action

non t'inquiéte pas pour le copier-coller c'était juste un truc en plus, mais au final c'est pas vraiment ce que je cherche pour mon projet