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

VBA_dev_Anne_Marie

XLDnaute Occasionnel
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.
 

soan

XLDnaute Barbatruc
Inactif
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

XLDnaute Occasionnel
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 :
1620721641435.png
 

moialbert2

XLDnaute Nouveau
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.
Bonjour
ajoute en début
ActiveSheet.Cells.Select
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 852
dernier inscrit
dthi16088