Discussion :

[gao77610]

Bonjour à tous

Voici mon code :

Code :

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

If Left(Range("B2"), 7) = "3661384" Then Range("a2").Value = Range("A2").Value - 1

La ca sélectionne la cellule B2, mais je désirerais que cela ce fasse sur la cellule qui est active et que la macro s'exécute automatiquement, car a chaque fois je suis obligé d' exécuter la macro.

Merci par avance pour votre patience

[Pierre Fauconnier]

Bonjour

Il faut peut-être préciser la plage pour laquelle tu veux que la macro soit active, sinon, il va faire cela pour chaque cellule de la feuille, et il faut au moins déterminer que tu es au moins en colonne B, puisque tu tentes de modifier la cellule à gauche de celle qui est modifiée.

Si j'ai bien compris l'énoncé , tu souhaites décrémenter la cellule à gauche d'une cellule dans laquelle on saisit 3661384

Voici un code qui fait cela, pour une cellule de B1:B10. A toi d'adapter la plage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin
 
    If Not Intersect(Target, Range("B1:B10")) Is Nothing And Target.Cells.Count = 1 Then
        If Target.Value = 3661384 Then
            Application.EnableEvents = False
            Target(1, 0).Value = Target(1, 0).Value - 1
        End If
    End If
 
Fin:
    Application.EnableEvents = True
End Sub

[mercatog]

ta question reste vague, une proposition à la devinette
sur changement d'une cellule de la colonne B, la cellule de la colonne A est décrémenté de 1 si la cellule B="3661384*"

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Intersect(Target, Columns("B:B")) Is Nothing Then Exit Sub
If Left(Target, 7) = "3661384" Then Target.Offset(0, -1).Value = Target.Offset(0, -1).Value - 1
End Sub

Edit, Désolé pas rafraichi

[gao77610]

Bonsoir et merci pour les réponses

J'ai du mal m'exprimer, ce que je cherche c'est quand je scanne avec une douchette code barre que dans la cellule B2 le code commence par " 3661384 ", alors cellule A2 -1 par exemple, j'ai fait ça comme code

Code :

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

1
2
3
Sub Macro1()
If Left(Range("B2"), 7) = "3661384" Then Range("a2").Value = Range("a2").Value - 1 
End Sub

ca fonctionne, mais je dois activer la macro à chaque fois et cela active une autre cellule , logique, si je scanne toujours dans la colonne B un autre code " 1234567" et bien -1 dans A4 par exemple

Merci pour votre bon vouloir, car je ne suis pas tres doué en VBA

[mercatog]

la logique des codes cités ci haut:

si la valeur d'une cellule se trouvant sur la colonne B change, alors, la cellule juste à côté de la colonne A est décrémentée de 1 (si la nouvelle valeur de B commence par 3661384)

les codes sont écrits dans l'évènement de la feuille Worksheet_Change

[Pierre Fauconnier]

Merci pour votre bon vouloir, car je ne suis pas tres doué en VBA

Heu, avec une pointe d'ironie amicale, crois-le bien, mais on est vendredi soir...

Je trouve que tu n'es pas très doué pour expliquer ce que tu souhaites réaliser...

[gao77610]

merci
J'ai juste modifie car je veux que se soit dans une cellule fixe A2

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Intersect(Target, Columns("B:B")) Is Nothing Then Exit Sub
If Left(Target, 7) = "3661384" Then range("a2").Value = range("a2").Value - 1
End Sub