Concatener dans une cellule sous condition d'une autre

Bonjour à tous,

je souhaite en fonction du la valeur "début de zone" contenue dans la colonne S appliquer une formule concatener en colonne D.

Exemple:

Si en S9 la valeur est "début de zone" alors en D9 met la formule: "=+CONCATENER(N9;" - ";P9;" - ";M10;" ";Q9)"

Du coup, j'ai pensé faire une boucle de type:

Worksheets("SANNER").Select
    For I = Range("S" & Rows.Count).End(xlUp).Row To 8
    If Range("F" & I).Value Like "*début de zone*" Then Cel.FormulaLocal = "=+CONCATENER(N9;" - ";P9;" - ";M10;" ";Q9)""
    Next I
End Sub

Mais je bloque pour insérer la formule.

Donc je fais appel à vos connaissances.

Bonjour,

Teste comme ceci

If Range("S" & i).Value Like "*début de zone*" Then
        Range("D" & i) = Range("N" & i) & " - " & Range("P" & i) & " - " & Range("M" & i + 1) & " " & Range("Q" & i)
End If

Salut,

Tu peux aussi le faire par formule

=SI(ESTERR(TROUVE("début de zone";S9;1))=VRAI;"";CONCATENER(N9;" - ";P9;" - ";M10;" ";Q9))

A+

Merci M12, pour ta réponse je n'arrive pas à la tester car je suppose que ma boucle pour lire toutes les cellules en S comprise entre la dernière et la 8ième n'est pas bonne ou alors le problème est ailleurs!!!

A te lire..

Sub concatenerfz()
' suppression des lignes <> recencement dans la feuil "SANNER"
Worksheets("SANNER").Select
    For I = Range("S" & Rows.Count).End(xlUp).Row To 8 Step -1
        If Range("S" & I).Value Like "*début de zone*" Then
        Range("D" & I) = Range("N" & I) & " - " & Range("P" & I) & " - " & Range("M" & I + 1) & " " & Range("Q" & I)
        End If
    Next I
End Sub

Re,

sans modèle de classeur, difficile de voir ce qui y a dedans

Je viens de modifier mon poste précédent pour y insérer mon fichier.

Cordialement

Re,

Faut comprendre

au 1er post : Si en S9 la valeur est "début de zone"

dans ton 1er code : If Range("F" & I).Value Like "*début de zone*" "soit colonne F

et dans ton classeur "début de zone" se trouve en colonne Q

Ah mais oui quel âne je fais..... j'ai appliquer une autre macro à ma feuille pour arriver à la mise en forme.

Je refais la modification et je teste....

C'est bon ton code fonctionne très bien, toutes mes excuses pour mon manque de vigilance.

Cordialement

Re,

Tant mieux pour toi