Discussion :

[Shadam]

Bonjour tout le monde,

J'ai un petit souci avec un bout de code et je ne comprends pas d'où vient l'erreur

Le but de la ligne est dans le titre

Code :

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

1
2
3
Dim format As Excel.FormatCondition = mafeuille.Rows.FormatConditions.Add( _
            Excel.XlFormatConditionType.xlExpression, Excel.XlFormatConditionOperator.xlEqual, "=mod(row(),2) = 1")
        format.Interior.Color = ColorTranslator.ToOle(Color.WhiteSmoke)

Le message d'erreur qui m'arrive est :



Alors qu'il n'y a q'un paramètre obligatoire, tout le reste est optionnel

Si quelqu'un pouvait me dire d'où ça vient...

Merci d'avance.

[Theze]

Bonjour,

Et de cette façon ? A adapter bien sûr :

Code :

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

1
2
3
4
5
6
7
8
 
'si le classeur est en Français, sinon, =MOD(ROW(),2) et =MOD(ROW()+1,2)
'une ligne en jaune et une ligne en rouge sur la zone utilisée de la feuille
Dim Format1 As Excel.FormatCondition = mafeuille.UsedRange.FormatConditions.Add(2, , "=MOD(LIGNE();2)")
Dim Format2 As Excel.FormatCondition = mafeuille.UsedRange.FormatConditions.Add(2, , "=MOD(LIGNE()+1;2)")
 
Format1.Interior.Color = 65535
Format2.Interior.Color = 255

Hervé.

[Shadam]

Merci Theze de te pencher sur mon cas

Bon, j'ai essayé ton code et je plante dés la 1ère ligne avec la même erreur :



j'ai essayé ça aussi mais sans succès :

Code :

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

1
2
3
4
5
Dim selection = mafeuille.Range("A1", "F" & numLigne)
 
        selection.FormatConditions.AddColorScale(ColorScaleType:=2)
        selection.ColorScaleCriteria(1).FormatColor.Color = ColorTranslator.ToOle(Color.White)
        selection.ColorScaleCriteria(2).FormatColor.Color = ColorTranslator.ToOle(Color.WhiteSmoke)

[Theze]

Bonjour,

Ce code fonctionne bien chez moi, adapte le nom du classeur avec son chemin et le nom de la feuille puis teste :

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
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim Excel As Object
        Dim Classeur As Object
        Dim Feuille As Object
        Dim Plage As Object
        Dim Format1 As Object
        Dim Format2 As Object
 
        Excel = CreateObject("Excel.Application")
 
        Excel.visible = True
        Classeur = Excel.workbooks.open("D:\MonClasseur.xls")
        Feuille = Classeur.worksheets("Feuil1")
        Plage = Feuille.range("A1:F22")
 
        'si le classeur est en Français, sinon, =MOD(ROW(),2) et =MOD(ROW()+1,2)
        'une ligne en jaune et une ligne en rouge sur la zone utilisée de la feuille
        Format1 = Feuille.UsedRange.FormatConditions.Add(2, , "=MOD(LIGNE();2)")
        Format2 = Feuille.UsedRange.FormatConditions.Add(2, , "=MOD(LIGNE()+1;2)")
 
        'défini les couleurs de fond
        Format1.Interior.Color = 65535
        Format2.Interior.Color = 255
 
    End Sub

Hervé.

[Shadam]

Je me retrouve avec la même erreur que lorsque je faisais ça :

Code :

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

1
2
3
Dim format As Excel.FormatCondition = mafeuille.Rows.FormatConditions.Add( _
            Excel.XlFormatConditionType.xlExpression, Excel.XlFormatConditionOperator.xlEqual, "=mod(row(),2) = 1")
        format.Interior.Color = ColorTranslator.ToOle(Color.WhiteSmoke)

à savoir :

Le nombre de paramètres spécifié ne correspond pas au nombre attendu

Je ne comprends vraiment pas cette erreur, étant donné que visual ne me souligne pas ces lignes comme des erreurs et qu'il n'y a pas d'erreurs à la compilation. C'est vraiment lorsqu'il passe sur ces lignes qu'il plante, j'ai essayé avec des missing, des "virgules vides", pour remplir tout les paramètres attendus, mais rien n'y fait, il me dit toujours que le nombre de paramètres n'est pas le bon.

[Theze]

Bonjour,

Mais as-tu essayé le code que je t'ai posté et si oui, sur quelle ligne ça plante ?

Hervé.