Suppression des liens dans 38 cellules sur 36 colonnes

Bonjour

Dans un tableau de 158 colonnes et 44 lignes, je dois supprimer les liens des cellules de 36 colonnes reparties dans les 158.

J'ai bien essayé en faisant une macro mais je n'arrive jamais au bout des 1368 cellules sans me planter:aie::aie::aie:

et en VBA je crois que je saurais déclarer la variable entre la ligne4 et la ligne 42
mais les colonnes je ne sais pas.

Y-a-t-il une bonne âme pour me donner la solution?

Merci de m'aider

La Zélie

Bonjour,

en mettant un bout de code, on aurait plus de visibilé, sinon il faut un truc du genre :

Code:

---

Range("D12").EntireColumn.Hyperlinks.Delete

---

cordialement,

Didier

En supposant que les liens se trouvent sur la ligne 12, que tes N° de colonnes soient ceux du
tableau NoCol()

Code:

---

1 2 3 4 5 6 7 8 9 10

NoLig = 12 Sub test() NoLig = 12 NoCol = Array(2, 5, 7, 12, 36, 56, 75) With Worksheets(1) For Col = 0 To UBound(NoCol) - 1 Cells(NoLig, NoCol(Col)).Hyperlinks.Delete Next End With End Sub

---

Pas testé, tu peux le faire pour moi ? ;)

Merci à tous les deux mais j'ai pas su faire.

Aussi pour expliquer mieux mon problème j'ai refait un petit exemple sur 3 colonnes et je mets le code que cela m'a généré:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Range("A3").Select Selection.Hyperlinks.Delete Range("A4").Select Selection.Hyperlinks.Delete Range("A5").Select Selection.Hyperlinks.Delete Range("D3").Select Selection.Hyperlinks.Delete Range("D4").Select Selection.Hyperlinks.Delete Range("D5").Select Selection.Hyperlinks.Delete Range("I3").Select Selection.Hyperlinks.Delete Range("I4").Select Selection.Hyperlinks.Delete Range("I5").Select Selection.Hyperlinks.Delete End Sub

---

Donc , sur ma feuille j'ai des données sur 44 lignes et 158 colonnes .Il y a 36 colonnes qui ont chacune 38 cellules avec un lien que je veux supprimé.Les colonnes ne se suivent pas

Mon souci, c'est que tous les jours ces données seront renouvelées et il faudra supprimer ces liens:aie:

J'ai bien essayé de faire une macro sur les 1368 cellules:mouarf: je suis pas arrivé au bout sans faire d'erreur:aie:
et je ne sais pas écrire en VBA.

J'ai besoin de votre aide

Merci d'avance

Bonjour,

Je me permet une proposition.
Si tu peux supprimer tous les liens hypertextes que ta feuille comporte, tu peux essayer ceci

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim Cel As Range   For Each Cel In Range("A1:FD50") '<-- plage de cellules à adapter Cel.Hyperlinks.Delete Next   End Sub

---

Bonsoir,

Oui, tu pourrais préciser si ce que tu veux, c'est supprimer touts les liens de la feuille en fait...
Si c'est le cas, Fring, il y plus rapide et radical qu'une boucle ;)

Code:

---

ActiveSheet.Hyperlinks.Delete

---

cordialement,

Didier

:yaisse2:

j'ai adapté ma plage de cellules:je range ton code dans un coin.

MERCI t'es un :king:

Merci Ormonth

t'es un :king: toi aussi, j'ai essayé ton code c'est super, encore plus rapide

Je vous remercie pour votre aide et bon dimanche

Bonsoir,
si c'est résolu tag le post avec résolu, et penses au temps que tu aurais gagné si tu avais posé en question de départ :
"comment supprimer tous les liens sur une feuille en vba" par exemple ;)

bon we,

Didier

Citation:

---

Envoyé par Ormonth

Si c'est le cas, Fring, il y plus rapide et radical qu'une boucle ;)

---

:hola: