Ou est l'erreur ?

[JACMIC]

rivate Sub Inventaire_Click()
Dim Classeur As ThisWorkbook
Bonjour et bonne fêtes à tous,

Je viens vers vous avec le bout de code ci dessous car j'ai un petit problème pour vous, un gros pour moi.
Lorque j'exécute le code, il me dit " Next sans For"
Si je supprime le Next i il me dit "End With sans with"
Si je supprime "End With" il me dit " For sans Next" et ainsi de suite....
Je ne comprend pas où est l'erreur
Si quelqu'un (est je n'en doute pas) la voit merci de bien vouloir me la montrer.

Dim i As Integer
Dim L As Integer
Set Classeur = ActiveWorkbook
With Classeur
For i = 7 To .Worksheets.Count
If Worksheets(i).Range("D2") = 0 Then
L = Sheets("Inventaire").Range("A65536").End(xlUp).Row + 1
Sheets("Inventaire").Range("A" & L).Value = Worksheets(i).Range("A1").Value
Sheets("Inventaire").Range("B" & L).Value = Worksheets(i).Range("C2").Value
Sheets("Inventaire").Range("C" & L).Value = Worksheets(i).Range("D2").Value
Sheets("Inventaire").Range("D" & L).Value = Worksheets(i).Range("E2").Value
Next i
End With
End If
Sheets("Inventaire").Select
End Sub


Merci pour votre aide

Jacmic

 

[jp14]

Re : Ou est l'erreur ?

rivate Sub Inventaire_Click()


With Classeur
For i = 7 To .Worksheets.Count
If Worksheets(i).Range("D2") = 0 Then


Next i
End With
End If
Sheets("Inventaire").Select
End Sub


Merci pour votre aide

Jacmic

Le end if n'est pas à sa place.

JP

 

[ERIC S]

Re : Ou est l'erreur ?

Bonjour

le end if vers la fin doit être de trop

 

[Pierrot93]

Re : Ou est l'erreur ?

Bonjour Jamic

essaye peut être comme ceci :

Private Sub Inventaire_Click()
Dim i As Integer, L As Integer
For i = 7 To Worksheets.Count
    If Worksheets(i).Range("D2") = 0 Then
        L = Sheets("Inventaire").Range("A65536").End(xlUp).Row + 1
        Sheets("Inventaire").Range("A" & L).Value = Worksheets(i).Range("A1").Value
        Sheets("Inventaire").Range("B" & L).Value = Worksheets(i).Range("C2").Value
        Sheets("Inventaire").Range("C" & L).Value = Worksheets(i).Range("D2").Value
        Sheets("Inventaire").Range("D" & L).Value = Worksheets(i).Range("E2").Value
    End If
Next i
Sheets("Inventaire").Select
End Sub

bon après midi
@+

Edition : bonjour Eric, jp14

 

[JACMIC]

Re : Ou est l'erreur ?

Merci à vous tous pour vos réponses.
Excusez moi pour la présentation du message, je me suis un peu planté avec le copier coller du code

Effectivement le End If était mal placé, ce qui prouve qu'une vision extérieure est parfois utile.

merci encore pour votre aide

Jacmic