condition si vba

[gao77610]

Bonjour à tous

Je viens vers vous pour un petit problème de condition.

Voila mon prob : Si cellule active commence par " 12345 ", alors cellule A1 -1 par exemple
Merci pour vos suggessions

 

[JNP]

Re : condition si vba

Bonjour Gao 🙂,
Avec ton code barre en A2

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 😎

 

[gao77610]

Re : condition si vba

Bonjour

Merci pour la réponse.

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

Merci encore

 

[gao77610]

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

 

[JNP]

Re : condition si vba

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

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 😎