supprimer les tirets

Tibo

XLDnaute Barbatruc

• 20 Juillet 2010

• #2

Re : supprimer les tirets

Bonjour Sylvie,

Essaye avec cette formule :

Code:

=SUPPRESPACE(SI(GAUCHE(Sylvie(B2:F2);2)=" -";SUBSTITUE(Sylvie(B2:F2);"-";"");
Sylvie(B2:F2)))

@+

 

Vote positif 0 Vote négatif

S

Sylvie64

XLDnaute Occasionnel

• 20 Juillet 2010

• #3

Re : supprimer les tirets

Bonjour Tibo,

Merci, mais c'est dans cette formule :

Function Sylvie(Plage As Range) As String
Application.Volatile
If Plage.Rows.Count <> 1 Then
Sylvie = "Erreur de sélection"
Exit Function
End If
Dim Cellule As Range
For Each Cellule In Plage
If Cellule <> "" Then
Select Case Cellule.Column - Plage.Column + 1
Case 1
Sylvie = Sylvie & " " & Trim(Cellule)
Case 2
Sylvie = Sylvie & " née à " & Trim(Cellule)
Case 3
Sylvie = Sylvie & " Demeurant à " & Trim(Cellule)
Case 4
Sylvie = Sylvie & " - " & Trim(Cellule)
Case 5
Sylvie = Sylvie & " - " & Trim(Cellule)
End Select
End If
Next
End Function

Excuse de l'oublie ne pas l'avoir pas préciser

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Juillet 2010

• #4

Re : supprimer les tirets

Bonjour Sylvie, Tibo

euh... comprends pas trop puisque les "tirets" sont placés par toi dans le code....

Code:

Case 4
Sylvie = Sylvie [B]& " - " &[/B] Trim(Cellule)
Case 5
Sylvie = Sylvie [B]& " - " &[/B] Trim(Cellule)

bonne journée
@+

 

Dernière édition: 20 Juillet 2010

Vote positif 0 Vote négatif

S

Sylvie64

XLDnaute Occasionnel

• 20 Juillet 2010

• #5

Re : supprimer les tirets

Oui en fait, si les colonnes B,C,D,E sont vide et qu'il est écrit "Signe" dans la
colonne F et bien quand je tire ma formule en colonne G, devant 'Signe" je ne veux pas
de tiret car cela me crée des problèmes ensuite.

Donc en colonne "G" devant "Signe ou laboureur", il ne faut pas de tiret, s'il n'y a rien devant.

Pas évident d'expliquer

Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Juillet 2010

• #6

Re : supprimer les tirets

Re,

modifie peut être la fin de la fonction ainsi :

Code:

End Select
End If
Next
If InStr(Sylvie, "-") = 2 Then Sylvie = Mid(Sylvie, 4)
End Function

@+

 

Vote positif 0 Vote négatif

S

Sylvie64

XLDnaute Occasionnel

• 20 Juillet 2010

• #7

Re : supprimer les tirets

Excellent, merci pour ton aide
Bonne journée

 

Vote positif 0 Vote négatif