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é.

[Shadam]

Bonjour,

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

Hervé.

Oui bien sûr que je l'ai essayé

Il plante sur cette ligne :

Code :

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

Format1 = Feuille.UsedRange.FormatConditions.Add(2, , "=MOD(LIGNE();2)")

et il me dit :

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

[Theze]

Bonsoir Shadam,

Je suis sous VB2008 et chez moi aucun problème, le classeur s'ouvre bien avec les lignes colorées en rouge et jaune sans aucune erreur ! Bizarre ?

Hervé.

[Shadam]

Oui, je pense que c'est un problème dans ma référence COM, ma dll ne doit pas être complète (si c'est possible ) ou un truc dans le genre... En tout cas merci de ton aide, j'ai essayé au moins 5 façons différentes d'attaquer le problème et aucune ne marche!!!

[Shadam]

Bon et bien voilà, en ayant marre de tourner en rond et de me heurter à des problèmes incompréhensibles, j'ai résolu le problème en faisant ça avec mes petites mains "à l'ancienne" :

un bon vieux booléen :

Code :

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

Dim lignePaire As Boolean = False

et un petit test tout bête mais qui fonctionne à la perfection après chaque insertion de ligne :

Code :

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

1
2
3
4
5
6
7
If lignePaire Then
   .Range("A" & numLigne, "Q" & numLigne).Interior.Color = ColorTranslator.ToOle(Color.LightGray)
    lignePaire = False
Else
   .Range("A" & numLigne, "Q" & numLigne).Interior.Color = ColorTranslator.ToOle(Color.White)
   lignePaire = True
End If

En tout cas encore merci à Theze d'avoir tenter de m'aider à trouver une solution, même si apparemment tu l'as trouvée et qu'elle ne fonctionnait pas chez moi...