macro automatique

eastwick

XLDnaute Impliqué
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 !
 

Pièces jointes

  • FHF Dotation Soins 2013.xlsm
    27.5 KB · Affichages: 632
  • FHF Dotation Soins 2013.xlsm
    27.5 KB · Affichages: 845
  • FHF Dotation Soins 2013.xlsm
    27.5 KB · Affichages: 857

eastwick

XLDnaute Impliqué
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 !
 

Si...

XLDnaute Barbatruc
Re : macro automatique

salut

Si... tu veux l'évènement "Change" et une seule macro :
Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
312 928
Messages
2 093 699
Membres
105 787
dernier inscrit
BABOU79