Discussion :

[Floflo19]

Bonjour à tous,

Une petite question qui va surement faire rigoler les plus avertis d'entre vous mais pour moi néophyte, c'est un casse tête!

Dans 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
Dim a As Long
Dim Last_Row As Long
 
Last_Row = Range("A" & Rows.Count).End(xlUp).Row
SuiviTreso = "Suivi des comptes - 2013"
 
For a = 4 To 11
 
DateOPTréso = Workbooks(SuiviTreso).Sheets("T").Range("B" & a)
ClasseOPT = Workbooks(SuiviTreso).Sheets("T").Range("C" & a)
DateOPTRI = Workbooks("OPERATIONS_TBF").Sheets("Résultats").Range("C1")
 
    If Month(DateOPTréso) = Month(DateOPTRI) And Range("ClasseOPT").Value = "T Classique" Then
        Workbooks(SuiviTreso).Sheets("T").Activate
 
Set Plage = Columns("B:E").Rows(a)
        Plage.Select
        Selection.Copy
        Workbooks("OPERATIONS_TBF").Sheets("Trésorerie").Activate
        Range("B3").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    End If
  Next a

Tout se déroulait bien jusqu'à ce que je mette une seconde condition (And).
Quand je passe la souris sur "ClasseOPT", je vois que la variable a bien été prise en compte et renvoie à la bonne valeur.
Mais VBA me dit "erreur d'exécution 1004, La méthode 'Range' de l'objet _Global a échoué"

Je ne comprends pas trop pourquoi ça ne marche pas!
J'ai essayé d'autres trucs (avec et sans "", Cells(ClasseOPT)) etc mais rien de fonctionne...

Quelqu'un pourrait-il m'aider?

Merci par avance à tous les gentils contributeurs!

Flo

[Phifou]

Bonjour à toi,

tout d'abord, lorsque tu poste du code, je t'invite à le mettre entre les balises code que tu peux faire apparaître avec le bouton # dans l'éditeur de texte.

Pour te répondre enfin, lorsque tu écris :

Code :

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

ClasseOPT = Workbooks(SuiviTreso).Sheets("T").Range("C" & a)

tu vas placer dans la variable ClasseOPT la valeur qui se trouve dans la case 'Range("C" & a).
Ce n'est donc pas l'adresse, dans ce cas, c'est comme si tu avais écris Range("C" & a).Value et ce n'est pas ce que tu veux.

Pour ta condition il suffit donc de mettre :

Code :

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

If Month(DateOPTréso) = Month(DateOPTRI) And ClasseOPT = "T Classique" Then

Normalement ça devrai faire ton affaire.

bonne soirée,


Phifou

[Floflo19]

Merci Phifou!
J'ai presque honte tellement c'était simple en fait!
Merci pour tes conseils.

Très bonne fin d'après midi à toi.
Flo