Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel SUPPRESPACE en VB

SUPPRESPACE en VB

7 réponses
Avatar
Gildo
Bonjour,
Peut-on supprimer les espaces en début de cellule pour une colonne B avec VB
afin d’éviter d’utiliser la fonction SUPPRESPACE
Merci
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gildo
Ne vous fatiguez pas j'ai trouvé
Sub SupprEspace()
Dim Cellule As Range
Dim i As Integer

For i = 1 To 3
For Each Cellule In Range("b1:A" & Range("b65536").End(xlUp).Row)
If Left(Cellule.Value, 1) = " " Then Cellule.Value = Mid(Cellule.Value, 2)
Next
Next i

End Sub

Merci !
"Gildo" wrote:

Bonjour,
Peut-on supprimer les espaces en début de cellule pour une colonne B avec VB
afin d’éviter d’utiliser la fonction SUPPRESPACE
Merci


Avatar
francois.forcet
On 31 jan, 10:28, Gildo wrote:
Bonjour,
Peut-on supprimer les espaces en début de cellule pour une colonne B ave c VB
afin d'éviter d'utiliser la fonction SUPPRESPACE
Merci


Salut à toi

Feuil1 colonne B à traiter ce code :

For Each c In Worksheets("Feuil1").Range("B1", "B" &
Range("B65535").End(xlUp).Row)
For i = 1 To Len(c)
If Mid(c, i, 1) <> " " Then
Exit For
End If
Next
c.Value = Mid(c, i)
Next

Avatar
Gildo
Merci et bonne journée !

"" wrote:

On 31 jan, 10:28, Gildo wrote:
Bonjour,
Peut-on supprimer les espaces en début de cellule pour une colonne B avec VB
afin d'éviter d'utiliser la fonction SUPPRESPACE
Merci


Salut à toi

Feuil1 colonne B à traiter ce code :

For Each c In Worksheets("Feuil1").Range("B1", "B" &
Range("B65535").End(xlUp).Row)
For i = 1 To Len(c)
If Mid(c, i, 1) <> " " Then
Exit For
End If
Next
c.Value = Mid(c, i)
Next




Avatar
Modeste
Bonsour® avec ferveur ;o))) vous nous disiez :

Feuil1 colonne B à traiter ce code :

For Each c In Worksheets("Feuil1").Range("B1", "B" &
Range("B65535").End(xlUp).Row)
For i = 1 To Len(c)
If Mid(c, i, 1) <> " " Then
Exit For
End If
Next
c.Value = Mid(c, i)
Next


attention 3 possibilités différentes !!!!!!

For Each c In Worksheets("Feuil1").Range("B1", "B" &
Range("B65535").End(xlUp).Row)
' --enleve SEULEMENT les espaces de début et de fin
' --utilisation de la fonction Trim VBA
c.Value = Trim(c)
'--enleve les espaces de début et de fin, ET réduit les espaces internes à
un seul
'--utilisation de la fonction Trim feuille de calcul (SUPPRESPACE)
' c.Value = Application.Trim(c)
'--supprime TOUT les espaces
' c.Value = Application.Substitute(c, " ", "")
Next

--
--
@+
;o)))

Avatar
Daniel.j
'--utilisation de la fonction Trim feuille de calcul (SUPPRESPACE)
en complement

LTrim espace devant
RTrim espace derriere

;O)
Daniel

"Modeste" a écrit dans le message de news:
uUZB7Z$
Bonsour® avec ferveur ;o))) vous nous disiez
:

Feuil1 colonne B à traiter ce code :

For Each c In Worksheets("Feuil1").Range("B1", "B" &
Range("B65535").End(xlUp).Row)
For i = 1 To Len(c)
If Mid(c, i, 1) <> " " Then
Exit For
End If
Next
c.Value = Mid(c, i)
Next


attention 3 possibilités différentes !!!!!!

For Each c In Worksheets("Feuil1").Range("B1", "B" &
Range("B65535").End(xlUp).Row)
' --enleve SEULEMENT les espaces de début et de fin
' --utilisation de la fonction Trim VBA
c.Value = Trim(c)
'--enleve les espaces de début et de fin, ET réduit les espaces
internes à un seul
'--utilisation de la fonction Trim feuille de calcul (SUPPRESPACE)
' c.Value = Application.Trim(c)
'--supprime TOUT les espaces
' c.Value = Application.Substitute(c, " ", "")
Next

--
--
@+
;o)))





Avatar
Gildo
Merci encore pour ce post très complet !

"Modeste" wrote:

Bonsour® avec ferveur ;o))) vous nous disiez :

Feuil1 colonne B à traiter ce code :

For Each c In Worksheets("Feuil1").Range("B1", "B" &
Range("B65535").End(xlUp).Row)
For i = 1 To Len(c)
If Mid(c, i, 1) <> " " Then
Exit For
End If
Next
c.Value = Mid(c, i)
Next


attention 3 possibilités différentes !!!!!!

For Each c In Worksheets("Feuil1").Range("B1", "B" &
Range("B65535").End(xlUp).Row)
' --enleve SEULEMENT les espaces de début et de fin
' --utilisation de la fonction Trim VBA
c.Value = Trim(c)
'--enleve les espaces de début et de fin, ET réduit les espaces internes à
un seul
'--utilisation de la fonction Trim feuille de calcul (SUPPRESPACE)
' c.Value = Application.Trim(c)
'--supprime TOUT les espaces
' c.Value = Application.Substitute(c, " ", "")
Next

--
--
@+
;o)))






Avatar
Gildo
merci à tous

"Daniel.j" wrote:

'--utilisation de la fonction Trim feuille de calcul (SUPPRESPACE)
en complement

LTrim espace devant
RTrim espace derriere

;O)
Daniel

"Modeste" a écrit dans le message de news:
uUZB7Z$
Bonsour® avec ferveur ;o))) vous nous disiez
:

Feuil1 colonne B à traiter ce code :

For Each c In Worksheets("Feuil1").Range("B1", "B" &
Range("B65535").End(xlUp).Row)
For i = 1 To Len(c)
If Mid(c, i, 1) <> " " Then
Exit For
End If
Next
c.Value = Mid(c, i)
Next


attention 3 possibilités différentes !!!!!!

For Each c In Worksheets("Feuil1").Range("B1", "B" &
Range("B65535").End(xlUp).Row)
' --enleve SEULEMENT les espaces de début et de fin
' --utilisation de la fonction Trim VBA
c.Value = Trim(c)
'--enleve les espaces de début et de fin, ET réduit les espaces
internes à un seul
'--utilisation de la fonction Trim feuille de calcul (SUPPRESPACE)
' c.Value = Application.Trim(c)
'--supprime TOUT les espaces
' c.Value = Application.Substitute(c, " ", "")
Next

--
--
@+
;o)))