Discussion :

[Moun10be]

Bonjour,

Dans le cadre de mon boulot j'essai de faciliter les taches de mes collègues en essayant d'améliorer certain fichier Excell

1) comment faire apparaitre en couleur la cellule qui ce trouve dans la colonne A en fessant une recherche sur la cellule L20
Ex : je tape T4060 sur la cellule L20 et la cellule A6 prend une couleur genre orange

2) Lorsque j'ai un type de motrice indiquer dans les cellules de la colonne A les cellules M4, M6, M8 et M10 totalise les types de motrices qui on été indiqué dans les cellules de la colonne A
Ex : il est inscrit dans les cellules de la colonne A T4*** alors la cellule M10 totalise le nombre de motrice qui on été inscrit dans les cellules de la colonne A
Ainsi de suite si on indique T2*** la cellule M6, T3*** la cellule M8, T7*** la cellule M4 totalise de la même manière.
Et la cellule M13 totalise le nombre qui est indiquer dans les cellules M4, M6, M8 et M10

Je vous joint le fichier Excell ==> Rentrée motrice.xlsm

Un tout grand merci d'avance.

[ARTURO83]

Bonjour,

Voici
Pièce jointe 588902

Normalement, pas besoin de VBA, mais comme c'est votre demande, alors:
A chaque appui sur le bouton "DELETE", les formules sont réécrites ainsi que la mise en forme conditionnelle sur la colonne A

Le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Delet()
    Range("A3:J59").Select
    Selection.ClearContents
    Formules
    MFC
End Sub
 
Sub Formules()
    Application.ScreenUpdating = False
    Range("M4").FormulaR1C1 = "=COUNTIF(C1,""T7*"")"
    Range("M6").FormulaR1C1 = "=COUNTIF(C1,""T2*"")"
    Range("M8").FormulaR1C1 = "=COUNTIF(C1,""T3*"")"
    Range("M10").FormulaR1C1 = "=COUNTIF(C1,""T4*"")"
    Range("M13").FormulaR1C1 = "=R[-9]C+R[-7]C+R[-5]C+R[-3]C"
End Sub
 
Sub MFC()
    Dim DerLig As Long
    Formule = "=$A3=$L$20"
    DerLig = Range("A" & Rows.Count).End(xlDown).Row
    Range("A3").Select
    'Efface tous les formats conditionnels existants sur toute la plage sélectionnée
    Range("A3:A" & DerLig).FormatConditions.Delete
    'Ajoute un Format conditionnel
    Range("A3:A" & DerLig).FormatConditions.Add(xlExpression, xlLess, Formule).Interior.Color = RGB(255, 192, 0)
End Sub

Cdlt

[Philippe Tulliez]

Bonjour,

1) comment faire apparaitre en couleur la cellule qui ce trouve dans la colonne A en fessant une recherche sur la cellule L20
Ex : je tape T4060 sur la cellule L20 et la cellule A6 prend une couleur genre orange

Une simple mise en forme conditionnelle suffit.

Les étapes

• Sélection des cellules de la colonne A (de A3 à A?)
• Cliquer sur Nouvelle règle... dans la liste déroulante de la commande Mise en forme conditionnelle du groupe Style de l'onglet [Accueil]
• Dans la boîte de dialogue Nouvelle règle de mise en forme, sélectionner la règle Utilisez une formule pour déterminer pour quelles cellules le format sera appliqué et entrer la formule suivante
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  A3=$L$20

• Définir le format à appliquer si la formule renvoie VRAI

Je vous suggère d'utiliser les tableaux structurés.

1. Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)
2. Excel: Les tables de données en VBA

Le second tutoriel vise l'utilisation par VBA des tableaux structurés

[Moun10be]

Merci Pilippe et ARTURO83

De préférence j'aimerai en code VBA

Arturo83 tes code sont parfait, par contre comment je pourrai corriger cette erreur dans le code

Je m'explique lorsque j'inscrit une recherche dans la cellule L20 c'est bon
Mais lorsque rien n'est inscrit dans la cellule L20 alors toute les cellules de la colonne A sont en orange

Merci.

[PrinceCorwin]

Bonjour,

Sur la mise forme conditionnelle, il faut ajouter le fait de tester si la cellule L20 est vide

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=ET(A3=$L$20;NON(ESTVIDE($L$20)))

[ARTURO83]

Dans la Sub MFC()

remplacez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Formule = "=$A3=$L$20"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Formule = "=ET($L$20<>"""";$A3=$L$20)"

Cdlt

[Moun10be]

Merci