Discussion :

[ilyes.sferi]

Bjrs tt le monde!
Je suis debutant en excel VBA!
veillez m'aider SVP!
Je viens de developer une petite aaplication de gestion parc machines à coudre:
l'application VBA comporte:
login
Menue principal
recherché des machines selon ancienne réf interne, nouvelle réf interne et numéro de série fabriquant
ajout de nouvelle machines
Soumission des machine.
le classeur comporte 7 feuilles:
Machines, ST, SZ, TUNICO, FACTORY et BELGIQUE
la recherché et l'ajout s'effectue sur la feuille Machines

---

Fichiers joints dans les discussions

---

[SfJ5Rpw8]

Bonjour,

il vas falloir être plus précis sur l'organisation des données et sur le point ou tu bloque ...

[ilyes.sferi]

j'ai bcp de problémes!
je veux les traiter un par un
on commence par le premier:
la fenetre d'ajout machines: textbox 18, 19, 20 qui controle les colonnes A, B, C de la feuille Machine
je veus faire de telle sorte: lorsque je saisie une valeur existante il me dit qu'elle existe si non il me demande si je veux ajouter cette machine ou non!
le valeur saisie peut contenir des chiffre ou des lettres ou les deux en mm temps!
merci d'avance!

Pour bien préciser ma demande concernant l'ajout d'une machine:
exemple: une Ancienne réf interne n'existe pas dans mon tableau lorsque je veux l'ajouter il me dit anciènne réf interne existante en analysan le pb j'ai bien compris qu'il cherche just le chiffre 6 ==>si il trouve le chiffre 6 dans n'importe quelle réf (156 ou 160 etc...)il me dit que le nombre 6 taper dans la zone de texte existe.
et ça fait de mm pour nouvelle réf internet et numéro de série fabriquant.
j'espére que l'explication est bien Claire et voila le code:

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
Option Explicit
Function IsRefExist(rng As Range, ref As String) As Boolean
 IsRefExist = Application.CountIf(rng, ref) = 0
End Function
 
Private Sub CommandButton8_Click()
Sheets("Machines").Activate
 
Dim derligne As Integer
    If MsgBox("Voulez-vous ajouter cette machine?", vbYesNo, "confirmation") = vbYes Then
    derligne = Sheets("Machines").Range("A10000").End(xlUp).Row + 2
        Cells(derligne, 1) = TextBox1.Value
        Cells(derligne, 2) = TextBox2.Value
        Cells(derligne, 3) = TextBox3.Value
        Cells(derligne, 4) = TextBox4.Value
        Cells(derligne, 5) = TextBox5.Value
        Cells(derligne, 6) = TextBox6.Value
        Cells(derligne, 7) = TextBox7.Value
        Cells(derligne, 9) = TextBox8.Value
        Cells(derligne, 10) = TextBox9.Value
        Cells(derligne, 11) = TextBox10.Value
        Cells(derligne, 12) = TextBox11.Value
        Cells(derligne, 13) = TextBox12.Value
        Cells(derligne, 14) = TextBox13.Value
        Cells(derligne, 15) = TextBox15.Value
        Cells(derligne, 16) = TextBox16.Value
      End If
    Unload Me
    AjouterUneOuDesmachines.Show
End Sub
Private Sub CommandButton7_Click()      'Vider les champs d'ajout de machine'
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
    TextBox5.Value = ""
    TextBox6.Value = ""
    TextBox7.Value = ""
    TextBox8.Value = ""
    TextBox9.Value = ""
    TextBox10.Value = ""
    TextBox11.Value = ""
    TextBox12.Value = ""
    TextBox13.Value = ""
    TextBox14.Value = ""
    TextBox15.Value = ""
    TextBox16.Value = ""
End Sub
Private Sub CommandButton11_Click()
    Unload AjouterUneOuDesmachines
    MenuPrincipale.Show
End Sub
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
 Dim rg As Range
 If TextBox1.Text = "" Then Exit Sub
 Set rg = Sheets("Machines").Range("A:A").Find(TextBox1.Text)
 If Not rg Is Nothing Then
 MsgBox "Ancienne Réf Interne existante déja"
    TextBox1 = ""
 End If
 End Sub
Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim rg As Range
 If TextBox2.Text = "" Then Exit Sub
 Set rg = Sheets("Machines").Range("B:B").Find(TextBox2.Text)
 If Not rg Is Nothing Then
  MsgBox "Nouvelle Réf Interne Existe Déjà"
  TextBox2 = ""
 End If
End Sub
Private Sub TextBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim rg As Range
 If TextBox3.Text = "" Then Exit Sub
 Set rg = Sheets("Machines").Range("C:C").Find(TextBox3.Text)
 If Not rg Is Nothing Then
  MsgBox "Numéro de série fabriquant Existe Déjà"
  TextBox3 = ""
 End If
 End Sub

[SfJ5Rpw8]

Bonjour,

find effectue la même recherche que lorsque tu utilise la fonction rechercher d'Excel ... la fonction rechercher d'excel à une case à option "mot entier" .. lance un enregistrement de macro et effectue une recherche en cochant cette case le code généré te permettra de trouver le paramètre supplémentaire à passer à ton find ..

[ilyes.sferi]

Merci bien pour votre réponse mais j'ai essayé pas mal de combinaisons aucune résultat!
Je suis Presque nulle en vba! Svp j'aime avoir une proposition valide
je viens de poster le code de l'ajout des machines!

[SfJ5Rpw8]

et qu'as tu fait ?

Sais tu effectuer la recherche dans Excel ?