Discussion :

[AnAmine]

Bonjour la famille,

je voudrais faire le truc suivant,
j'ai sur une colonne des cellules qui contient les valeurs "1", "2", "3" etc et d'autres cellules (dans la même colonne)qui contiennent "Imad - 1", "Rachid - 2", "Omar - 3" etc , je voudrais copier sur toutes les cellules qui contiennent la valeur 1 le reste du contenu qui est "Imad -" et ainsi de suite, pouvez vous m'aider svp,

[ARTURO83]

Bonjour,

Proposition par formules avec calculs intermédiaires
Présentation du résultat
Pièce jointe 510175

Les formules utilisées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
En B2 =SIERREUR(GAUCHE(A2;TROUVE(" - ";A2;1)+2);"")
En C2 =SIERREUR(CNUM(DROITE(A2;NBCAR(A2)-TROUVE(" - ";A2;1)-2));"")
En D2 =SIERREUR(EQUIV(A2*1;C:C;0);"")
En E2 =SI(D2<>"";INDEX(A:A;D2;1);A2)

Cdlt

[ARTURO83]

Même chose en VBA et Suppression des calculs intermédiaires

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Completion()
    Dim DerLig As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Range("B2:B" & DerLig).FormulaR1C1 = "=IFERROR(LEFT(RC[-1],FIND("" - "",RC[-1],1)+2),"""")"
    Range("C2:C" & DerLig).FormulaR1C1 = "=IFERROR(VALUE(RIGHT(RC[-2],LEN(RC[-2])-FIND("" - "",RC[-2],1)-2)),"""")"
    Range("D2:D" & DerLig).FormulaR1C1 = "=IFERROR(MATCH(RC[-3]*1,C[-1],0),"""")"
    Range("E2:E" & DerLig).FormulaR1C1 = "=IF(RC[-1]<>"""",INDEX(C[-4],RC[-1],1),RC[-4])"
    Range("B2:E" & DerLig).Value = Range("B2:E" & DerLig).Value
    Columns("B:D").Delete Shift:=xlToLeft
End Sub

Cdlt

[eriiic]

Bonjour à tous,

sans colonnes intermédiaires :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ESTERREUR(CHERCHE("-";A2));INDEX(A:A;EQUIV("*"&" - "&A2;A:A;0));A2)

eric

[AnAmine]

c'est génial, merci beaucoup à vous, c'est résolu