Supprespace Colonne

Bonjour à tous,

Je vous ecris car lors d'une récupération de donnée j'ai dans une colonne des nom d'étalons avec à la fin 15 espaces se qui pose un soucis car j'utilise la fonction recherchev ( avec un nom tapé à la mains donc faire 15 espaces apres c'est un peu lourd).

Je sais que la fonction supprespace est ma solution mais je n'arrive pas à la mettre en forme de macro pour qu'elle supprime tout les espaces inutiles d'une colonne.

Merci beaucoup pour votre aide

Bonjour

as tu essayé ceci si dans la colonne A de ta feuille:

exemple ci-joint

Sub supprimelignesvides()
  Dim i As Long

  For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
      If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
  Next i

  End Sub

crdlt,

André

Bonjour et merci pour votre aide,

Malheureusement mon problème n'est pas tout à fait celui là,

Je vous mets un fichier en exemple j'aimerai supprimer l'espace après

chaque nom d'étalons ( il y a environs 15 espaces vides).

Merci beaucoup

Bonjour

et pour les espace en vba

Sub SupprimeEspace()
Dim L As Long
  For L = 2 To ActiveSheet.UsedRange.Rows.Count
    Range("A" & L).Value = Application.Trim(Range("A" & L).Value)
  Next
End Sub

A+

Maurice

Re,

merci Archer

@Gaets98

Note :

la ligne 15 de ta Feuil1 la cellule est 'Centrer'

crdlt,

André

Bonjour

pour te faire plaisir andre13

A+

Maurice

Sub SupprimeEspace()
Dim L As Long
Columns(1).HorizontalAlignment = xlGeneral
  For L = 2 To ActiveSheet.UsedRange.Rows.Count
    Range("A" & L).Value = Application.Trim(Range("A" & L).Value)
  Next
End Sub

Merci beaucoup cela fonctionne parfaitement