supprimer les tirets

[Sylvie64]

Bonjour,

Après avoir mis la formule, j'aimerai que dans les "profnom et nsig" les tirets n'apparaissent pas.
Comme ici en PJ, dans la colonne G, sur les lignes "2,9,11,17,18" les tirets apparaissent.
Merci pour votre aide
Sylvie

 

[Tibo]

Re : supprimer les tirets

Bonjour Sylvie,

Essaye avec cette formule :

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

@+

 

[Sylvie64]

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

 

[Pierrot93]

Re : supprimer les tirets

Bonjour Sylvie, Tibo

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

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

bonne journée
@+

 

[Sylvie64]

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

 

[Pierrot93]

Re : supprimer les tirets

Re,

modifie peut être la fin de la fonction ainsi :

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

@+

 

[Sylvie64]

Re : supprimer les tirets

Excellent, merci pour ton aide
Bonne journée