pb code vba : si A1 ne contient pas "UnMot" alors...

[ecii]

Bonjour,

dans une application Excel, je cherche à coder ceci:
Si la cellule A1 (par exemple) ne contient pas le mot "Transfert", alors ... A3 = 15
C'est pour une application de comptabilité spécifique.

Merci d'avance pour votre aide.
P. Jean-Nicolas

 

[skoobi]

Re : pb code vba : si A1 ne contient pas "UnMot" alors...

Bonjour,

If Range("A1").Value <> "Transfert" Then Range("A3").Value = 15

 

[ecii]

Re : pb code vba : si A1 ne contient pas "UnMot" alors...

Bonjour,
merci pour ta réponse, mais le problème ici c'est que mon appli complète la cellule par "Transfert (de caisse)" ou "Transfert (vers caisse)" ou "Transfert (vers cc)", etc. en fonction d'une case cochée (un Form pour les transferts entre comptes).
J'aimerais donc un code qui dise : "Si A1 ne contient pas le mot "Transfert" alors..."
et non "Si A1 est différent de..."
à moins que le code cité fonctionne également?

 

[Pierrot93]

Re : pb code vba : si A1 ne contient pas "UnMot" alors...

Bonjour Ecii, Skoobi

essaye peut être le code ci dessous :

If Not UCase(Range("A1").Value) Like "*TRANSFERT*" Then

Bon après midi
@+

 

[skoobi]

Re : pb code vba : si A1 ne contient pas "UnMot" alors...

Ah! ok,

alors ceci:

If Not Range("A1").Value Like "Transfert*" Then Range("A3").Value = 15

 

[ecii]

Re : pb code vba : si A1 ne contient pas "UnMot" alors...

merci de vos réponses si rapides Skoobi et Pierrot,
en fait je ne maîtrisais pas le Not et le Like; je viens de lire la doc dessus.
Après adaptation, ça marche nikel (c'est en fait intégré dans un code qui va rechercher dans le Livre-Journal les données et les additionne par mois et par "recettes" ou "dépenses" - tout en excluant les transferts - en vue d'établir un graphique reprenant les montants des recettes et dépenses mensuelles). Eventuellement quand l'appli sera finie je la partagerai.

P. Jean-Nicolas