Problème de code VBA

JORDAN · 21 Mars 2009

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

Code:

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 · 21 Mars 2009

Re : Problème de code VBA

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

Code:

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 · 21 Mars 2009

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

Problème de code VBA

JORDAN

XLDnaute Impliqué

kjin

XLDnaute Barbatruc

JORDAN

XLDnaute Impliqué

Discussions similaires

Problème de code VBA

JORDAN

XLDnaute Impliqué

kjin

XLDnaute Barbatruc

JORDAN

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency