Traitement d'erreur dans une macro

Version imprimable

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:

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 !

13/07/2010, 11h48
mapeh

Bonjour,

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

Code:

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

Bonne journée
13/07/2010, 12h17
Potzo

Je te remercie, mais malheureusement, ca n'a rien change.
13/07/2010, 13h16
mayekeul

bonjour,

quel est le message d'erreur?

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:

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

13/07/2010, 14h05
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.
13/07/2010, 14h15
mayekeul

lorsque tu met deux if comme mapeh te l'as suggéré, l'erreur se situe sur quelle ligne?
13/07/2010, 14h48
Potzo

sur la premiere.

Par contre ce qui est etrange, c'est que qunad l'instruction est ecrite sur une seule ligne, elle fonctionne quand meme alors que sur 2 lignes, non.
13/07/2010, 14h58
mayekeul

a tout hasard

la variable D est déclarée quelque pars?

sinon

Code:

dim D as range

en début de procédure

re,

j'ai besoin d'une petite précision

il te met la même erreur suivant que tu met l'instruction sur une ou deux lignes??

tu as vérifié?

L'erreur change. Quand c'est ecrit sur une seule ligne, ca me dit :

Erreur 91 : La vairable Objet ou With bloc Variable n'est pas compatible.

Encore une fois c'est une traduction...

Citation:

Envoyé par mayekeul

a tout hasard

la variable D est déclarée quelque pars?

sinon

Code:

dim D as range

en début de procédure

Oui evidemment, si tu veux, voila le code en entier :

Code:

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
Sub STDTransfer()
 
' # Erklärung den verschiedenen Variablen
Dim STD As Worksheet
Dim SAP As Worksheet, Datenbasis As Worksheet
Dim C As Range
Dim ligne As Long
Dim rRange As Range
Dim D As Range
 
' # Schaffung einer Verknüpfung für die Namen den Blättern
Set STD = Worksheets("Stunden ink. Kaufl")
Set SAP = Worksheets("SAP")
Set Datenbasis = Worksheets("Datenbasis")
 
ligne = 2
 
 
'   #   Überträgt die Datei aus dem SAP Blatt nach dem Stunden inkl Kaufl blatt
  Set rRange = Range(SAP.Cells(2, 8), SAP.Cells(SAP.Rows.Count, 8).End(xlUp))
 
  For Each C In rRange
    If C.Value <> 0 Then
 
      C.Offset(0, -7).Copy Destination:=STD.Cells(ligne, 1)
      C.Offset(0, -6).Copy Destination:=STD.Cells(ligne, 2)
      C.Offset(0, -5).Copy Destination:=STD.Cells(ligne, 3)
      C.Offset(0, -3).Copy Destination:=STD.Cells(ligne, 7)
      C.Offset(0, -2).Copy Destination:=STD.Cells(ligne, 8)
      C.Offset(0, -1).Copy Destination:=STD.Cells(ligne, 9)
      C.Offset(0, 2).Copy Destination:=STD.Cells(ligne, 12)
      C.Offset(0, 3).Copy Destination:=STD.Cells(ligne, 14)
      C.Offset(0, 4).Copy Destination:=STD.Cells(ligne, 15)
      C.Offset(0, 5).Copy Destination:=STD.Cells(ligne, 16)
      C.Offset(0, 7).Copy Destination:=STD.Cells(ligne, 18)
      C.Offset(0, 10).Copy Destination:=STD.Cells(ligne, 21)
      C.Offset(0, 0).Copy Destination:=STD.Cells(ligne, 10)
 
      ligne = ligne + 1
    End If
  Next
 
 
'   #   Schreibt die Jahre in der Jahre Spalte und der period in der Periode Spalte für jede WBS-Element
    For Each D In STD.Range("A2:A" & STD.Cells(Rows.Count, 1).End(xlUp).Row)
 
        D.Offset(0, 3).Value = Format(Month(D.Value))
        D.Offset(0, 4).Value = Format(Year(D.Value))
 
    Next
 
