Méthode ou propriété non gérée par cet objet

**[ZiP]** · 15/01/2010, 12h03

Bonjour,

Voici mon 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
47
 
Private Sub CommandButton1_Click()
    Dim plage As Range
    Dim ligne, colonne As Integer
    Dim compteur As Integer
 
    Set plage = Range("G26:H45")
    compteur = 1
 
    For ligne = 1 To plage.Rows.Count
        For colonne = 1 To plage.Columns.Count
            If compteur = 1 Then
                'Supprime les MFC existantes
                plage.Cells(ligne, colonne).FormatCondition.Delete
 
                'Ajoute une première condition
                plage.Cells(ligne, colonne).FormatCondition.Add Type:=xlCellExpression, Formula1:="=(" & plage.Cells(ligne + 1, colonne) & ">0)"
 
                'Modifications de la première condition
                With plage.Cells(ligne, colonne).FormatConditions(1)
                    .Interior.ColorIndex = 4
                    .Font.ColorIndex = 4
                End With
 
                'Ajoute une seconde condition
                plage.Cells(ligne, colonne).FormatCondition.Add Type:=xlCellExpression, Formula1:="=(" & plage.Cells(ligne, colonne) & ">0)"
 
                'Modifications de la seconde condition
                With plage.Cells(ligne, colonne).FormatContidions(2)
                    .Interior.ColorIndex = 3
                    .Font.ColorIndex = 3
                End With
            End If
            If compteur = 2 Then
 
            End If
            If compteur = 3 Then
 
            End If
            If compteur = 4 Then
 
                compteur = 1
            End If
            compteur = compteur + 1
        Next colonne
    Next ligne
End Sub

J'ai l'erreur suivante :

Erreur d'exécution '438' :
Propriété ou méthode non gérée par cette objet

Elle se situe à la ligne suivante :

Code :

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

1
2
3
 
'Supprime les MFC existantes
plage.Cells(ligne, colonne).FormatCondition.Delete

Savez-vous comment faire pour corriger cette erreur ?

Merci,
ZiP

**Pierre Fauconnier** · 15/01/2010, 12h35

Bonjour

Code :

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

plage.Cells(ligne, colonne).FormatConditions.Delete

Tu n'as pas activé la saisie semi-automatique?

**MarcelG** · 15/01/2010, 12h47

Après Pierre, donc humblement, je te proposerais un code plu simple en balayant toutes les cellules de "plage"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub ESSAI()
Dim plage As Range
Dim cellule As Range
 
Set plage = Range("D10:E11")
 
For Each cellule In plage
    'Supprime les MFC existantes
    cellule.FormatConditions.Delete
Next cellule
 
End Sub

ou bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub ESSAI()
 
Dim cellule As Range
 
Range("D10:E11").Select
 
For Each cellule In Selection
    'Supprime les MFC existantes
    cellule.FormatConditions.Delete
Next cellule
 
End Sub

A adapter à ton besoin
Salut

Marcel

**Pierre Fauconnier** · 15/01/2010, 12h52

Tant qu'à faire...

Code :

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

Range("D10:E11")..FormatConditions.Delete

**MarcelG** · 15/01/2010, 13h07

Tout à fait.

Par ailleurs, je pense que l'erreur générée par le code initial de zip provient de l'affectation de "Cells" à un objet "Range". Ou je me trompe ?

Marcel

**Pierre Fauconnier** · 15/01/2010, 13h38

Envoyé par MarcelG

...

Par ailleurs, je pense que l'erreur générée par le code initial de zip provient de l'affectation de "Cells" à un objet "Range". Ou je me trompe ?

Marcel

Tu te trompes

. Il est possible de travailler avec une cellule particulière au sein de la collection des cellules d'un objet Range...

**[ZiP]** · 15/01/2010, 13h51

Merci pour votre aide, la ligne fonctionne.

La saisie automatique est activée mais ne semble ne pas fonctionner quand j'utilise des variables comme par exemple : Cells(ligne, colonne).

J'ai corrigé ma faute dans toutes les lignes, ce qui me donne 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
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
 
