Error OFFSET

[sharkantipav]

J'ai ecrit une macro qui test si une cellule dont le resultat de la formule est different de 0 et si oui elle copie la cellule 3 colonne a sa droite. J'ai utilise off set mais, j'ai une erreur d'objet ... 😕

voila mon code

    Dim r As Range, c As Range
    Set r = Range("D3:D100")
    
    For Each c In r
        If c.Value <> 0 Then
                     
            
            c.Offset(-3, 0).Select
            Selection.Copy
            Sheets("Coversheet").Select
            Range("J1").Select
            ActiveSheet.Paste
            Application.CutCopyMode = False

Merci bcp

 

[fhoest]

Re : Error OFFSET

Bonjour,
l'adresse de la cellule test C peut être D3 par exemple si tu veux selectionner D3 - 3 lignes de ton offset (-3,0)
tu te retrouves en cellule D0 hors la ligne 0 n'existe pas donc tu obtiens une erreur.

Tout simplement.
A+

 

[Paf]

Re : Error OFFSET

bonjour
la syntaxe de Offset est : offset(ligne,colonne); offset(-3,0).select tente de sélectionner 3 lignes au dessus et comme on est sur la ligne 3, on sélectionne hors limites !
offset(0,-3) sélectionnera sur la même ligne mais 3 colonnes à gauche.
si j'ai bien compris, il faudrait offset(0,3)

bonne suite

edit: désolé pour le doublon