Code

ROGER2327

XLDnaute Barbatruc

• 2 Mai 2012

• #2

Re : Code

Bonjour CrazySoprano

Dans le module de la feuille concernée, essayez :​

VB:

Private Sub Worksheet_Change(ByVal Cible As Range)
    If Cible.Address = "$G$9" Then If Cible.Value = 0 Then Beep
End Sub

ROGER2327
#5843

Vendredi 13 Palotin 139 (Esquive de Saint Léonard da V, illusioniste - fête Suprême Quarte)
13 Floréal An CCXX, 7,0414h - bâton-d'or
2012-W18-3T16:53:58Z

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 2 Mai 2012

• #3

Re : Code

Bonsoir CrazySoprano, et bienvenue à toi,

Voici un exemple de code à insérer dans le module de la feuille concernée :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G9:G500")) Is Nothing Then Exit Sub
If Target.Value <= 0 Then Beep
End Sub

Espérant avoir répondu.

Cordialement.


Edit : bonsoir ROGER.

 

Dernière édition: 2 Mai 2012

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 2 Mai 2012

• #4

Re : Code

Salut CrazySoprano et bienvenue sur ce forum 😉
Hello mister Roger2327

Si je puis me permettre, correction du code

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  ' Si la cellule modifiée se trouve dans la plage
  If Not Intersect(Target, Range("G9:G500")) Is Nothing Then
    ' Si la valeur est égale à 0
    If Target.Value = 0 Then Beep
  End If
  ' Ou si les valeurs dans la colonne G sont des formules
  ' et que l'on modifie d'autres colonnes
  If Range("G" & Target.Row) = 0 Then Beep
End Sub

Edit : oups, salut papou-net sur ce coup là c'est moi qui suis en à la bourre 🙂

A+

 

Dernière modification par un modérateur: 2 Mai 2012

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 2 Mai 2012

• #5

Re : Code

Re...

BrunoM45 à dit:

Salut CrazySoprano et bienvenue sur ce forum 😉
Hello mister Roger2327

Si je puis me permettre, correction du code

Code:

Private Sub Worksheet_Change(ByVal Cible As Range)
  ' Si la cellule modifiée se trouve dans la plage
  If Not Intersect(Target, Range("G9:G500")) Is Nothing Then
    ' Si la valeur est égale à 0
    If Target.Value = 0 Then Beep
  End If
  ' Ou si les valeurs dans la colonne G sont des formules
  ' et que l'on modifie d'autres colonnes
  If Range("G" & Target.Row) = 0 Then Beep
End Sub

Edit : oups, salut papou-net sur ce coup là c'est moi qui suis en à la bourre 🙂

A+

Cliquez pour agrandir...

Excellente correction... ...qui bloque sur

Code:

  If Not Intersect(Target, Range("G9:G500")) Is Nothing Then

ROGER2327
#5844

Vendredi 13 Palotin 139 (Esquive de Saint Léonard da V, illusioniste - fête Suprême Quarte)
13 Floréal An CCXX, 7,1399h - bâton-d'or
2012-W18-3T17:08:09Z

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 2 Mai 2012

• #6

Re : Code

ROGER2327 à dit:

Re...
Excellente correction... ...qui bloque sur

Code:

  If Not Intersect(Target, Range("G9:G500")) Is Nothing Then

Cliquez pour agrandir...

Ca m'apprendra de vouloir repartir sur les idées des autres 🙁

Merci de l'avoir indiqué roger 😉
code corrigé

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 2 Mai 2012

• #7

Re : Code

Suite...

Vous êtes pardonné, cher Monsieur BrunoM45.

Plus sérieusement, et en espérant avoir cette fois-ci bien lu la question :​

VB:

Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Plg As Range, Cel As Range
    With Range("$G$9:$G$500")
    If Not Intersect(Cible, .Cells) Is Nothing Then
        If Not IsEmpty(Cible) And Cible.Value = 0 Then Beep
    ElseIf Not Intersect(Cible, .Precedents) Is Nothing Then
        Set Plg = Intersect(Cible.Dependents, .Cells)
        If Not Plg Is Nothing Then
            For Each Cel In Plg.Cells
                If Not IsEmpty(Cel) And Cel.Value = 0 Then Beep
            Next
        End If
    End If
    End With
