macro automatique

[eastwick]

Bonjour à tous,
Suite à un problème résolu ici ce jour même, j'aimerais que la macro située en B25 et dont le résultat (soulignement) est fonction de la cellule D27 soit automatique.
Elle l'était mais cela nécessite de valider une saisie en D27 qui n'a plus lieu d'être car elle est elle même le résultat d'une fonction SI.
Je joins mon fichier, ce sera plus facile de comprendre le souci rencontré.
Encore un grand merci à Dormeur74 !

 

[Pierrot93]

Re : macro automatique

Bonjour,

pas sûr d'avoir tout compris... regarde peut être du coté de l'événement "calculate" de la feuille :

Private Sub Worksheet_Calculate()

bon après midi
@+

 

[eastwick]

Re : macro automatique

Non, ce n'est pas ça qui coince !

 

[Pierrot93]

Re : macro automatique

Re,

Non, ce n'est pas ça qui coince !

bah... c'est quoi qui coince alors ??

 

[eastwick]

Re : macro automatique

quand la cellule D27 stipule perte ou gain, perte ou gain est souligné en B25. B25 est le résultat d'une fonction si.
Quel que soit le résultat de cette fonction, je dois relancer la macro pour obtenir la mise à jour du soulignement attendu.
Avant B27 était une celle où je saisissais manuellement "perte" ou "gain" et où je validais.
J'espère avoir été assez clair !

 

[Pierrot93]

Re : macro automatique

Re,

et bien dans ce cas c'est bien ce que j'avancais, l'événement "calculate" de la feuille sera déclenché lorsque B25 sera modifiée...

 

[eastwick]

Re : macro automatique

excuse mon manque de connaissances en ce domaine mais B25 se modifie sans validation. Je n'y touche plus. J'ai rajouté calculate dans la feuille et ça ne fonctionne pas !

 

[Pierrot93]

Re : macro automatique

Re,

il faut mettre le code dans la procédure événementielle "calculate" :

Private Sub Worksheet_Calculate()
'ton code
End Sub

 

[Pierrot93]

Re : macro automatique

Re,

ce dans le module de la feuille concernée, bien sur....

 

[eastwick]

Re : macro automatique

De quel code parles-tu ?

 

[eastwick]

Re : macro automatique

ok c'est bon pigé !!!! merci 1000 fois pour ta patience !

 

[Pierrot93]

Re : macro automatique

re,

Call proprietes

actuellement dans l'événement "change" ....

 

[Si...]

Re : macro automatique

salut

Si... tu veux l'évènement "Change" et une seule macro :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rang As Byte, longueur As Byte
    longueur = Len(Range("B25"))
    Range("B25").Characters(1, longueur).Font.Underline = xlUnderlineStyleNone
    longueur = Len(Range("D27"))
    rang = InStr(UCase(Cells(25, 2)), UCase(Cells(27, 4)))
    Range("B25").Characters(rang, longueur).Font.Underline = xlUnderlineStyleSingle
End Sub

 

[eastwick]

Re : macro automatique

Je prends aussi, merci !