Ma feuil1 est composée de 2 colonnes et une plage de valeurs quelconques.
La colonne A comporte des valeurs de type texte ( toto,toto1,toto2,
tata1,tata2,tata3 etc)
Ma plage quant à elle est située en C1 : F20 et contient ces mêmes valeurs
mais de manière
démultipliée de sorte que je peux avoir dans ma plage, 10 fois toto1, 20
fois tata2 , etc.
Je voudrais colorer les cellules de ma plage C1 : F20 en jaune lorsque la
valeur saisie en colonne A correspond aux valeurs qui y figurent .Pour cela
j'ai fait un petit programme qui fonctionne mais auquel je voudrais ajouter
le nombre de fois où la valeur saisie apparaît dans ma plage et indiquer ce
nombre en colonne B.
Mon programme est le suivant :
Sub Feuil7_Bouton4_QuandClic()
Dim cell1 As Range
Dim cell2 As Range
For Each cell1 In Worksheets("Feuil7").Range("critères")
For Each cell2 In Worksheets("feuil7").Range("ztest")
If cell1.Value = cell2.Value Then
cell2.Interior.ColorIndex = 6
End If
Next
Next
Pour une saisie en A1:A10 et comparaison avec C1:F20 (à adapter)
Sélection C1:F20 > mis en forme conditionnelle > la formule est : =NB.SI($A$1:$A$20;C1)>0
format > etc.
En B2:B10 : =NB.SI($C$1:$F$20;A1)
AV
Bonsoir,
Merci pour ta réponse.Je vais essayer ce que tu m'as indiqué, mais tu n'as pas l'équivalent en VBA ? Merci pour ton aide.
Papyty
Bonjour @ tous et à Bidou :
Merci pour ta réponse.Je vais essayer ce que tu m'as indiqué, mais tu n'as
pas l'équivalent en VBA ?
Si j'ai pas confondu tes zones, essaie:
Sub Feuil7_Bouton4_QuandClic() Dim Cell1 As Range Dim Cell2 As Range Range("ztest").Interior.ColorIndex = xlNone For Each Cell1 In Worksheets("Feuil7").Range("critères") For Each Cell2 In Worksheets("feuil7").Range("ztest") If Cell1 = Cell2 Then Cell2.Interior.ColorIndex = 6 End If Next Cell2 Range(Cell1.Address).Offset(0, 1).FormulaR1C1 = "=COUNTIF(ztest,RC[-1])" Next Cell1 End Sub
-- @+ Thierry 02/12/2003 20:58:57
Bonjour @ tous et à Bidou :
Merci pour ta réponse.Je vais essayer ce que tu m'as indiqué, mais tu
n'as
pas l'équivalent en VBA ?
Si j'ai pas confondu tes zones, essaie:
Sub Feuil7_Bouton4_QuandClic()
Dim Cell1 As Range
Dim Cell2 As Range
Range("ztest").Interior.ColorIndex = xlNone
For Each Cell1 In Worksheets("Feuil7").Range("critères")
For Each Cell2 In Worksheets("feuil7").Range("ztest")
If Cell1 = Cell2 Then
Cell2.Interior.ColorIndex = 6
End If
Next Cell2
Range(Cell1.Address).Offset(0, 1).FormulaR1C1 = "=COUNTIF(ztest,RC[-1])"
Next Cell1
End Sub
Merci pour ta réponse.Je vais essayer ce que tu m'as indiqué, mais tu n'as
pas l'équivalent en VBA ?
Si j'ai pas confondu tes zones, essaie:
Sub Feuil7_Bouton4_QuandClic() Dim Cell1 As Range Dim Cell2 As Range Range("ztest").Interior.ColorIndex = xlNone For Each Cell1 In Worksheets("Feuil7").Range("critères") For Each Cell2 In Worksheets("feuil7").Range("ztest") If Cell1 = Cell2 Then Cell2.Interior.ColorIndex = 6 End If Next Cell2 Range(Cell1.Address).Offset(0, 1).FormulaR1C1 = "=COUNTIF(ztest,RC[-1])" Next Cell1 End Sub
-- @+ Thierry 02/12/2003 20:58:57
AV
Merci pour ta réponse.Je vais essayer ce que tu m'as indiqué, mais tu n'as pas l'équivalent en VBA ?
Pour le cas présent, je ne vois pas l'intérêt du vba ! Si tu dois, après chaque saisie, lancer une macro... pas terrible Par ailleurs, mieux vaut la MFC (pour cette question), qu'une proc évènementielle
AV
Merci pour ta réponse.Je vais essayer ce que tu m'as indiqué, mais tu n'as
pas l'équivalent en VBA ?
Pour le cas présent, je ne vois pas l'intérêt du vba !
Si tu dois, après chaque saisie, lancer une macro... pas terrible
Par ailleurs, mieux vaut la MFC (pour cette question), qu'une proc
évènementielle
Merci pour ta réponse.Je vais essayer ce que tu m'as indiqué, mais tu n'as pas l'équivalent en VBA ?
Pour le cas présent, je ne vois pas l'intérêt du vba ! Si tu dois, après chaque saisie, lancer une macro... pas terrible Par ailleurs, mieux vaut la MFC (pour cette question), qu'une proc évènementielle
AV
Bidou
Merci pour ta réponse.Je vais essayer ce que tu m'as indiqué, mais tu n'as
pas l'équivalent en VBA ?
Pour le cas présent, je ne vois pas l'intérêt du vba ! Si tu dois, après chaque saisie, lancer une macro... pas terrible Par ailleurs, mieux vaut la MFC (pour cette question), qu'une proc évènementielle
AV
Tu as raison puisque la procédure telle que tu me l'as indiquée fonctionne très bien, mais c'était simplement pour pouvoir satisfaire ma curiosité et
avoir le sentiment d'accomplir la tâche que je m'étais fixée (qui a demandé un travail d'autodidacte très important au petit excellien que je suis !!) bonsoir et encore merci de ton aide.
Merci pour ta réponse.Je vais essayer ce que tu m'as indiqué, mais tu
n'as
pas l'équivalent en VBA ?
Pour le cas présent, je ne vois pas l'intérêt du vba !
Si tu dois, après chaque saisie, lancer une macro... pas terrible
Par ailleurs, mieux vaut la MFC (pour cette question), qu'une proc
évènementielle
AV
Tu as raison puisque la procédure telle que tu me l'as indiquée fonctionne
très bien, mais c'était simplement pour pouvoir satisfaire ma curiosité et
avoir le sentiment d'accomplir la tâche que je m'étais fixée (qui a demandé
un travail d'autodidacte très important au petit excellien que je suis !!)
bonsoir et encore merci de ton aide.
Merci pour ta réponse.Je vais essayer ce que tu m'as indiqué, mais tu n'as
pas l'équivalent en VBA ?
Pour le cas présent, je ne vois pas l'intérêt du vba ! Si tu dois, après chaque saisie, lancer une macro... pas terrible Par ailleurs, mieux vaut la MFC (pour cette question), qu'une proc évènementielle
AV
Tu as raison puisque la procédure telle que tu me l'as indiquée fonctionne très bien, mais c'était simplement pour pouvoir satisfaire ma curiosité et
avoir le sentiment d'accomplir la tâche que je m'étais fixée (qui a demandé un travail d'autodidacte très important au petit excellien que je suis !!) bonsoir et encore merci de ton aide.
