Discussion :

[chubak62]

Bonjour,

je me permet de poster sur le forum car en dépit de mes recherches sur des topics de ce genre déjà traité, je n'ai pas trouvé ma réponse.

Voici ce que je cherche :

J'ai des valeurs dans une colonne Range(A3:A65000) qui sont en fait un décompte de stock.
Il y aura un moment où une cellule de cette Range sera égale à zéro qui signifiera qu'il n'y aura plus de stock. Ces valeurs sont ajouté manuellement sans formules.

si on indique zéro dans l'une des cellule de cette plage A3:A65000 alors la cellule G1 indiquera "Soldé" dans le cas contraire, il y aura inscrit "non soldé"

cette macro, je pense, se passera dans cet évènement
"Private Sub Worksheet_Change(ByVal Target As Range)" mais je ne maîtrise pas du tout cet évènement.

Pourriez vous m'aider?

Merci.

Yoann.

[Philippe Tulliez]

Bonsoir,
Si c'est uniquement pour visualiser, il ne faut pas de MACRO
Aller dans Format/Cellule [Nombre] - Choisir Personnalisée et dans type écrire ceci "Non Soldé";0;"Soldé"

[pgz]

Bonsoir.

Pourquoi en G1? Ce n'est pas en colonne G sur la ligne modifiée entre 3 et 65000?

Si oui, tu peux faire

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Me.Range("A3:A65000")) Is Nothing Then Exit Sub
 
Target.Offset(0, 6).Value = IIf(Target.Value = 0, "Soldé", "Non Soldé")
 
End Sub

Cordialement,

PGZ

[chubak62]

Pourquoi en G1? Ce n'est pas en colonne G sur la ligne modifiée entre 3 et 65000?

Merci pgz pour ta réponse. Le code fonctionne mais en fait ce que je veux que le résultat "soldé" ou "non soldé" s'affiche uniquement dans une cellule. La cellule G1 était un exemple car je modifierai le code en fonction des cellules cibles.

Pour mieux expliquer, une feuille correspondra à un lot sur lequel on enlèvera des quantité fournit à des client. ici, les quantités seront mises dans la range G3:g6500 (le nombre de cellule rempli sera fonction du nombre de clients jusqu’à ce que notre stock soit à zéro)

Par exemple en A1 on a un stock initial de 500
On a un client qui prend 400 (valeur en cellule B3) donc en A3 il reste 100 la fiche est "non soldé" et c'est affiché en G1.
Puis un autre client prend 100 donc le stock est à 0 en cellule A4 et de ce fait en G1, il est noté "Soldé".

Je vais essayer avec ton code car il a le mérite de fonctionner et je pense pouvoir m'appuyer dessus. Je ne suis pas contre votre avis et votre aide.

Merci encore.

Yoann.

[rjamin]

Bonjour,

En G1 mettre

Code :

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

=SI(NB.SI(A:A;"=0")>0;"soldé";"non soldé")

Si on trouve la valeur 0 dans la colonne A on écrit "soldé" sinon "non soldé"

Edit : Pas tenu compte de XL97 peut-être NB.SI() pas encore intégré à cette version.

[chubak62]

Bonjour,

En G1 mettre

Code :

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

=SI(NB.SI(A:A;"=0")>0;"soldé";"non soldé")

Si on trouve la valeur 0 dans la colonne A on écrit "soldé" sinon "non soldé"

Edit : Pas tenu compte de XL97 peut-être NB.SI() pas encore intégré à cette version.

Merci beaucoup, cela fonctionne très bien!

Je te remercie. C'est certain que cela est plus efficace que passer par une macro VBA.

Merci encore.

Je poursuis quand même mes recherches mais je met ce topic en résolu.

Au revoir.