remplacer dans cellule

petchy · 7 Avril 2009

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 · 7 Avril 2009

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.

Code:

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 · 7 Avril 2009

Re : remplacer dans cellule

Re

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

remplacer dans cellule

petchy

XLDnaute Occasionnel

mromain

XLDnaute Barbatruc

petchy

XLDnaute Occasionnel

Discussions similaires

remplacer dans cellule

petchy

XLDnaute Occasionnel

mromain

XLDnaute Barbatruc

petchy

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency