remplacer dans cellule

[petchy]

bonjour
voila,j'ai un programme en VB6,par lequel j'envoi des données dans une feuille excel.
comment faire, à l'ouverture de ma feuille excel
si dans la cellule E53 j'ai que sigle "€" alors il me met rien.
et si dans la cellule C54 j'ai la phrase "remise de 0%" il me met "pas de remise"
merci

 

[mromain]

Re : remplacer dans cellule

bonjour petchy,

pas sur d'avoir tout compris

ce code affiche "pas de remise" si il n'y a pas "€" en E53 et "remise de 0%" en C54.

Private Sub Worksheet_Activate()
If InStr(Range("E53").Text, "€") Then
Else
    If Range("C54").Text = "remise de 0%" Then MsgBox "pas de remise"
End If
End Sub

a+

 

[petchy]

Re : remplacer dans cellule

Re

merci pour ta réponse mais ça ne fonctionne pas
j'ai toujours le sigle € dans E53