Discussion :

[esstin]

Bonjour,
Je souhaiterais savoir pour une macro comment on écrit la condition sur une partie d'une cellule.

Par exemple, je peut avoir dans une cellule
8-T4-B
8-T4-M
8-T4-B1
...............

Si cette cellule contient B alors la copier en C20
Si cette cellule contient M alors la copier en D20
............

Merci d'avance pour vos réponses

[David2304]

Bonjour,

La fonction trouve peut être reprise dans vba en utilisant :

Code :

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

Application.WorksheetFunction.Find

[Gorfael]

Salut esstin et le forum
Un peu de précision n'est pas nuisible... et permet de répondre correctement
À adapter

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim Cel As Range
For Each Cel In Range([A1], [A65536].End(xlUp))
    If Cel Like "*M*" Then [D20] = [D20] + 1
    'si cel contient "M" ajouter 1 à D20
    If Mid(Cel, 6, 1) = "B" Then [C20] = [C20] + 1
    'si la 6ème lettre de cel est "B", C20=C20+1
Next Cel
End Sub

A+