Discussion :

[majothi]

Bonjour

Je coinces pour faire ressortir des valeurs d'une chaîne de caracteres avec La fonction Instr
Pour éviter un roman, je joins un fichier avec le résultat que je voudrais obtenir

Merci d'avance pour votre aide

Le code ds le fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub mise_a_jour()
Dim cible
 
For i = 2 To 10
cible = Range("B" & i).Value
 
    For j = 2 To 4
        If InStr(cible, Range("D" & j)) = 1 Then
            If Range("E" & j).Value <> "" Then
                Range("E" & j).Value = Range("E" & j).Value & "/" & Range("A" & i).Value
            Else
                Range("E" & j).Value = Range("A" & i).Value
            End If
        End If
    Next j
Next i
 
End Sub