Discussion :

[toctoc]

Bonjour,

Comment peut on faire ?
1) selon la selection de référence dans userform qu'il affiche les désignation et quantité et ensuite soit on peut modifier la quantité ou désignation pour qu'il enregistre de nouveau dans la feuille du produit.

Pour l'instant, seulement le bouton modifier existe par la suite j'aimerai inclure le bouton ajouter nouveau produit .

Merci d'avance pour l'aide.

[EngueEngue]

Ton classeur ne veut pas s'ouvrir.

[toctoc]

C'est peut être le classeur est masquer.
je remets encore un autre fichier.
et par la même occasion, si qqu peut aussi m'aider à trouver le moyen de faire l'impression mais en permettant de choisir de différents imprimante.

Merci d'avance pour l'aide

[Invité]

bonjour,
je ne comprends pas nous avons vue la partie ajouter quand tu voulais éviter le doublons.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Private Sub CheckDoublon_Click()
 
Dim emptyRow As Long
Dim suite As Long
Dim MyRange As Range
Dim Init As Boolean
'Make Sheet3 Active
Sheets(2).Activate
Dim L As Long
Set MyRange = Sheets(2).UsedRange
For L = 2 To MyRange.Rows.Count
    Highlander Init, MyRange(L, 1)
Next
'Determine EmptyRow
 
If Highlander(Init, TextBox1.Value) = False Then
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
 
'Export Data to worksheet
Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
  Else
     MsgBox "Le N° " & TextBox1.Value & " exite déjà", vbExclamation
End If
If MsgBox("voulez-vous saisir un autre produit ?", vbYesNo + vbQuestion)= vbYes then
Sheets(2).Activate
Else
Unload UserForm1
End If
 
End Sub
 
Private Sub Fermer_Click()
Unload UserForm1
End Sub
 
Function Highlander(Init As Boolean, ParamArray Plage()) As Boolean
'..................................................
'La méthode Highlander, il ne peut en rester qu'un.
'Retourne True si doublon.
'..................................................
 
Static CollectDoublon As Collection
Dim T As String
Dim PlageIndex As Long
Dim myPlage As Range
Dim Col As Integer
Dim Tableau
If Init = False Then
Init = True
   Set CollectDoublon = Nothing
   Set CollectDoublon = New Collection
End If
 
 
T = "T"
For PlageIndex = 0 To UBound(Plage)
If TypeName(Plage(PlageIndex)) = "Range" Then
       Set myPlage = Plage(PlageIndex)
 
       For Col = 1 To myPlage.Columns.Count
        T = T & "_" & Trim("" & myPlage(1, Col))
       Next
    Else
        If TypeName(Plage(PlageIndex)) = "Variant()" Then
           Tableau = Plage(PlageIndex)
        Else
            If TypeName(Plage(PlageIndex)) Like "*()" Then
                Tableau = Plage(PlageIndex)
            Else
                Tableau = Split(Plage(PlageIndex) & ";", ";")
            End If
        End If
         For Col = 0 To UBound(Tableau)
         If Trim("" & Tableau(Col)) <> "" Then T = T & "_" & Trim("" & Tableau(Col))
         Next
    End If
Next
On Error Resume Next
CollectDoublon.Add T, T
If Err <> 0 Then Highlander = True
On Error GoTo 0
End Function

de plus, tu mets les [DESIGNATION] dans Référence?

Code :

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

1
2
3
4
For Each c In Range("B2", Range("B2").End(xlDown).Address)
 'on ajoute les items qui se trouvent déjà dans la liste en colonne A
ComboBox1.AddItem c
Next

[toctoc]

Bonjour,
Oui, c'est juste, il y a déjà la fonction ajouter avec fonctionDoublon. Un grand merci à vous, en fait j'ai essayé d'assembler un peu idée que je pense réaliser. je vais à présent avancer avec toutes vos précieuses réponses et j'espère arriver à la fin.

Milles mercis........

[Invité]

regarde le fichier que j'ai mis en pièce jointe il gère les modifications.

[toctoc]

Bonjour,
Avez-vous une idée comment je peux faire pour l'impression que le fichier vient automatiquement imprimer en fichier PDF pour pouvoir envoyer par email en attachement au fournisseur. Pour l'instant j'ai mis ceci, mais lors je clique sur annuler, il y a une impression qui part vers l'imprimante par défaut.

Code :

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

1
2
3
4
5
6
7
8
9
Sub imprim()
'
' imprim Macro
'
'
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
End Sub

Milles mercis........