Macro cliquant sur toutes les cellules d'une plage

Ah exact tu as raison ! Si j'enlève l'espace il se met automatiquement en ht !

Pb (dernier j'espère!) : Comment puis je supprimer cet espace automatiquement ? Et d'ailleurs pourquoi se crée t-il un espace à cet endroit ?

Pour générer le lien je dois passer par un concatener, ensuite je fais un copier coller en valeur et un espace apparait je ne comprends pas pourquoi. Par ailleurs ce n'est pas un espace "classique", je peux le supprimer mais pas le sélectionner donc les commandes "classiques" de suppression d'espace ne fonctionnent pas

Edit: il suffit que j'entre dans la cellule et que j'appuie sur entrée pour que l'hypertexte s'active

Il ne s'agit d'espace ! (qui au passage est féminin : une espace).

L'espace est le caractère 32, là il s'agit de sauts de ligne (caractère 10).

Pour les supprimer tu peux utiliser le code suivant (à adapter) :

plage est la plage à vérifier :

Dim c As Range
For Each c In plage
   c.Value = Replace(c.Value, Chr(10),"")
Next c

Ah top ! Mais je vois pas à quel moment j'ai indiqué vouloir des sauts de lignes ..?

Du coup pour supprimer tous les sauts de ligne j'ai défini la plage sur Active.sheet, est-ce correct ?

Sub Macro1()
Dim c As Range
For Each c In Active.sheet
   c.Value = Replace(c.Value, Chr(10), "")
Next c
End Sub

J'ai le message d'erreur suivant : sub ou function non défini (3:0)

Non ! ActiveSheet est la feuille active, pas une plage. Et Active.Sheet n'est pas ActiveSheet, d'où erreur 2 fois.

Tu indiques la plage sous la forme : ActiveSheet.Range("A1:A200") par exemple (en adaptant référence).

Sub Macro1()
Dim c As Range
For Each c In ActiveSheet.Range("H1:H200")
   c.Value = Replace(c.Value, Chr(10), "")
Next c
End Sub

Même message d'erreur avec ce code là

Quelle erreur ?

sub ou function non défini (3:0)

Ça rigole là ! Facétieux le Mac !!

Et sur quel mot parce qu'il n'y en a pas beaucoup.

(3:0) donc le c.Value...

M'en parle pas c'est un enfer ..!

Bon en fait c'est le copier coller qui n'est pas joli, en recopiant ça marche.

Pb, j'ai toujours du texte sur ma plage et non des liens

Pourtant il suffit que manuellement j'entre dans la cellule et appuie sur "entrée" et le tour est joué, je peux lancer la première macro et mes liens se téléchargent. Mais bon si je dois faire entrer pour mes 3000 liens l'intérêt de la macro est pas évidente

Regarde si ça passe avec :

For Each c In ActiveSheet.Range("H1:H200").Cells