VBA concatener sous conditions

Bonsoir,

malgré des essais à partir de divers fils traitant du sujet, je n'arrive pas à réaliser ma macro qui va bien.

Dans mon tableau ci joint, je souhaite simplement que lorsque qu'en colonne B, il y a "dépot" la cellule en question concatène avec la cellule de colonne C correspondante. (soit dans le fichier joint, pour la ligne 2 : dépot - Bruno)

Sûrement très simple pour celui qui sait..

Bref merci d'avance.

DAVID

Bonjour,

=SI(B2="dépôt";B2&" - "&C2;"")

P.

Bonjour,

en fait de fonction, je connait et utilise cette fonction SI, mais on ne peut pas l'appliquer dans mon cas sans créer une colonne supplémentaire "résultat", ce qui ne me convient pas exactement.

Ce qui m'intéresse plus précisément c'est plutôt une macro de type Private_Sub

Merci d'avance.

Bonjour,

personne n'a d'idée alors ??

Après avoir lu les cours vba du forum j'ai gribouillé ceci qui fonctionne assez bien.

MAIS SANS CONDITIONS

Sub concat()
Dim Cell As Range
For Each Cell In Range("d2:d" & Range("d65536").End(3).Row)
Cell.Offset(0, 0) = (Cell & " " & Cell.Offset(0, 1))
Next
End Sub

ça me concatène bien toute ma colonne D avec la colonne E, mais sans la condition que je voudrais insérer;

à savoir, concatener D et E seulement si D contient un texte précis.

Une idée pour aboutir ..

Merci

Bonjour à tous et toutes

Coller ceci dans ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
dl = Sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To dl
If Cells(i, "B") Like "dépôt" Then
   Cells(i, "B") = Cells(i, "B") & " - " & Cells(i, "C")
   End If
   Next

End Sub

Bonne soirée

Impeccable.. c'est juste ce qu'il fallait.

GRAND MERCI jp65.

Sujet résolu pour ma part.

Merci

DAVID