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

[VBA_dev_Anne_Marie]

Bonjour,

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

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.

 

[soan]

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

 

[VBA_dev_Anne_Marie]

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

Merci Soan,
J'ai testé les 3 méthodes, je reçois l'erreur suivante :

 

[soan]

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

 

[VBA_dev_Anne_Marie]

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

Merci Soan,
Maintenant ça marche !

Bonne journée !

 

[moialbert2]

Bonjour,

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

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.

Bonjour
ajoute en début
ActiveSheet.Cells.Select

 

[soan]

Rebonjour moialbert2,

tu as écrit : « ajoute en début ActiveSheet.Cells.Select »

je l'ai déjà indiqué au début de mon post #4, et selon
le post #5 de Marie : "Maintenant ça marche !"

soan