VBA : différencier nombres et formules

[vhells]

Bonjour à tous,

Je souhaiterais pouvoir réaliser une petite macro assez simple permettant de mettre en couleur (bleu par exemple) les nombres rentrés manuellement dans une feuille de calculs mais qui laisserai les nombres résultants de formules dans leur mise en forme actuelle.

L'idée serait d'identifier rapidement quels sont les éléments rentrés manuellement et quels sont ceux calculés de manière automatique.

Mon problème réside dans le fait que je ne sais pas comment écrire en VBA que si une cellule ne commence pas par "=" (et n'est donc pas une formule) et qu'il s'agit d'un nombre, alors je lui applique la modification souhaitée.

Merci beaucoup pour votre aide 🙂

 

[JNP]

Re : VBA : différencier nombres et formules

Bonjour Vhells et bienvenue 🙂,
Ne cherche pas compliqué 😛

ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Font.ColorIndex = 5

Bonne soirée 😎

 

[CBernardT]

Re : VBA : différencier nombres et formules

Bonjour vhells, salut JNP et le forum,

Une macro qui cherche la zone utilisée puis cherche les cellules contenant des valeurs de type constante et qui les colore en bleu.

Sub Macro2()
Dim Zone As Range, Consts As Range
Set Zone = Range(Range("A1"), Range("A1").SpecialCells(xlCellTypeLastCell))
Set Consts = Zone.SpecialCells(xlCellTypeConstants, 1)
Consts.Interior.ColorIndex = 8
End Sub

 

[ROGER2327]

Re : VBA : différencier nombres et formules

Bonjour à tous

Je verrais bien ceci :

[COLOR="DarkSlateGray"][B]Sub toto()
  With ActiveSheet.Cells
    .SpecialCells(xlCellTypeConstants).Font.ColorIndex = 0
    .SpecialCells(xlCellTypeConstants, xlNumbers).Font.ColorIndex = 41 [COLOR="DarkOrange"]'à adapter à la couleur voulue[/COLOR]
  End With
End Sub[/B][/COLOR]

ROGER2327
#4235

Mardi 24 Absolu 138 (Saints Rakirs et Rastrons, porte-côtelettes, SQ)
10 Vendémiaire An CCXIX
2010-W39-5T15:20:54Z

 

[ROGER2327]

Re : VBA : différencier nombres et formules

Suite...

... ou encore une procédure évènementielle :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    .Font.ColorIndex = 0
    On Error Resume Next
    .SpecialCells(xlCellTypeConstants, xlNumbers).Font.ColorIndex = 41
    On Error GoTo 0
  End With
End Sub[/B][/COLOR]

ROGER2327
#4236

Mardi 24 Absolu 138 (Saints Rakirs et Rastrons, porte-côtelettes, SQ)
10 Vendémiaire An CCXIX
2010-W39-5T15:45:51Z

 

[vhells]

Re : VBA : différencier nombres et formules

Merci Roger2327 !!! C'est exactement ce que je cherchais ! 🙂

J'étais déjà un grand fan du forum mais alors là vous me sauvez la vie ! Merci !

Merci aussi à CBernardT, mais ce que je souhaitais c'était la coloration des chiffres et non de la cellule.

 

[ROGER2327]

Re : VBA : différencier nombres et formules

Re...

Merci Roger2327 !!! C'est exactement ce que je cherchais ! 🙂

J'étais déjà un grand fan du forum mais alors là vous me sauvez la vie ! Merci !

Merci aussi à CBernardT, mais ce que je souhaitais c'était la coloration des chiffres et non de la cellule.

Parfait !
Pour mon information, laquelle des deux procédures proposées préférez-vous ? Ce n'est pas de l'indiscrétion déplacée : savoir quelle solution est la plus intéressante m'est utile pour mieux orienter mes réponses.

Merci d'avance.​

ROGER2327
#4237

Mardi 24 Absolu 138 (Saints Rakirs et Rastrons, porte-côtelettes, SQ)
10 Vendémiaire An CCXIX
2010-W39-5T16:22:37Z

 

[Staple1600]

Re : VBA : différencier nombres et formules

Bonsoir à tous

vhells:
je t'encourage à découvrir la fonction de la touche F5 dans Excel
1) Sélectionnes une plage de cellules avec :

nombres rentrés manuellement

et

les nombres résultants de formules

