Incrémenter une liste si

Lone-wolf

XLDnaute Barbatruc

• 14 Septembre 2018

• #2

Hello Dy ! 🙂😉

@HelloDy : ton fichier en retour. Inscrit une référence et ensuite tape sur Enter (mais pas trop fort quand même LOL 😀)

 

Pièces jointes

• HelloDy - Liste des références.xlsm

  16.9 KB · Affichages: 17

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Septembre 2018

• #3

Bonsoir HelloDy, Lone-wolf,

Bah la dame elle a dit en A2 😎

A+

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 14 Septembre 2018

• #4

Bonsoir Gerard 🙂

Voilà c'est rectifié.

@HelloDy: prends ce fichier corrigé. Pour la recherche, inscrit une référence, ensuite utilise TAB du clavier pour te déplacer en colonne D.

Pour une novelle référence, inscrit-la et tape sur ENTER.

 

Pièces jointes

• HelloDy - Liste des références.xlsm

  17.5 KB · Affichages: 20

Dernière édition: 14 Septembre 2018

Vote positif 0 Vote négatif

H

HelloDy

Guest

• 15 Septembre 2018

• #5

Hello Lone-wolf, hello job75,

Merci la 2ème version fonctionne bien. Juste histoire d'être chiante, y'a pas du tout moyen qu'une simple pression sur entrée suffise, plutôt que TAB + entrée ? Peut-être j'en demande trop 😛

Bonne soirée !

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 15 Septembre 2018

• #6

Bonjour HelloDy, Gerard, le Forum 🙂

y'a pas du tout moyen qu'une simple pression sur entrée suffise

Cliquez pour agrandir...

Non, TAB sert juste pour la recherche et ENTER pour une nouvelle référence.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Septembre 2018

• #7

Bonjour HelloDy, Lone-wolf, le forum,

Je ne comprends pas Lone-wolf que tu utilises une macro SelectionChange !

Le code qui va bien :

Code:

Private Sub Worksheet_Change(ByVal R As Range)
If Intersect(R, [C1]) Is Nothing Or CStr([C1]) = "" Then Exit Sub
[C1].Select
If Application.CountIf([A:A], [C1]) Then _
    MsgBox "Cette référence existe déjà !", 48: [C1] = "": Exit Sub
[A2].Insert xlDown, CopyOrigin:=xlFormatFromRightOrBelow
[A2] = [C1]
End Sub

Bonne journée.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 15 Septembre 2018

• #8

Re Gerard

@job75 : c'est que je n'arrivais pas à avoir le résultat demandé.

 

Vote positif 0 Vote négatif

H

HelloDy

Guest

• 15 Septembre 2018

• #9

Bonjour job75,

Ca marche parfaitement, merci beaucoup 🙂

Bonne journée.

 

Vote positif 0 Vote négatif