SUPPRESPACE en VB

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gildo
Le #5285151
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


francois.forcet
Le #5285141
On 31 jan, 10:28, Gildo
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

Gildo
Le #5285111
Merci et bonne journée !

"" wrote:

On 31 jan, 10:28, 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


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




Modeste
Le #5285031
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)))

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

LTrim espace devant
RTrim espace derriere

;O)
Daniel

"Modeste" 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)))





Gildo
Le #5284971
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)))






Gildo
Le #5284961
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" 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)))










Publicité
Poster une réponse
Anonyme