Colorer une ligne si "0123456789"

[degap05]

Bonjour à tous les XLDnautes,

J'ai besoin de votre aide.

Je maitrise la coloration d'une ligne, mais pas dans ce cas là 🙁

Je souhaite que ma ligne se colore si la cellule en colonne "I" contient n'importe quels chiffres de 0 à 9 (ex: 12 ou 120 ou 93 ou 235....) et n'est pas vide.

Merci.

 

[smotty]

Re : Colorer une ligne si "0123456789"

Bonjour,

Voici une solution en fichier joint.

j'ai utilisé l'évènement de la feuille concernée.

Cordialement

smotty

 

[kjin]

Re : Colorer une ligne si "0123456789"

Bonjour,
Dans le module de la feuille, peut-être comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    If Target.Column = 9 Then
       Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Interior.ColorIndex = _
       IIf(IsNumeric(Target) And Target <> "", 35, xlNone)
    End If
End Sub

A+
kjin

 

[BOISGONTIER]

Re : Colorer une ligne si "0123456789"

Bonjour,

MFC:

=ESTNUM($I2)

JB

 

[abcd]

Re : Colorer une ligne si "0123456789"

Bonjour,

Pas besoin de macro pour faire cela, une MFC suffit.

Sélectionner la plage (A2:I2 ou A2:I10, ou plus grand)
Menu Format / Mise en forme conditionnelle / choisir "la formule est" au lieu de "la valeur de la cellule est", saisir la formule : =ESTNUM($I2) / Format / Motif / choix de la couleur / OK / OK

abcd

 

[degap05]

Re : Colorer une ligne si "0123456789"

Bonjour,

Voici une solution en fichier joint.

j'ai utilisé l'évènement de la feuille concernée.

Cordialement

smotty

Merci de vos réponses rapides et de la tienne "smotty"

Dans mon cas le nombre qui vient s'inscrire en colonne "I" est le résultat de la formule: =SI(OU(C5<>"";F5<>"");SOMMEPROD(I4+C5-F5);""), aprés inscription des données en colonne "C" et "F" au moyen d'un USF.
Dans ce cas ta solution ne fonctionne pas😱

Saurais-tu l'adapter à ma première proposition ?

Merci.

 

[Tibo]

Re : Colorer une ligne si "0123456789"

Bonjour,

As-tu essayé les Mises en Forme Conditionnelles qui t'ont été proposées ?

Sinon, autre point, j'ai du mal à comprendre ce que vient faire le SOMMEPROD dans ta formule. Il me semble que tu peux tout simplement le supprimer.

@+

 

[degap05]

Re : Colorer une ligne si "0123456789"

Bonjour,

As-tu essayé les Mises en Forme Conditionnelles qui t'ont été proposées ?

Sinon, autre point, j'ai du mal à comprendre ce que vient faire le SOMMEPROD dans ta formule. Il me semble que tu peux tout simplement le supprimer.

@+

Bonjour, merci à toi,

J'ai fait comme tu préconises pour SOMMEPROD, en effet SOMME suffit.
Pour la coloration de ligne, j'aurais bien aimé conserver le VBA.

Merci.

 

[smotty]

Re : Colorer une ligne si "0123456789"

Salut à tous,

Alors je mettrais juste ce bout de code:

with worksheets(1)
V = .Cells(l, 9).Value
If IsNumeric(V) And V <> "" Then
Range(.Cells(l, 1), .Cells(l, 9)).Interior.ColorIndex = 35
End If
end with

dans le code du USF juste après avoir entré les données sur la feuille.

En espérant que ça t'aidera...

 

[degap05]

Re : Colorer une ligne si "0123456789"

Salut à tous,

Alors je mettrais juste ce bout de code:

with worksheets(1)
V = .Cells(l, 9).Value
If IsNumeric(V) And V <> "" Then
Range(.Cells(l, 1), .Cells(l, 9)).Interior.ColorIndex = 35
End If
end with

dans le code du USF juste après avoir entré les données sur la feuille.

En espérant que ça t'aidera...

Re-bonjour, cela m'aide beaucoup, en effet🙂

Juste un petit problème de blocage de la macro sur cette ligne:

V = .Cells(l, 9).Value

"Erreur définie par l'application ou par l'objet"

Problème de syntaxe ??

Merci.

 

[smotty]

Re : Colorer une ligne si "0123456789"

mille excuse, le l a la valeur de la ligne.

il suffit juste de l'adapter au code de ton USF

 

[degap05]

Re : Colorer une ligne si "0123456789"

mille excuse, le l a la valeur de la ligne.

il suffit juste de l'adapter au code de ton USF

Bonjour,

La valeur de la ligne sélectionnée, se trouve bien en colonne "I" , donc cela devrait fonctionner 😕

A+