Private Sub CommandButton1_Click()
    Dim plage As Range
    Dim ligne, colonne As Integer
    Dim compteur As Integer
 
    Set plage = Range("G26:H45")
    compteur = 1
 
    For ligne = 1 To plage.Rows.Count
        For colonne = 1 To plage.Columns.Count
            If compteur = 1 Then
                'Supprime les MFC existantes
                plage.Cells(ligne, colonne).FormatConditions.Delete
 
                'Ajoute une première condition
                plage.Cells(ligne, colonne).FormatConditions.Add Type:=xlCellExpression, Formula1:="=(" & plage.Cells(ligne + 1, colonne) & ">0)"
 
                'Modifications de la première condition
                With plage.Cells(ligne, colonne).FormatConditions(1)
                    .Interior.ColorIndex = 4
                    .Font.ColorIndex = 4
                End With
 
                'Ajoute une seconde condition
                plage.Cells(ligne, colonne).FormatConditions.Add Type:=xlCellExpression, Formula1:="=(" & plage.Cells(ligne, colonne) & ">0)"
 
                'Modifications de la seconde condition
                With plage.Cells(ligne, colonne).FormatContidions(2)
                    .Interior.ColorIndex = 3
                    .Font.ColorIndex = 3
                End With
            End If
            If compteur = 2 Then
 
            End If
            If compteur = 3 Then
 
            End If
            If compteur = 4 Then
 
                compteur = 1
            End If
            compteur = compteur + 1
        Next colonne
    Next ligne
End Sub

J'ai une seconde erreur :

Erreur d'exécution '5':
Argument ou appel de procédure incorrect

Sur cette ligne :

Code :

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

1
2
 
plage.Cells(ligne, colonne).FormatConditions.Add Type:=xlCellExpression, Formula1:="=(" & plage.Cells(ligne + 1, colonne) & ">0)"

Je pense que l'erreur vient de ce passage :

Code :

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

1
2
 
Formula1:="=(" & plage.Cells(ligne + 1, colonne) & ">0)"

Si la cellule est G162, je souhaite mettre G163 afin d'avoir la formule suivante : =(G163>0)

Une autre question : est-il possible de récupérer la plage sélectionnée sur le classeur et l'onglet actif au moment de l'exécution de la macro?
Afin de ne pas utiliser de plage fixe.

Merci pour votre aide,
ZiP

**[ZiP]** · 17/01/2010, 13h42

Bonjour,

Je viens de tester avec une formule statique et j'ai la même erreur :

Code :

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

1
2
 
plage.Cells(ligne, colonne).FormatConditions.Add Type:=xlCellExpression, Formula1:="=(G26>0)"

Erreur d'exécution '5':
Argument ou appel de procédure incorrect

Pouvez-vous m'aider à trouver d'où vient cette erreur dans cette ligne ?

Merci,
ZiP

**[ZiP]** · 18/01/2010, 10h10

Je viens de trouver l'erreur dans mon code pour cette ligne.
Ce n'était pas xlCellExpression mais xlExpression.

J'ai donc corrigé mon 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
47
48
 
Private Sub CommandButton1_Click()
    Dim plage As Range
    Dim ligne, colonne As Integer
    Dim compteur As Integer
 
    Set plage = Range("G26:H45")
    compteur = 1
 
    For ligne = 1 To plage.Rows.Count
        For colonne = 1 To plage.Columns.Count
            Range(Cells(ligne, colonne), Cells(ligne, colonne)).Select
            If compteur = 1 Then
                'Supprime les MFC existantes
                Selection.FormatConditions.Delete
 
                'Ajoute une première condition
                Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=(" & Selection.Offset(1, 0) & ">0)"
 
                'Modifications de la première condition
                With Selection.FormatConditions(1)
                    .Interior.ColorIndex = 4
                    .Font.ColorIndex = 4
                End With
 
                'Ajoute une seconde condition
                Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=(" & Selection & ">0)"
 
                'Modifications de la seconde condition
                With Selection.FormatContidions(2)
                    .Interior.ColorIndex = 3
                    .Font.ColorIndex = 3
                End With
            End If
            If compteur = 2 Then
 
            End If
            If compteur = 3 Then
 
            End If
            If compteur = 4 Then
 
                compteur = 1
            End If
            compteur = compteur + 1
        Next colonne
    Next ligne
End Sub

J'ai une autre erreur sur cette ligne :

Code :

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

1
2
 
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=(" & Selection.Offset(1, 0) & ">0)"

L'erreur est la suivante :

Erreur d'exécution '5':
Argument ou appel de procédure incorrect

Pouvez-vous m'aider à corriger cette erreur ?

Merci,
ZiP

