VBA : différencier nombres et formules

DoubleZero

XLDnaute Barbatruc

• 1 Octobre 2010

• #16

Re : VBA : différencier nombres et formules

Merci, JNP,

Bonne soirée, bon dodo et à bientôt !

🙂🙂

 

Vote positif 0 Vote négatif

V

vhells

Guest

• 4 Octobre 2010

• #17

Re : VBA : différencier nombres et formules

Dans le même genre je voudrais savoir s'il est possible d'après vous d'isoler les cellules qui font références directement à d'autres onglets pour pouvoir isoler les résultats qui viennent de d'autres onglets et ainsi pouvoir colorer les nombres (ou texte d'ailleurs) de ces cellules.

Merci beaucoup.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 4 Octobre 2010

• #18

Re : VBA : différencier nombres et formules

Re 🙂,
En principe, toute formule qui amène des données d'un autre onglet contient un "!", donc tu peux te baser la dessus 😉.
Un petit test style Like "*!*" par exemple 🙄.
Bon courage 😎

 

Vote positif 0 Vote négatif

V

vhells

Guest

• 4 Octobre 2010

• #19

Re : VBA : différencier nombres et formules

Oui j'ai essayé de partir d'un remplacer tout avec pour objet de recherche "!" et remplacer par "!" et en modifiant la mise en forme en mettant une couleur mais ça me dégage tout le format initial (genre %, etc.) donc je cherche encore...

 

Vote positif 0 Vote négatif

V

vhells

Guest

• 4 Octobre 2010

• #20

Re : VBA : différencier nombres et formules

Bon j'ai fait un truc mais c'est pas très propre ni optimal...

Sub AutreOnglet()
Dim i As Integer

For i = 1 To 150

Cells.Find(What:="!", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
With Selection.Font
.ThemeColor = xlThemeColorAccent6
.TintAndShade = -0.249977111117893
End With
Next

End Sub

 

Dernière modification par un modérateur: 4 Octobre 2010

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 4 Octobre 2010

• #21

Re : VBA : différencier nombres et formules

Re 🙂,
J'aurais plutôt fait

Code:

Sub AutreOnglet()
Dim Cellule As Range
For Each Cellule In Cells.SpecialCells(xlCellTypeFormulas)
If Cellule.Formula Like "*!*" Then
With Cellule.Font
.ThemeColor = xlThemeColorAccent6
.TintAndShade = -0.249977111117893
End With
End If
Next
End Sub

A + 😎

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 4 Octobre 2010

• #22

Re : VBA : différencier nombres et formules

Re...

Code:

[COLOR="DarkSlateGray"][B].ThemeColor = xlThemeColorAccent6[/B][/COLOR]

Est-ce bien du "Toutes versions", ça ?

(Pas moyen de trouver cette propriété chez moi...)​

ROGER2327
#4250

Vendredi 27 Absolu 138 (Saintes Gigolette et Gaufrette, dogaresses, SQ)
13 Vendémiaire An CCXIX
2010-W40-1T15:12:11Z

 

Vote positif 0 Vote négatif

V

vhells

Guest

• 4 Octobre 2010

• #23

Re : VBA : différencier nombres et formules

JNP à dit:

Re 🙂,
J'aurais plutôt fait

Code:

Sub AutreOnglet()
Dim Cellule As Range
For Each Cellule In Cells.SpecialCells(xlCellTypeFormulas)
If Cellule.Formula Like "*!*" Then
With Cellule.Font
.ThemeColor = xlThemeColorAccent6
.TintAndShade = -0.249977111117893
End With
End If
Next
End Sub

A + 😎

Cliquez pour agrandir...

Quand je lance ta macro rien ne se passe, elle marche chez toi JNP ?

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 4 Octobre 2010

• #24

Re : VBA : différencier nombres et formules

Re 🙂,

vhells à dit:

Quand je lance ta macro rien ne se passe, elle marche chez toi JNP ?

Cliquez pour agrandir...

Oui, mais elle fonctionne sur la feuille active, il faudrait rajouter la feuille à traiter

Code:

Sub AutreOnglet()
Dim Cellule As Range
For Each Cellule In [COLOR=red][B]Sheets("Feuil1").[/B][/COLOR]Cells.SpecialCells(xlCellTypeFormulas)
If Cellule.Formula Like "*!*" Then Cellule.Font.[COLOR=blue][B]Color = 683492[/B][/COLOR]
Next
End Sub

ROGER2327 à dit:

Est-ce bien du "Toutes versions", ça ?

Cliquez pour agrandir...

Non, c'est du 2007-2010, j'avais repris le code de Vhells, mais j'ai remis du code 2003 😉.
Bonne soirée 😎

 

Vote positif 0 Vote négatif