XL 2010 fichiers sans doublons.

fanch55

XLDnaute Barbatruc

• 14 Novembre 2020

• #2

Bonsoir,
Je pense que tous les intervenants attendent d'avoir plus de détail .
C'est bien d'exposer ce qu'on ne veut pas, mais quoi faire en ce cas : on élimine tous les doublons ou les occurrences suivantes ?

 

Vote positif 0 Vote négatif

M

MAN

XLDnaute Occasionnel

• 16 Novembre 2020

• #3

Bonjour le forum.
dans le fichier, si l'on insere une charge qui existe dejà, on doit obtenir un refus.
la colonne S ne doit en aucun cas avoir deux fois un meme intitulé
merci encore.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Novembre 2020

• #4

Bonjour MAN, fanch55,

Modifiez ou validez une cellule quelconque ce qui lance la macro :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
ListObjects(1).Range.RemoveDuplicates 1
Application.EnableEvents = True
End Sub

Et si le ménage n'a pas encore été fait :

VB:

Sub Bouton1_Cliquer()
    ActiveCell = ActiveCell.Formula 'lance la Worksheet_Change
    UserForm1.Show
End Sub

A+

 

Pièces jointes

• MANN V7(1).xlsm

  34.5 KB · Affichages: 6

Vote positif 0 Vote négatif

M

MAN

XLDnaute Occasionnel

• 16 Novembre 2020

• #5

merci. encore
je me retrouve devant un autre problème.
quand un libellé était déjà renseigné, et que l'on décide de modifier sa valeur, la procédure ci dessous Bogue.
'-------procédure pour la saisie semi automatique de la combobox1-------
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' If ComboBox1.Text <> "" And TextBox1.Text <> "" Then
Me.ListBox1.List(L, 1) = y
Me.TextBox1 = ""
Me.ComboBox1 = ""
Me.ComboBox1.SetFocus
' End If
End Sub
Précisement la ligne de code "" Me.ListBox1.List(L, 1) = y "" que faire.

 

Pièces jointes

• MANN V7 (A).xlsm

  33.3 KB · Affichages: 8

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Novembre 2020

• #6

Une discussion, une question... Mais bon :

VB:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If L >= ListBox1.ListCount Then Exit Sub

 

Vote positif 0 Vote négatif

M

MAN

XLDnaute Occasionnel

• 17 Novembre 2020

• #7

Bonjour le forum.
Bonjour Job 75.
je ne comprends pas bien j'ai essayé. àa ne donne pas. aides moi.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Novembre 2020

• #8

Ma réponse est pourtant claire et ça veut dire quoi "àa ne donne pas" ???

Ma solution évite le bug, un point c'est tout, le reste c'est à vous de savoir ce que vous voulez.

 

Vote positif 0 Vote négatif

M

MAN

XLDnaute Occasionnel

• 17 Novembre 2020

• #9

j'ai remplacé tout le code
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' If ComboBox1.Text <> "" And TextBox1.Text <> "" Then
Me.ListBox1.List(L, 1) = y
Me.TextBox1 = ""
Me.ComboBox1 = ""
Me.ComboBox1.SetFocus
' End If
End Sub
par le tiens

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If L >= ListBox1.ListCount Then Exit Sub
end sub
c'est a ce niveau que je me suis planté.
que dois je vraiment faire. je ne suis qu'un débutant.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Novembre 2020

• #10

C'est pas vrai, même un débutant comprend ça :

VB:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If L >= ListBox1.ListCount Then Exit Sub
    ListBox1.List(L, 1) = y
    TextBox1 = ""
    ComboBox1 = ""
    ComboBox1.SetFocus
End Sub

 

Vote positif 0 Vote négatif

M

MAN

XLDnaute Occasionnel

• 17 Novembre 2020

• #11

MERCI; j'ai pris le bout de code ci dessus. je l'ai mis.
j'ai par exemple Cabri 2 000. je veux le transformer en Cabri 5 000, l'opération ne s'effectue pas.
je bloque encore.

 

Vote positif 0 Vote négatif

M

MAN

XLDnaute Occasionnel

• 17 Novembre 2020

• #12

excuses. voici le fichier modifié avec le nouveau code.

 

Pièces jointes

• MANN V7 (NEW).xlsm

  33.6 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Novembre 2020

• #13

Dans le fichier joint j'ai supprimé les macros TextBox1_Change et TextBox1_Exit.

Et créé cette macro :

VB:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ListBox1.List(ListBox1.ListIndex, 1) = TextBox1
    TextBox1.SetFocus
    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(TextBox1)
End Sub

Entrer ou modifier le montant dans la TextBox et faire un double-clic dans la ListBox.

 

Pièces jointes

• MANN V7 (NEW)(1).xlsm

  34.3 KB · Affichages: 5

Vote positif 0 Vote négatif

M

MAN

XLDnaute Occasionnel

• 17 Novembre 2020

• #14

merci. c'est meme au delà de mes attentes.

 

Vote positif 0 Vote négatif

M

MAN

XLDnaute Occasionnel

• 17 Novembre 2020

• #15

Encore un soucis. je souhaiterai si possible que les deux méthodes fonctionnent. c'est a dire
1-faire la saisie semi automatique et insérer la valeur
2- taper sur ENTREE pour alimenter la list box. (cette partie a été suprimée par la nouvelle procédure)
3-pouvoir modifier a souhait les valeurs si on se trompe en resaisissant la combobox et en inscrivant le montant.
merci d'avance

 

Pièces jointes

• MANN V7 (NEW)(1).xlsm

  34 KB · Affichages: 1

Vote positif 0 Vote négatif