Erreur VBA mais pas formule manuelle

Bonjour à tous,

Mon problème est le suivant : j'ai créé trois fonctions que voici qui me permettent de détecter la couleur d'une cellule, si elle est en gras et si elles soulignée.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public Function couleur(Cible As Range) As Variant couleur = Cible.Font.ColorIndex End Function   Public Function souligne(Cible As Range) As Variant souligne = Cible.Font.Underline End Function   Public Function gras(Cible As Range) As Variant gras = Cible.Font.Bold End Function

---

J'essaye d'utiliser ces fonctions dans ma macro dont voici une partie :

Code:

---

1 2 3 4 5 6 7 8 9 10

Range("D3").Select     ActiveCell.FormulaR1C1 = _ "=IF(RC[-1]<>"""",IF(OR(couleur(Intégration!RC[-3])>1,souligne(Intégration!RC[-3])=2,gras(Intégration!RC[-3]),gras(Intégration!RC[-3])=0),""X"",""""),"""")"     Range("D3").Select Selection.AutoFill Destination:=Range("D3:D75"), Type:=xlFillDefault

---

Ce qui me pose problème c'est que quand je passe par la macro, l'étape autofilldestination me donne une erreur #VALEUR! alors que quand je fais cette dernière étape à la main, je n'ai pas d'erreur.

Quelqu'un aurait-il une suggestion ?

Merci mille fois :)

Bonjour,

Dans votre formule, il y a 2 fois

Code:

---

,gras(Intégration!RC[-3])

---

Vous pouvez aussi remplacer tous les codes par un code unique:

Code:

---

1 2 3 4 5 6

Function Cell(Cible As Range) As String If Cible <> "" Then If Cible.Font.ColorIndex > 1 Or Cible.Font.Underline = 2 Or Cible.Font.Bold = 0 Then Cell = "x" Else: Cell = "" Else: Cell = "" End If End Function

---

La formule devient:

Code:

---

=cell(Intégration!A3)

---

Cdlt

Merci en effet il y avait deux gras qui trainaient, mais même en simplifiant :

Code:

---

1 2 3

ActiveCell.FormulaR1C1 = _ "=IF(RC[-1]<>"""",IF(OR(couleur(Intégration!RC[-3])>1,souligne(Intégration!RC[-3])=2,gras(Intégration!RC[-3])=TRUE),""X"",""""),"""")"

---

J'ai toujours une erreur #VALEUR quand je passe par la macro qui n'apparaît pas quand je le fais manuellement. J'ai essayé votre formule, plus simple en effet mais elle me met une X dès que ma cellule contient du texte, même s'il n'est ni gras, ni souligné ni en rouge.

Bonjour,

le fichier en exemple, allez sur la feuille "Intégratyion", modifiez les ces cellules, puis cliquez sur le bouton, le résultat dans la feuil1
Pièce jointe 525834

Le code de la macro et de la fonction

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Sheets("Feuil1").Select Range("D3:D75").FormulaR1C1 = "=Cel(Intégration!RC[-3])" End Sub   Function Cel(Cible As Range) As String If Cible <> "" Then If Cible.Font.ColorIndex > 1 Or Cible.Font.Underline = 2 Or Cible.Font.Bold = True Then Cel = "x" Else: Cel = "" Else: Cel = "" End If End Function

---

Petit rappel: les évènements tels que changement de police, de soulignement, ou de type de caractères ne sont pas détecter par la VBA, il faut donc une action de votre part que cela soit pris en compte, donc à l'aide d'un bouton.

Cdlt

Bonjour,

Désolée pour le délai de réponse, congés obligent :) Merci énormément cela fonctionne avec votre fichier, mystère sur le mien mais l'essentiel c'est que cela fonctionne.

Merci encore et bon réveillon !