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

skoobi

XLDnaute Barbatruc

• 6 Décembre 2007

• #2

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

Bonjour,

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

 

Vote positif 0 Vote négatif

E

ecii

Guest

• 6 Décembre 2007

• #3

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?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Décembre 2007

• #4

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

Bonjour Ecii, Skoobi

essaye peut être le code ci dessous :

Code:

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

Bon après midi
@+

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 6 Décembre 2007

• #5

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

 

Vote positif 0 Vote négatif

E

ecii

Guest

• 6 Décembre 2007

• #6

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

 

Vote positif 0 Vote négatif