Format conditionnel (si deux mots identiques trouvés dans un libellé)

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais, à nouveau, vos lumières sur ce format conditionnel un peu spécial..

tout est dans le titre...voir fichier

Bien à vous,
Christian

 

[Softmama]

Re : Format conditionnel (si deux mots identiques trouvés dans un libellé)

Bonjour,

une proposition avec une fonction personnalisée :

Function Deuxmotsidentiques(c As Range) As Boolean
Application.Volatile
Dim tTxt As String
tTxt = ""
If c <> "" Then
  For t = 1 To Len(c)
    tTxt = tTxt & IIf(LCase(Mid(c, t, 1)) Like "[a-zàâéèêîôùû]", Mid(c, t, 1), "")
    If Mid(c, t, 1) = " " Then tTxt = tTxt & " "
  Next t
  tablMots = Split(tTxt)
  For t = LBound(tablMots) To UBound(tablMots) - 1
    For u = t + 1 To UBound(tablMots)
        If tablMots(t) = tablMots(u) Then Deuxmotsidentiques = True: Exit Function
    Next u
  Next t
End If
End Function

cf. fichier joint : si dans les cellules D10 à D14, un mot apparaît 2 fois, la cellule correspondante en E10 E14 apparait en rouge sur fond noir.

[EDIT] : penser à mettre la feuille en calcul automatique (Options/Calcul)

 

[Christian0258]

Re : Format conditionnel (si deux mots identiques trouvés dans un libellé)

Re, le forum, Softmama,

Merci, Softmama, pour cette fonction.
Justement mon fichier est volontairement en calcul manuel.
Comment intégrer dans ta fonction le fait de passer en calcul automatique, puis en calcul manuel ?

Encore merci,
Bien à toi,
Christian

 

[Softmama]

Re : Format conditionnel (si deux mots identiques trouvés dans un libellé)

Re,

Heu, Application.calculation = xlCalculationAutomatic en début de macro (et = xlCalculationManual en fin de macro). Mais le mieux c'est vraiment de garder en calcul automatique selon moi.