**[ZiP]** · 18/01/2010, 13h50

J'ai réglé mes problèmes, voici mon 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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
 
Private Sub CommandButton1_Click()
    Dim ligne, ligne_debut, ligne_fin, colonne, colonne_debut, colonne_fin As Integer
    Dim compteur As Integer
 
    'Initialisation de la plage à parcourir
    ligne_debut = 26
    ligne_fin = 1065
    colonne_debut = 7
    colonne_fin = 8
 
    compteur = 1
 
    For ligne = ligne_debut To ligne_fin
        For colonne = colonne_debut To colonne_fin
            Range(Cells(ligne, colonne), Cells(ligne, colonne)).Select
            If compteur = 1 Then
                'Supprime la mise en forme conditionnelle existante
                Selection.FormatConditions.Delete
 
                'Ajoute une première mise en forme conditionnelle
                Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=(" & Selection.Offset(1, 0).Address(RowAbsolute:=False, ColumnAbsolute:=False) & ">0)"
 
                'Modification de la première mise en forme conditionnelle
                With Selection.FormatConditions(1)
                    .Interior.ColorIndex = 4
                    .Font.ColorIndex = 4
                End With
 
                'Ajoute une seconde mise en forme conditionnelle
                Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=(" & Selection.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ">0)"
 
                'Modification de la seconde mise en forme conditionnelle
                With Selection.FormatConditions(2)
                    .Interior.ColorIndex = 3
                    .Font.ColorIndex = 3
                End With
            End If
            If compteur = 2 Then
                'Supprime la mise en forme conditionnelle existante
                Selection.FormatConditions.Delete
 
                'Ajoute une première mise en forme conditionnelle
                Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=(" & Selection.Offset(1, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & ">1)"
 
                'Modification de la première mise en forme conditionnelle
                With Selection.FormatConditions(1)
                    .Interior.ColorIndex = 4
                    .Font.ColorIndex = 4
                End With
 
                'Ajoute une seconde mise en forme conditionnelle
                Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=(" & Selection.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & ">1)"
 
                'Modification de la seconde mise en forme conditionnelle
                With Selection.FormatConditions(2)
                    .Interior.ColorIndex = 3
                    .Font.ColorIndex = 3
                End With
            End If
            If compteur = 3 Then
                'Supprime la mise en forme conditionnelle existante
                Selection.FormatConditions.Delete
 
                'Ajoute une première mise en forme conditionnelle
                Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=(" & Selection.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ">3)"
 
                'Modification de la première mise en forme conditionnelle
                With Selection.FormatConditions(1)
                    .Interior.ColorIndex = 4
                    .Font.ColorIndex = 4
                End With
 
                'Ajoute une seconde mise en forme conditionnelle
                Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=(" & Selection.Offset(-1, 0).Address(RowAbsolute:=False, ColumnAbsolute:=False) & ">3)"
 
                'Modification de la seconde mise en forme conditionnelle
                With Selection.FormatConditions(2)
                    .Interior.ColorIndex = 3
                    .Font.ColorIndex = 3
                End With
            End If
            If compteur = 4 Then
                'Supprime la mise en forme conditionnelle existante
                Selection.FormatConditions.Delete
 
                'Ajoute une première mise en forme conditionnelle
                Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=(" & Selection.Offset(0, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & ">2)"
 
                'Modification de la première mise en forme conditionnelle
                With Selection.FormatConditions(1)
                    .Interior.ColorIndex = 4
                    .Font.ColorIndex = 4
                End With
 
                'Ajoute une seconde mise en forme conditionnelle
                Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=(" & Selection.Offset(-1, -1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & ">2)"
 
                'Modification de la seconde mise en forme conditionnelle
                With Selection.FormatConditions(2)
                    .Interior.ColorIndex = 3
                    .Font.ColorIndex = 3
                End With
                compteur = 0
            End If
            compteur = compteur + 1
        Next colonne
    Next ligne
End Sub

Cependant, je ne sais pas comment utiliser une plage de cellules telle que : "G26:H1065" à la place de :

Code :

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

1
2
3
4
5
6
 
    'Initialisation de la plage à parcourir
    ligne_debut = 26
    ligne_fin = 1065
    colonne_debut = 7
    colonne_fin = 8

Merci,
ZiP

Méthode ou propriété non gérée par cet objet

Macros et VBA Excel

Discussions similaires

Partager

Partager