Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Problème de procédure

Problème de procédure

2 réponses
Avatar
Didier NOVARIN
Bonsoir
J'ai au départ cette procédure, et je voudrai faire en sorte que le numéro
de ligne soit : F& Num_ligne
Je vous remercie
Didier

Sub Test()
Num_ligne = ActiveCell.Row
Range("F" & ActiveCell).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=NB.SI($F$3:$F$5000;F3)>1"
Selection.FormatConditions(1).Interior.ColorIndex = 35
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonsoir,

Ceci peut-être
'-----------
Sub Test()
Range("$F$" & ActiveCell.Row & ":$f$5000").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=NB.SI($F$" & ActiveCell.Row & ":$F$5000;F" & ActiveCell.Row &
")>1"
Selection.FormatConditions(1).Interior.ColorIndex = 35
End Sub
'-----------

--
Salutations
JJ

"Didier NOVARIN" a écrit dans le message de
news:
Bonsoir
J'ai au départ cette procédure, et je voudrai faire en sorte que le numéro
de ligne soit : F& Num_ligne
Je vous remercie
Didier

Sub Test()
Num_ligne = ActiveCell.Row
Range("F" & ActiveCell).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=NB.SI($F$3:$F$5000;F3)>1"
Selection.FormatConditions(1).Interior.ColorIndex = 35
End Sub



Avatar
Didier NOVARIN
Merci beaucoup Jacky, c'est exactement cela, c'est parfait !
Très bonne soirée
Didier


"Jacky" a écrit dans le message de news:

Bonsoir,

Ceci peut-être
'-----------
Sub Test()
Range("$F$" & ActiveCell.Row & ":$f$5000").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=NB.SI($F$" & ActiveCell.Row & ":$F$5000;F" & ActiveCell.Row &
")>1"
Selection.FormatConditions(1).Interior.ColorIndex = 35
End Sub
'-----------

--
Salutations
JJ

"Didier NOVARIN" a écrit dans le message de
news:
Bonsoir
J'ai au départ cette procédure, et je voudrai faire en sorte que le
numéro de ligne soit : F& Num_ligne
Je vous remercie
Didier

Sub Test()
Num_ligne = ActiveCell.Row
Range("F" & ActiveCell).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=NB.SI($F$3:$F$5000;F3)>1"
Selection.FormatConditions(1).Interior.ColorIndex = 35
End Sub