XL 2013 Suppression espaces inutiles

Appo1985 · 18 Juillet 2023

Bonsoir à tous.
J'ai voulu supprimer par vba les espaces de trop dans mon tableau mais ce sont les seulement les espaces en début de cellule qui sont supprimés.
Je voudrais de l'aide .
Merci d'avance
Ci-joint mon fichier

vgendron · 18 Juillet 2023

Hello

Un essai avec ce code

VB:

Sub Bouton1_Cliquer()
Dim c As Range
    For Each c In Range("Tableau1")
        tempo = Split(c, " ")
        d = ""
        For i = 0 To UBound(tempo)
            If tempo(i) <> "" Then
                d = d & tempo(i) & " "
            End If
            
        Next i
        c = UCase(Trim(d))
    Next c
    For Each x In Range("Tableau1[Prénom(s)]")
        x.Value = Application.Proper(x.Value)
    Next
End Sub

vgendron · 18 Juillet 2023

Hello

Un essai avec ce code

VB:

Sub Bouton1_Cliquer()
Dim c As Range
    For Each c In Range("Tableau1")
        tempo = Split(c, " ")
        d = ""
        For i = 0 To UBound(tempo)
            If tempo(i) <> "" Then
                d = d & tempo(i) & " "
            End If
            
        Next i
        c = UCase(Trim(d))
    Next c
    For Each x In Range("Tableau1[Prénom(s)]")
        x.Value = Application.Proper(x.Value)
    Next
End Sub

fanfan38 · 18 Juillet 2023

Bonjour
Ci joint ma solution

A+ François

Appo1985 · 18 Juillet 2023

vgendron à dit:

Hello

Un essai avec ce code

VB:

Sub Bouton1_Cliquer()
Dim c As Range
    For Each c In Range("Tableau1")
        tempo = Split(c, " ")
        d = ""
        For i = 0 To UBound(tempo)
            If tempo(i) <> "" Then
                d = d & tempo(i) & " "
            End If
           
        Next i
        c = UCase(Trim(d))
    Next c
    For Each x In Range("Tableau1[Prénom(s)]")
        x.Value = Application.Proper(x.Value)
    Next
End Sub

Merci beaucoup @vgendron .
J'ai oublier de préciser que le problème c'est quand il y a deux mots dans la cellule.
Je voudrais aussi supprimer les espaces superflus entre les mots car par la suite je compte faire un tri de A à Z

vgendron · 18 Juillet 2023

Appo1985 à dit:
Je voudrais aussi supprimer les espaces superflus entre les mots

et bah.. ? n'est ce pas ce que fait mon code??

Appo1985 · 18 Juillet 2023

vgendron à dit:
et bah.. ? n'est ce pas ce que fait mon code??

Effectivement.
Ça marche bien
J'avais mis "" à la place de " "

Appo1985 · 18 Juillet 2023

fanfan38 à dit:
Bonjour
Ci joint ma solution

A+ François

Grandement merci @fanfan38 . Le résultat est exactement ce que je voulais.

Appo1985 · 18 Juillet 2023

fanfan38 à dit:
Bonjour
Ci joint ma solution

A+ François

Un petit turc.
Au niveau de la deuxième colonne, les deuxièmes mots ne commencent pas par une lettre majuscule.

fanfan38 · 18 Juillet 2023

Il suffit de demander lol...

A+ François

Appo1985 · 18 Juillet 2023

fanfan38 à dit:
Il suffit de demander lol...

A+ Franço

fanfan38 à dit:
Il suffit de demander lol...

A+ François

C'est OK.
Merci grandement

XL 2013 Suppression espaces inutiles

Appo1985

XLDnaute Occasionnel

Pièces jointes

vgendron

vgendron

XLDnaute Barbatruc

fanfan38

XLDnaute Barbatruc

Pièces jointes

Appo1985

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Appo1985

XLDnaute Occasionnel

Appo1985

XLDnaute Occasionnel

Appo1985

XLDnaute Occasionnel

fanfan38

XLDnaute Barbatruc

Pièces jointes

Appo1985

XLDnaute Occasionnel

Discussions similaires

XL 2013 Suppression espaces inutiles

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency