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
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 .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
et bah.. ? n'est ce pas ce que fait mon code??Je voudrais aussi supprimer les espaces superflus entre les mots
Effectivement.et bah.. ? n'est ce pas ce que fait mon code??
Grandement merci @fanfan38 . Le résultat est exactement ce que je voulais.Bonjour
Ci joint ma solution
A+ François
Un petit turc.Bonjour
Ci joint ma solution
A+ François
Il suffit de demander lol...
A+ Franço
C'est OK.Il suffit de demander lol...
A+ François