formule : 7colonnes en une !

[Sylvie64]

Bonjour,

J'aimerai trouvé une formule pour mettre les 7 colonnes de A à G et arriver à
une phrase en H

(A1) t2 : MASSUE
(B1) pt2 : Pierre Jean Cornil
(C1) t2age : 61a
(D1) lrvt2 : Armbouts Cappel (dans la formule doit y avoir devant : Demeurant à)
(E1) proft2 : Cultivateur (dans la formule doit y avoir devant : un tiret)
(F1) part2 : non allié (dans la formule doit y avoir devant : un tiret)
(G1) t2sig : Signe (dans la formule doit y avoir devant : un tiret)
(voir en PJ)

Pour en arriver en H1 (et ensuite en tirant jusqu'en bas pour le reste des lignes) :
MASSUE Pierre Jean Cornil 61a Demeurant à Armbouts Cappel - Cultivateur - non allié - Signe

Un grand merci pour votre aide

Sylvie

 

[Manu62]

Re : formule : 7colonnes en une !

Bjr,

En h4

A4&" "&B4&" "&C4&" Demeurant à"&D4&" - "&E4&"- "&F4&"- "&G4

j'ai été trop vite

A++

Manu

 

[Sylvie64]

Re : formule : 7colonnes en une !

Merci Manu62,
J'y avais pensé mais le problème est qu'en ligne 5 je n'ai pas d'information pour ces colonnes (je ne peux pas la supprimer car j'ai plus de 19 colonnes)

voici ma formule de départ :
=SUPPRESPACE(A4&" "&B4&" "&C4&" "&D4&" Demeurant à "&E4&" - "&F4&" -"&G4)

Mais en ligne 5 colonne H : Demeurant à apparait et les tiret aussi ! (voir PJ)

Donc je pense à une formule plus complexe !

Merci

 

[JNP]

Re : formule : 7colonnes en une !

Bonjour le fil 🙂,
Vu la longueur de formule que tu vas obtenir avec des SI pour tester si chaque cellule est vide avant de mettre un "-" ou "Demeurant à", sans compter que si tu veux modifier un petit truc, tu es bonne pour modifier la formule et la recopier, une petite fonction personnalisée me parait judicieuse :

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 & " " & Trim(Cellule)
Case 3
Sylvie = Sylvie & " " & Trim(Cellule)
Case 4
Sylvie = Sylvie & " Demeurant à " & Trim(Cellule)
Case 5
Sylvie = Sylvie & " - " & Trim(Cellule)
Case 6
Sylvie = Sylvie & " - " & Trim(Cellule)
Case 7
Sylvie = Sylvie & " - " & Trim(Cellule)
End Select
End If
Next
End Function

Si tu as besoin d'ajouter des colonnes, il te suffit de rajouter

Case 8
Sylvie = Sylvie & " - Divorcée de " & Trim(Cellule)

par exemple.
Les N° de colonnes sont en relatif (si tu regardes le fichier, je t'ai rajouté 3 colonnes vides en tête).
Bonne journée 😎

 

[Sylvie64]

Re : formule : 7colonnes en une !

Bonjour JNP,

EXCELLENT !!! c'est vraiment cela que je voulais.
Un très grand merci à toi.

Sylvie