condition si vba

JNP

XLDnaute Barbatruc

• 16 Octobre 2009

• #2

Re : condition si vba

Bonjour Gao ,
Avec ton code barre en A2

Code:

If Left(Range("A2"), 5) = "12345" Then Range("A1") = -1

mais attention, en principe, un code barre utilise des polices particulières, et "12345" risque d'être "FG%HJ%FG"...
Bon courage

 

Vote positif 0 Vote négatif

gao77610

XLDnaute Nouveau

• 16 Octobre 2009

• #3

Re : condition si vba

Bonjour

Merci pour la réponse.

Pour le reste je me débrouillerai, je l'adapterai à ma sauce

Merci encore

 

Vote positif 0 Vote négatif

gao77610

XLDnaute Nouveau

• 16 Octobre 2009

• #4

Re : condition si vba

Re a tous

Voici mon code :

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

La ca selectionne la cellule B2, mais je desirerais 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

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 16 Octobre 2009

• #5

Re : condition si vba

Re ,
Sous réserve que ta douchette sélectionne la cellule avec le code barre

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Left(ActiveCell, 7) = "3661384" Then ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(0, -1).Value - 1
End Sub

dans le module de la feuille devrait fonctionner.
Bon courage

 

Vote positif 0 Vote négatif