="Rue " & DROITE(A1;NBCAR(A1)-2)
Merci de votre réponse je crois que j'ai mal exprimé mon besoinBonjour
VB:="Rue " & DROITE(A1;NBCAR(A1)-2)
=SI(GAUCHE(B2;1)="R";"Rue "&DROITE(B2;NBCAR(B2)-2);
SI(GAUCHE(B2;1)="A";"Avenue "&DROITE(B2;NBCAR(B2)-2);
SI(GAUCHE(B2;1)="B";"Boulevard "&DROITE(B2;NBCAR(B2)-2);
SI(GAUCHE(B2;1)="I";"Impasse "&DROITE(B2;NBCAR(B2)-2);
SI(GAUCHE(B2;1)="C";"Chemin "&DROITE(B2;NBCAR(B2)-2);B2)))))
=SI(GAUCHE(B2;3)="Bat";"Bâtiment "&DROITE(B2;NBCAR(B2)-5);
SI(GAUCHE(B2;1)="R";"Rue "&DROITE(B2;NBCAR(B2)-2);
SI(GAUCHE(B2;1)="A";"Allée "&DROITE(B2;NBCAR(B2)-2);
SI(GAUCHE(B2;1)="B";"Boulevard "&DROITE(B2;NBCAR(B2)-2);
SI(GAUCHE(B2;1)="I";"Impasse "&DROITE(B2;NBCAR(B2)-2);
SI(GAUCHE(B2;1)="C";"Chemin "&DROITE(B2;NBCAR(B2)-2);B2))))))
Rectifié d'après votre dernier post avec :
Code:=SI(GAUCHE(B2;3)="Bat";"Bâtiment "&DROITE(B2;NBCAR(B2)-5); SI(GAUCHE(B2;1)="R";"Rue "&DROITE(B2;NBCAR(B2)-2); SI(GAUCHE(B2;1)="A";"Allée "&DROITE(B2;NBCAR(B2)-2); SI(GAUCHE(B2;1)="B";"Boulevard "&DROITE(B2;NBCAR(B2)-2); SI(GAUCHE(B2;1)="I";"Impasse "&DROITE(B2;NBCAR(B2)-2); SI(GAUCHE(B2;1)="C";"Chemin "&DROITE(B2;NBCAR(B2)-2);B2))))))
Attention, "A" pourrait signifier Allée ou Avenue.
=SI(GAUCHE(B2;3)="Bat";"Bâtiment "&DROITE(B2;NBCAR(B2)-5);
=SI(GAUCHE(A2;3)="Bat";"Bâtiment "&DROITE(A2;NBCAR(A2)-4);
SI(GAUCHE(A2;2)="AV";"Avenue "&DROITE(A2;NBCAR(A2)-3);
SI(GAUCHE(A2;2)="PL";"Place "&DROITE(A2;NBCAR(A2)-3);
SI(GAUCHE(A2;3)="RTE";"Route "&DROITE(A2;NBCAR(A2)-4);
SI(GAUCHE(A2;1)="R";"Rue "&DROITE(A2;NBCAR(A2)-2);
SI(GAUCHE(A2;1)="A";"Allée "&DROITE(A2;NBCAR(A2)-2);
SI(GAUCHE(A2;1)="B";"Boulevard "&DROITE(A2;NBCAR(A2)-3);
SI(GAUCHE(A2;1)="I";"Impasse "&DROITE(A2;NBCAR(A2)-2);
SI(GAUCHE(A2;1)="C";"Chemin "&DROITE(A2;NBCAR(A2)-2);A2)))))))))
Je pense qu'il y a erreur sur la colonne à fusionner. J
=SI(GAUCHE(A2;4)="Bat ";"Bâtiment "&DROITE(A2;NBCAR(A2)-4);
SI(GAUCHE(A2;2)="R ";"Rue "&DROITE(A2;NBCAR(A2)-2);
SI(GAUCHE(A2;4)="ALL ";"Allée "&DROITE(A2;NBCAR(A2)-4);
SI(GAUCHE(A2;3)="BD ";"Boulevard "&DROITE(A2;NBCAR(A2)-2);
SI(GAUCHE(A2;4)="IMP ";"Impasse "&DROITE(A2;NBCAR(A2)-4);
SI(GAUCHE(A2;3)="AV ";"Avenue "&DROITE(A2;NBCAR(A2)-2);
SI(GAUCHE(A2;5)="CHEM ";"Chemin "&DROITE(A2;NBCAR(A2)-5);
SI(GAUCHE(A2;3)="PL ";"Place "&DROITE(A2;NBCAR(A2)-3);
SI(GAUCHE(A2;4)="RTE ";"Route "&DROITE(A2;NBCAR(A2)-4);
SI(GAUCHE(A2;5)="PASS ";"Passage "&DROITE(A2;NBCAR(A2)-5);
SI(GAUCHE(A2;6)="RESID ";"Résidence "&DROITE(A2;NBCAR(A2)-6);
SI(GAUCHE(A2;4)="LOT ";"Lotissement "&DROITE(A2;NBCAR(A2)-4);A2))))))))))))
Sub appliquer_formule()
Dim DL As Integer
DL = Cells(Application.Rows.Count, "A").End(xlUp).Row
Range("J2").FormulaR1C1 = "=IF(LEFT(A2;4)=""Bat "";""Bâtiment ""&RIGHT(A2;LENB(A2)-4))"
Range("J2").AutoFill Destination:=Range("J2:J" & DL), Type:=xlFillDefault
End Sub