Gestion parc machines

Version imprimable

08/10/2015, 14h43
ilyes.sferi

Gestion parc machines

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
08/10/2015, 14h46
SfJ5Rpw8

Bonjour,

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

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:

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

09/10/2015, 11h24
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 ..
09/10/2015, 18h25
ilyes.sferi

Mecri! mais!!

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!
09/10/2015, 18h29
SfJ5Rpw8

et qu'as tu fait ?

Sais tu effectuer la recherche dans Excel ?
10/10/2015, 09h29
Theze
Bonjour,

Dans le code que tu as posté, tu as la fonction "IsRefExist" (que tu n'utilise à priori pas) qui te permet de savoir si une référence existe ou non, cette fonction utilise "CountIf" (NB.SI) et si ton critère ne contient pas de caractères génériques, elle te renverra Vrai ou Faux avec précision. je l'ai juste modifiée pour qu'elle retourne Vrai si la référence existe et faux dans le cas contraire. Find dans ce cas n'est pas nécessaire :
Code:

1 2 3 4 5 6 Function IsRefExist(rng As Range, ref As String) As Boolean IsRefExist = Application.CountIf(rng, ref) > 0 End Function
11/10/2015, 00h19
ilyes.sferi

bbil je sais bien faire une recherche excel !

Theze , j'ai bien essayer l'option que vous avez modifier mais ça n'as rien changer!

Je m'explique une autre fois:
exemple: la valeur 6 n'existe pas dans la colonne A, lorsque je la tape dans le TextBox1 et je clique sur ajouter il me dit que "l'ancienne Réf interne existe" donc je comprend qu'il est entrain de chercher 6 mm si elle existe dans un autre nombre comme 106 ou 156!
j’espère que c bien claire!

Bonjour,

Je dois être nase car je ne vois pas où est le problème ???
Si tu demandes une recherche exacte (xlWhole), Find ne retournera pas une cellule ayant en partie le texte entré ! Il en est de même pour la fonction CountIf !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub CommandButton1_Click()
 
    Dim Rg As Range
 
    'pour une recherche exacte
    Set Rg = Sheets("Machines").Range("A:A").Find(TextBox1.Text, , xlValues, xlWhole)
 
    'pour une recherche partielle
    Set Rg = Sheets("Machines").Range("A:A").Find(TextBox1.Text, , xlValues, xlPart)
 
    If Not Rg Is Nothing Then MsgBox "Existe !"
 
    MsgBox IsRefExist(Range("A:A"), TextBox1.Text) 'Vrai ou Faux !
 
End Sub
 
Function IsRefExist(rng As Range, ref As String) As Boolean
 
    IsRefExist = Application.CountIf(rng, ref) > 0
 
End Function

11/10/2015, 09h01
SfJ5Rpw8

Citation:

Envoyé par ilyes.sferi

bbil je sais bien faire une recherche excel !

bonjour,

et l'enregistreur de Macro tu sais t'en servir ?

si oui, en appliquant la méthode dont je te parle plus haut .. tu aurais déjà du trouver le paramètre de la fonction find à modifier pour effectuer une recherche sur des mots entiers ... These t'as donné directement la solution ..

Citation:
Envoyé par Theze
Bonjour,

Je dois être nase car je ne vois pas où est le problème ???
Si tu demandes une recherche exacte (xlWhole), Find ne retournera pas une cellule ayant en partie le texte entré ! Il en est de même pour la fonction CountIf !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub CommandButton1_Click() Dim Rg As Range 'pour une recherche exacte Set Rg = Sheets("Machines").Range("A:A").Find(TextBox1.Text, , xlValues, xlWhole) 'pour une recherche partielle Set Rg = Sheets("Machines").Range("A:A").Find(TextBox1.Text, , xlValues, xlPart) If Not Rg Is Nothing Then MsgBox "Existe !" MsgBox IsRefExist(Range("A:A"), TextBox1.Text) 'Vrai ou Faux ! End Sub Function IsRefExist(rng As Range, ref As String) As Boolean IsRefExist = Application.CountIf(rng, ref) > 0 End Function
merciiiiiiiiiiiiiiiiiiii vorte solution est simple comme boujours, vous etes vraiment un vrais expert, j'ai just adapter cette solution à mon TextBox