Puis appuie sur la touche F5
Lis alors attentivement ce qui s'affichera sur ton écran et cliques alors ou bon endroit.

Tu verras : de nombreuses possibilités te seront alors ouvertes 😉

(bien sur tu peux l'utiliser coupler avec VBA)

PS: si tu aimes tripoter ton clavier:
tu peux faire directement : F5 puis ALT+c
(mais également CTRL+T puis ALT+cu)
ou CTRL+T puis ALT+cc )
Le CTRL+T ou le F5 se valent.

 

[vhells]

Re : VBA : différencier nombres et formules

Re...

Parfait !
Pour mon information, laquelle des deux procédures proposées préférez-vous ? Ce n'est pas de l'indiscrétion déplacée : savoir quelle solution est la plus intéressante m'est utile pour mieux orienter mes réponses.

Merci d'avance.​

ROGER2327
#4237

Mardi 24 Absolu 138 (Saints Rakirs et Rastrons, porte-côtelettes, SQ)
10 Vendémiaire An CCXIX
2010-W39-5T16:22:37Z

La première solution a été la plus simple et la meilleure pour moi. Merci encore.

@Staple1600 : Pour la touche F5 je connais mais le but était de pouvoir automatiser ça pour gagner un peu de temps 😉

 

[Staple1600]

Re : VBA : différencier nombres et formules

Re


Justement, je parlais d'utiliser VBA avec F5 (donc ici l'enregistreur de macros)
Ainsi tu aurais découvert SpecialCells par tes propres moyens 😉

 

[ROGER2327]

Re : VBA : différencier nombres et formules

Re...

La première solution a été la plus simple et la meilleure pour moi. Merci encore.

@Staple1600 : Pour la touche F5 je connais mais le but était de pouvoir automatiser ça pour gagner un peu de temps 😉

Merci.
​

ROGER2327
#4238

Mardi 24 Absolu 138 (Saints Rakirs et Rastrons, porte-côtelettes, SQ)
10 Vendémiaire An CCXIX
2010-W39-5T17:08:20Z

 

[vhells]

Re : VBA : différencier nombres et formules

Re


Justement, je parlais d'utiliser VBA avec F5 (donc ici l'enregistreur de macros)
Ainsi tu aurais découvert SpecialCells par tes propres moyens 😉

Pas faux...

 

[Staple1600]

Re : VBA : différencier nombres et formules

Re

La première solution a été la plus simple et la meilleure pour moi. Merci encore.

Tu n'es pas seul sur le forum
Bien que m'adressant à toi de prime abord
j'espère bien que tu ne seras pas le seul à lire ce que j'écrivais
Les membres du forum qui ne connaissent F5 ou Edition/Atteindre
pourront peut-être en tirer profit.

C'était là le sens qu'il fallait voir à mon message.

 

[DoubleZero]

Re : VBA : différencier nombres et formules

Bonsoir le Forum, membres et visiteurs,

Merci pour l’astuce « F5 », elle me servira souvent…

Pour ce qui concerne son utilité avec VBA, étant « bègue du cerveau », j’espère comprendre… un jour ... quelque chose à ce langage inconnu !

Pardonnez-moi si j’en profite pour poser une question hors sujet, dont la réponse, figure peut-être déjà sur le site : depuis mon inscription, de l'aide m'a été offerte et je consulte aussi souvent que possible les sujets abordés. Il arrive que je découvre une astuce compréhensible pour ma petite tête. En pareil cas, puis-je poster un « merci » ou bien cela ne servirait-il qu’à alourdir le site ?

Merci à tous et bonne continuation.

Cordialement,

🙂🙂

 

[JNP]

Re : VBA : différencier nombres et formules

Bonsoir 00 🙂,
Ça faisait longtemps 😛...

Pardonnez-moi si j’en profite pour poser une question hors sujet, dont la réponse, figure peut-être déjà sur le site : depuis mon inscription, de l'aide m'a été offerte et je consulte aussi souvent que possible les sujets abordés. Il arrive que je découvre une astuce compréhensible pour ma petite tête. En pareil cas, puis-je poster un « merci » ou bien cela ne servirait-il qu’à alourdir le site ?

Sachez, gente dame, qu'un merci fait toujours plaisir 😀
Surtout que le demandeur n'y pense pas souvent, donc ça mettra du beaume au cœur au répondeur 😉.
Au plaisir de t'aider sur un fil 😎