Problème de code VBA

[JORDAN]

Bonjour tout le monde,

Avec le code ci-dessous je récupère des données de la feuille "Reception" et je les mets dans la feuille "Retour"

Tout fonctionne bien seulement si la feuille "Reception" est active sinon rien ne va

Je n'arrive pas à comprendre pourquoi le With Sheets("Reception") n'est pas pris en compte.

J'ai bien dû oublier quelque chose mais quoi ????

Merci pour vos infos

Sub Retour()

Dim I As Integer
Dim C As Range

I = 1
With Sheets("Reception")
    For Each C In Range("A2:A65536")
        If C.Offset(0, 16) = "X" Then
            I = I + 1
            Sheets("Retour").Cells(I, 1) = C.Offset(0, 7)
            Sheets("Retour").Cells(I, 2) = C.Offset(0, 6) - 1
        End If
    Next C
End With
End Sub

 

[kjin]

Re : Problème de code VBA

Bonjour,
Oubli du petit point qui fait de grandes différences

Sub Retour()

Dim I As Integer
Dim C As Range

I = 1
With Sheets("Reception")
    For Each C In [B][COLOR="Red"].[/COLOR][/B]Range("A2:A65536") 'ici devant Range
        If C.Offset(0, 1) = "X" Then
            I = I + 1
            Sheets("Retour").Cells(I, 1) = C.Offset(0, 7)
            Sheets("Retour").Cells(I, 2) = C.Offset(0, 6) - 1
        End If
    Next C
End With
End Sub

A+
kjin

 

[JORDAN]

Re : Problème de code VBA

Bonjour Kjin,

Oui effectivement ça va nettement mieux avec le petit point
Il fait vraiment toute la différence
et pourtant je le savais mais avec le C.offset je l'ai complètement oublié

Merci pour ton aide et bonne fin de journée