'   #   Kolorirt die Linien der Kaufleute in gelb. Die Kaufleute sind mit ein x in der Datenbasis notiert
    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

bon, j'ai pas changé grand chose, mais cela fonctionne chez moi!

Code:

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
 
Sub STDTransfer()
 
' # Erklärung den verschiedenen Variablen
Dim STD As Worksheet
Dim SAP As Worksheet, Datenbasis As Worksheet
Dim C As Range
Dim ligne As Long
Dim rRange As Range
Dim D As Range, E As Range
 
' # Schaffung einer Verknüpfung für die Namen den Blättern
Set STD = Worksheets("Stunden ink. Kaufl")
Set SAP = Worksheets("SAP")
Set Datenbasis = Worksheets("Datenbasis")
 
ligne = 2
 
 
'   #   Überträgt die Datei aus dem SAP Blatt nach dem Stunden inkl Kaufl blatt
  Set rRange = Range(SAP.Cells(2, 8), SAP.Cells(SAP.Rows.Count, 8).End(xlUp))
 
  For Each C In rRange
    If C.Value <> 0 Then
 
      C.Offset(0, -7).Copy Destination:=STD.Cells(ligne, 1)
      C.Offset(0, -6).Copy Destination:=STD.Cells(ligne, 2)
      C.Offset(0, -5).Copy Destination:=STD.Cells(ligne, 3)
      C.Offset(0, -3).Copy Destination:=STD.Cells(ligne, 7)
      C.Offset(0, -2).Copy Destination:=STD.Cells(ligne, 8)
      C.Offset(0, -1).Copy Destination:=STD.Cells(ligne, 9)
      C.Offset(0, 2).Copy Destination:=STD.Cells(ligne, 12)
      C.Offset(0, 3).Copy Destination:=STD.Cells(ligne, 14)
      C.Offset(0, 4).Copy Destination:=STD.Cells(ligne, 15)
      C.Offset(0, 5).Copy Destination:=STD.Cells(ligne, 16)
      C.Offset(0, 7).Copy Destination:=STD.Cells(ligne, 18)
      C.Offset(0, 10).Copy Destination:=STD.Cells(ligne, 21)
      C.Offset(0, 0).Copy Destination:=STD.Cells(ligne, 10)
 
      ligne = ligne + 1
    End If
  Next
 
 
'   #   Schreibt die Jahre in der Jahre Spalte und der period in der Periode Spalte für jede WBS-Element
    For Each D In STD.Range("A2:A" & STD.Cells(Rows.Count, 1).End(xlUp).Row)
 
        D.Offset(0, 3).Value = Format(Month(D.Value))
        D.Offset(0, 4).Value = Format(Year(D.Value))
 
    Next
 
'   #   Kolorirt die Linien der Kaufleute in gelb. Die Kaufleute sind mit ein x in der Datenbasis notiert
    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, LookIn:=xlValues, lookat:=xlWhole)
                If Not D Is Nothing Then
                    If Trim(D.Offset(0, 4)) = "x" Then
                        E.EntireRow.Interior.Color = 10092543
                    End If
                End If
        End With
    Next
 
 
End Sub

13/07/2010, 17h04
Potzo

Merci.

Tu as juste enleve le .Value ? ou Y a autre chose qui m'a echappe ?
14/07/2010, 08h18
mayekeul

euh ... je sais plus lol

mais oui, j'ai enlevé le .value
j'ai aussi déclaré une variable supplémentaire! E je pense

c'est tout je crois!
14/07/2010, 08h21
mercatog

Cette ligne me dérange

Code:

Set rRange = Range(SAP.Cells(2, 8), SAP.Cells(SAP.Rows.Count, 8).End(xlUp))

il fallait

Code:

Set rRange = SAP.Range(SAP.Cells(2, 8), SAP.Cells(Rows.Count, 8).End(xlUp))