XL 2019 Ajouter la sélection automatique de toute la feuille dans le code.

soan à dit:

Bonjour Marie,

au lieu de Selection.Replace ...

utilise ActiveSheet.Replace ... (s'il s'agit de la feuille active)​

OU Worksheets("Nom de la feuille").Replace ...

---

éventuellement, tu peux aussi utiliser l'index de la feuille ; si c'est par exemple pour la 5ème feuille du classeur, et que tu sais d'avance qu'elle ne changera pas de place :​

Worksheets(5).Replace ...

soan

Cliquez pour agrandir...

soan à dit:

alors juste avant .Replace, ajoute .Cells pour tout ce que je t'ai déjà indiqué :

Activesheet.Cells.Replace ...

Worksheets("Nom de la feuille").Cells.Replace ...

Worksheets(5).Cells.Replace ...

soan

Cliquez pour agrandir...

MarieParis à dit:

Bonjour,

Je me demande comment ajouter la sélection automatique de toute la feuille dans mon code ?
Mon code est :

VB:

Sub Suppr_Saut_Ligne()
Selection.Replace What:=Chr(10), Replacement:=" ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

En fait, actuellement, pour exécuter mon code il faut sélectionner une colonne.

Merci pour votre aide.

Cliquez pour agrandir...