End Sub

ROGER2327
#5845

Vendredi 13 Palotin 139 (Esquive de Saint Léonard da V, illusioniste - fête Suprême Quarte)
13 Floréal An CCXX, 7,2788h - bâton-d'or
2012-W18-3T17:28:09Z

 

Vote positif 0 Vote négatif

C

CrazySoprano

Guest

• 4 Mai 2012

• #8

Re : Code

Heuu Salut Le forum. Merci pour vos différentes reponses je les essaies une à une.
ROGER2327 Le code ne marche pas. Le déboguer me dit" Next sans For" et pointe sur le next vers la fin. Mrci

 

Vote positif 0 Vote négatif

C

CrazySoprano

Guest

• 4 Mai 2012

• #9

Re : Code

Sil vous plait Voila le Fichier en question joint a ce message. G8= e8-f8
G9 = g8+(e9-f9) ainsi de suite pour les autres colonnes du stock. Essayez de voir une formule de vba ki fonctionne correctement pour moi. Merci le Forum

 

Pièces jointes

• Stock_Produit.xlsm

  24.4 KB · Affichages: 30
• Stock_Produit.xlsm

  24.4 KB · Affichages: 34
• Stock_Produit.xlsm

  24.4 KB · Affichages: 41

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 4 Mai 2012

• #10

Re : Code

Salut

Ah tu as voulu utilisé le code de Roger2327 ... et bien vois avec lui 😛😱

Mon code modifié, marche très bien et est moins complexe à lire, mais bon ...

A+

 

Vote positif 0 Vote négatif

C

CrazySoprano

Guest

• 4 Mai 2012

• #11

Re : Code

Naaaaaa BrunoM45 j'ai essayé tous vos codes ques vous avez postez mais rien ne marche. je m y connais po trop bien en vba excel.
Est ce que vous pouvez me traduire ce code dans ce langage vba????

i=(une cellule de la plage allant de 9 à 45)
pour i = 1 to 48 faire
si valeur=0 alors
msgbox "Le stock a atteint 0",vbinformation,"Attention" (Et mem si G10=0 et G11 = 1200 continuer le traiment sans avoir une alerte encore)
sinon
continuer le traitement
finsi
finpour

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 4 Mai 2012

• #12

Re : Code

Re,

Avec ce simple code

Code:

Private Sub Worksheet_Change(ByVal Target As Range)  ' Ou si les valeurs dans la colonne G sont des formules
  ' et que l'on modifie d'autres colonnes
  If Range("G" & Target.Row) = 0 Then MsgBox "beep"
End Sub

Dans le fichier joint, si tu saisis 9 en sortie en cellule F10, tu dois voir le message 😱😛
Puisque ta valeur dans la colonne "G" de la ligne est égale à 0

A+

 

Pièces jointes

• Stock_Produit.xlsm

  23 KB · Affichages: 38
• Stock_Produit.xlsm

  23 KB · Affichages: 40
• Stock_Produit.xlsm

  23 KB · Affichages: 41

Vote positif 0 Vote négatif

C

CrazySoprano

Guest

• 4 Mai 2012

• #13

Re : Code

Oh Oui BRUNOM45 Tu viens de me rendre moins bete lOoOOl avec ton code xa marche parfaitement. Moins long et efficace. Merci Enormement.

 

Vote positif 0 Vote négatif

C

CrazySoprano

Guest

• 4 Mai 2012

• #14

Re : Code

Last Thing BrunoM45 Please. Comment faire pour que ce code s'exécute à chaque réouverture du fichier???? Du genre si je ferme et que j'ouvre le fichier le code disparait.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 4 Mai 2012

• #15

Re : Code

Re,

Oh Oui BRUNOM45 Tu viens de me rendre moins bete lOoOOl avec ton code xa marche parfaitement.​

Cliquez pour agrandir...

​

Tu vois quand tu veux être gentil avec moi, tu PEUX le faire 😱

Pour ton second problème, il faut enregistrer ton fichier avec l'extension ".xlsm"
Le type de fichier est : Classeur Excel (prenant en charge les macros)(*.xlsm)

A+

 

Vote positif 0 Vote négatif