Discussion :

[Arone77]

Bonjour à tous,

j'ai développé il y a quelque temps un bouton permettant d'actualiser sur une feuille excel mon tableau. Je peux également via un autre bouton "importer" un tableau externe. Après l'importation de celui ci, le bouton "actualiser" gère sa mise en forme. Si une cellule est vide alors la valeur "information manquante" apparaît et le fond devient beige etc... Parallèlement, le bouton me permet de lancer des formules par défaut dans mon tableau.

Voici 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Private Sub CommandButton5_Click()
Feuil1.unprotect Feuil3.Range("MDP")
Feuil1.Activate
ActiveWorkbook.RefreshAll
 
     ActiveSheet.Range("L:P").Calculate
     ActiveSheet.Range("V:V").Calculate
 
Dim Cel As Range
 
 
 
Application.Goto Reference:="BASEDEDONNEES"
    For Each Cel In Selection
        If IsEmpty(Cel) Then
            Cel.Interior.ColorIndex = 19
             Cel.value = "Information manquante"
        Else
        Cel.Interior.ColorIndex = -4142
        End If
 
        If Cel.value = "Information manquante" Then
        Cel.Interior.ColorIndex = 19
 
    Else
    Cel.Interior.ColorIndex = -4142
        End If
 
    Next Cel
 
      With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
 
Feuil1.Protect Feuil3.Range("MDP")
 
End Sub

Je souhaiterai ajouter une amélioration. Dans mon tableau,pour chaque ligne, en colonne "P", il apparaît le nom de l'entreprise qui a gagné le marché. Chaque ligne représente un marché.
En colonne "T", il y a le nom de mon entreprise. Ainsi, si le nom d'entreprise en colonne "P" est égal au nom en colonne "T" alors cela signifie que j'ai gagné le marché.
En conséquence, j'aimerai qu'en cliquant sur mon bouton actualisé, la police de ma ligne se transforme en vert. (Colonne "p": entreprise AA ; Colonne "T": entreprise AA)
Dans le cas ou les deux colonnes sont différentes, cela voudrait donc dire que j'aurai perdu l'affaire. Je souhaiterai alors que la ligne se colorie en rouge.
Pour finir, si en colonne "p", la valeur de la cellule est égale à "Information manquante" alors laisser la couleur de la police de la ligne en noir.

J'ai imaginé le code suivant mais je n'arrive pas à incorporer le code dans celui déja existant ( en ajoutant auparavant "Dim ligne as long"):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For ligne = 16 To 14000
    If Cells(ligne, 16).value = Cells(ligne, 20) Then
    Cells(ligne, 1).Resize(, 23).Interior.ColorIndex = -11489280
    Else
    Cells(ligne, 1).Resize(, 23).Interior.ColorIndex = -16776961
   End If
 
   If Cells(ligne, 16).value = "Information manquante" Then
   Cells(ligne, 1).Resize(, 23).Interior.ColorIndex = 0
   End If
   Next

Merci infiniment de votre aide par avance...

Amicalement votre,

[vinc_bilb]

Bonjour,

Question certainement criticable, mais ce que vous demandez peut-être fait nativement par une mise en forme conditionelle? Donc pourquoi passer par du code dans ce cas?

[Arone77]

Bonjour,

par la suite, l'outil excel que je développe est transmis à des collègues. A l'avenir, je ne serai plus derrière eux pour faire de nouvelles manipulations. J'ai donc bloqué les pages de toutes modifications. Je veux donc absolument éviter d'utiliser des réglages automatiques tels que les MFC qui pourraient se dérégler. En appuyant sur le bouton, je suis sur que la macro se lancera bien. Qu'en pensez vous ?

[vinc_bilb]

et ben ..... je reprends l'adage de base du VBA: tout ce qui peut se faire nativement sous Excel ne doit pas être refait en VBA ..... Donc, ce que j'en pense: MFC, avec ou sans equations! Si en plus vos données sont sous forme de tableau, c'est tout bénéfique.

[Arone77]

Dans ce cas là, pouvez vous m'aider afin de savoir ce que je dois rentrer comme formule dans MFC -> Nouvelle règle -> "Utiliser une formule pour déterminer pour quelles cellules le format sera appliqué" ?

Merci beaucoup !

[vinc_bilb]

Bonjour,

Non vérifié mais par exemple (excel anglais)

Code :

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

1
2
If Cells(ligne, 16).value = "Information manquante" Then
   Cells(ligne, 1).Resize(, 23).Interior.ColorIndex = 0

=> En MFC de type formule: =$P1="Information manquante", à appliqer sur A1..Axxx

[Arone77]

Bonjour Vinc_bilb,

Merci pour votre aide. Au final, j'ai fait le choix de coder pour qu'en appuyant sur mon bouton "actualiser", la police de ma premiere colonne se mette en rouge si l'affaire est perdue (colonne 16 différente en valeur de la colonne 20), en verte si elle est gagnée (égale) et en noir si la donnée "information manquante" apparaît en colonne 16.

J'ai écrit le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
der_ligne = Cells(Rows.Count, 1).End(xlUp).Row
    For ligne = 19 To der_ligne
    If Cells(ligne, 16).value = Cells(ligne, 20) Then
    Cells(ligne, 1).Font.ColorIndex = 10
    Else
    Cells(ligne, 1).Font.ColorIndex = 3
   End If
 
   If Cells(ligne, 16).value = "Information manquante" Then
   Cells(ligne, 1).Font.ColorIndex = 1
   End If
   Next

Ce code a été glissé de la manière suivante dans le code générale de l'actualisation :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Private Sub CommandButton5_Click()
Feuil1.unprotect Feuil3.Range("MDP")
Feuil1.Activate
ActiveWorkbook.RefreshAll
 
     ActiveSheet.Range("L:P").Calculate
     ActiveSheet.Range("V:V").Calculate
 
Dim Cel As Range
Dim ligne As Long
 
 
 
 
 
Application.Goto Reference:="BASEDEDONNEES"
    For Each Cel In Selection
        If IsEmpty(Cel) Then
            Cel.Interior.ColorIndex = 19
             Cel.value = "Information manquante"
        Else
        Cel.Interior.ColorIndex = -4142
        End If
 
        If Cel.value = "Information manquante" Then
        Cel.Interior.ColorIndex = 19
 
    Else
    Cel.Interior.ColorIndex = -4142
        End If
 
    Next Cel
 
      With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
 
 
    der_ligne = Cells(Rows.Count, 1).End(xlUp).Row
    For ligne = 19 To der_ligne
    If Cells(ligne, 16).value = Cells(ligne, 20) Then
    Cells(ligne, 1).Font.ColorIndex = 10
    Else
    Cells(ligne, 1).Font.ColorIndex = 3
   End If
 
   If Cells(ligne, 16).value = "Information manquante" Then
   Cells(ligne, 1).Font.ColorIndex = 1
   End If
   Next
 
 
Feuil1.Protect Feuil3.Range("MDP"), , , , , , , , , , , , , , True
 
 
 
 
 
 
End Sub

Bonne continuation ! et merci pour vos renseignements !