Discussion :

[Potzo]

Bonjour tout le monde,

j'ai un leger probleme avec une macro que j'ai code. En effet, elle s'execute a peu pres normalement jusqu'a ce qu'une erreur apparaisse. Malheureusement je comprend pas bien d'ou elle peut provenir.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
    For Each E In STD.Range("G2:G" & STD.Cells(Rows.Count, 1).End(xlUp).Row)
        With Datenbasis.Range(Datenbasis.Cells(2, 1), Datenbasis.Cells(Datenbasis.Cells(Rows.Count, 1).End(xlUp).Row, 1))
    Set D = .Find(E.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not D Is Nothing And Trim(D.Offset(0, 4).Value) = "x" Then
         E.EntireRow.Interior.Color = 10092543
        End If
    End With
Next

Cette boucle compare les noms presents dans les deux feuilles (Datenbasis et STD), puis si il y a un "x" associe au nom dans la ligne, il colorie en jaune la ligne de la feuille STD dans laquelle il y a le meme nom.

j'ai mis en jaune ce que le compilateur me surligne.

merci d'avance !

[mapeh]

Bonjour,

Mauvaise position de la parenthèse "fermante" de la fonction Trim :

Code :

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

If Not D Is Nothing And Trim(D.Offset(0, 4)).Value = "x" Then

Bonne journée

[Potzo]

Je te remercie, mais malheureusement, ca n'a rien change.

[mayekeul]

bonjour,

quel est le message d'erreur?

[mapeh]

re-,

Effectivement, mauvaise analyse de ma part....

Si tu cherches à définir D, et que celui est "Nothing", tu ne peux donc vérifier la cellule située 4 colonnes plus à droite....

Donc met tes conditions sur 2 lignes....

Par contre, comprends pas bien pourquoi tu mets la colonne 1 en recherche de dernière ligne, dans STD.Cells(Rows.Count, 1)......sachant que tu scannes sur la colonne G....

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
Sub ee()
Dim STD As Worksheet, Datenbasis As Worksheet
Set STD = Sheets("Feuil1")
Set Datenbasis = Sheets("Feuil2")
For Each E In STD.Range("G2:G" & STD.Cells(Rows.Count, 1).End(xlUp).Row)
    With Datenbasis.Range(Datenbasis.Cells(2, 1), Datenbasis.Cells(Datenbasis.Cells(Rows.Count, 1).End(xlUp).Row, 1))
        Set D = .Find(E.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not D Is Nothing Then
            If Trim(D.Offset(0, 4).Value) = "x" Then
                E.EntireRow.Interior.Color = 10092543
            End If
        End If
    End With
Next
End Sub

Peut-être....

[Potzo]

Mon message d'erreur c'est "objekt erforderlich" (je suis en Allemagne) ce qu'on peut trqduire pqr : Objet requis.

J'ai tente de mettre 2 If comme tu l'as fait mais ca n' a rien change.