Discussion :

[Loukassit0]

Bonjour à tous.
Le monde de la programmation est tout nouveau pour moi. Cependant, je souhaite vraiment acquérir des compétences sous Excel, notament en VBA.
J'apprends donc à tâtons à partir des tutoriels, d'exemples... etc.

Voici mon problème ici:

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
Lien = 1
NbreDeLiens = 10
 
For Lien = 1 To NbreDeLiens 
 
        If ActiveCell.Value <> "" Then
 
            ActiveCell.Hyperlinks(1).Follow
            ActiveCell.Offset(0, 1).Value = "x"
            ActiveCell.Offset(1, 0).Select
 
        Else
 
            Cel = ActiveCell.Offset(-Lien, 1).Address
            Range("B1:Cel").ClearContents
            Lien = Lien - 1
            Range("A1").Select
 
        End If 
 
Next Lien

C'est la partie en gras qui pose problème: Run-time Error '1004', Application-defined or object-defined error
Je suis à l'intérieur de ma boucle For et j'aimerais effacer une plage de cellule dépendant de ma valeur de compteur. Je ne sais pas trop comment m'y prendre.
A noter que le programme avec une cellule active dans la colonne A.

Voilà, en espérant que vous puissiez m'aider. Et désolé d'avance pour les abérations que j'ai peut-être écris.

Lucas

[jfontaine]

Bonjour,

En regardant ton code, je remarque les anomalies suivantes.

Code :

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

Cel = ActiveCell.Offset(-Lien, 1).Address

Cette ligne génèrera une erreur si activecell se trouve en colonne A. impossible de reculer d'une colonne

A utiliser comme cela

Code :

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

Range("B1:" & Cel).ClearContents

[Loukassit0]

Merci beaucoup pour votre rapide réponse. C'était effectivement la syntaxe à l'intérieur du Range qui générait l'erreur.

Sinon, je recule en ligne et non en colonne donc cela ne pose pas problème.

Merci