Discussion :

[chartreuse]

Bonjour,

dans la case A1 je scanne un code barre qui s'affiche et çà tabule dans la case A2.
Je voudrais que dans B1 s'affiche 1.
Je voudrais faire çà sur plusieurs lignes.
j'ai essayé ce code qui me compte pas 1

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Count > 1 Then Exit Sub
 
    If Not Intersect(Target, Range("A1")) Is Nothing Then
       Range("B1") = Range("B1") + Target
    End If
 
End Sub

Comment faire

[ARTURO83]

Bonjour,

Si vous voulez mettre 1 dans la cellule à côté:

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Address = "$A$1" Then Target.Offset(0, 1).Value = 1
End Sub

Si vous voulez mettre incrémenter de 1 la cellule à côté:

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Address = "$A$1" Then Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + 1
End Sub

Cdlt

[chartreuse]

Cà fonctionne que pour la cellule A1.
Comment faire pour les autres cellules B1, C1, D1... ?

[ARTURO83]

Je suppose que vous voulez dire A1, A2, A3 etc à la place de A1, B1, C1, parce que dans ce cas et d'après votre demande initiale, vous écrasez la cellule d'à côté à chaque fois.

Si les cellules à tester vont de A1 à A10, e, reprenant les 2 exemples précédents:

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Target, Range("A1:A10")) Then Target.Offset(0, 1).Value = 1
    End If
End Sub

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 Target.Count = 1 Then
        If Not Intersect(Target, Range("A1:A10")) Then Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + 1
    End If
End Sub

dlt

[chartreuse]

J'ai ce message d'erreur

[Patrice740]

Bonjour,

Ajoutes Is Nothing entre la parenthèse et le Then

[chartreuse]

Top çà marche merci Patrice740 et ARTURO83.
J'ai une autre demande alors je post à la suite sinon je crée un nouveau post.
J'aimerai que le nombre que je saisis sur l'onglet 1 passe en rouge s'il existe dans l'onglet 2.
Par exemple dans l'onglet 2 je saisis en A1 : 123 et A2 : 456.
Dans l'onglet 1 quand je scanne le code barre 123 dans A1 et 456 en A2 je voudrais que ces nombres passent en rouge.
Je pensais à la fonction si et vlookup ?

[Pierre Fauconnier]

Salut.

Sur base des deux tableaux structurés suivants, on peut utiliser EQUIV avec un SIERREUR, parmi d'autres possibilités.

1. Créer une formule nommée qui pointe vers la colonne du tableau de ta feuille 2 (dans mon exemple, le tableau t_Produits) pour permettre l'extension de la plage aux nouvelles données que tu saisirais dans ce tableau;
2. Utiliser SIERREUR(EQUIV(...)) dans une mise en forme conditionnelle formulée que l'on applique sur la colonne du tableau de la feuille 1, t_Scan.

J'avais fait cette vidéo à l'époque qui expliquait comment mettre cela en place.

[chartreuse]

Bonjour,
est-il possible de faire la même chose mais sans liste déroulante ?
La couleur rouge c'est juste une indication. Quand les numéros sont équivalents je l'ai efface.
Merci

[Pierre Fauconnier]

Dans ce que j'ai expliqué, il n'y a pas de liste déroulante. C'est le principe de la MFC (Mise en Forme Conditionnelle) qu'il faut comprendre. Ce principe s'appuie sur des tableaux structurés et sur une "plage nommée" car la MFC n'accepte pas les références structurées.

Que n'arrives-tu pas à mettre en place?

[chartreuse]

J'ai mis cette formule sur mon premier onglet dans la MFC

Code :

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

=SIERREUR(EQUIV(A2;Tableau3;0)>0;FAUX)

J'ai ce message d'erreur

[Pierre Fauconnier]

Comme je l'ai dit, les références structurées ne peuvent pas être utilisées dans la MFC. Il faut passer par une "plage nommée" qui, elle, utilise la référence structurée. Tu baseras alors ta mfc sur cette plage nommée et pas tu la référence du tableau.

[chartreuse]

Bonjour
je réouvre le sujet.
Dans la case A2 je scanne un code barre qui s'affiche et çà tabule dans la case B2 en affichant 1.
Cà fonctionne mais comment faire pour que çà tabule automatquement à la cellule A3 ?
Voici le code

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Target, Range("A02:A250")) Is Nothing Then Target.Offset(0, 1).Value = 1
    End If
End Sub

[Pierre Fauconnier]

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Target, Range("A02:A250")) Is Nothing Then
          Target.Offset(0, 1).Value = 1
          Target(2).Activate
        End If
    End If
End Sub

[ARTURO83]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Count = 1 Then
        If Not Intersect(Target, Range("A02:A250")) Is Nothing Then Target.Offset(1, 0).Value = 1
    End If
    Application.EnableEvents = True
End Sub

Cdlt

[Pierre Fauconnier]

[...]

Perso, je mets toujours une gestion d'erreur avec un Application.EnabledEvents = False. Sans cette précaution, on risque bien de se retrouver sans gestion de l'évènement suite à un arrêt du code après erreur...

Avec ton code, si on valide avec TAB, on part à droite et pas en dessous

[chartreuse]

Merci à Pierre Fauconnier et ARTURO83 pour la réponse rapide

[PrinceCorwin]

Bonjour à tous,

je me permets une petite réflexion.

Pour qu'après le scan du code barre par la douchette le curseur se positionne en dessous et non à droite, il faut paramétrer le lecteur code barre.
Dans les options de scan on peut soit :
- ne rien faire,
- faire une tabulation,
- faire un retour chariot ( touche entrée)
- faire un autre code

Dans ce cas, pas de gestion via macro pour faire un retour chariot.

[Pierre Fauconnier]

[...]

Surtout que si le code d'ajout de 1 en B est le code réellement employé et pas un code de test, on pourrait utiliser une colonne formulée en B dans le cadre d'un tableau structuré...

Je suis curieux de connaître la finalité de tout ceci ^^