problème macro 'vérification'

**rider18** · 17/11/2009, 22h29

Salut à tous, j'ai un petit probléme avec mon code.
Ma vérification ne marche pas,il me trouve jamais de référence existance.
Quelq'un pourrait me dire ou est l'erreur?

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
Private Sub ComboBox3_Change()
 
     If ComboBox3 = "" Then Exit Sub
     mot = "00000"
    valeurAdditionee = Mid(TextBox3, 1, InStr(TextBox3, "D") - 1)
    reste = Mid(TextBox3, InStr(TextBox3, "D"))
    valeurAdditionee = Val(valeurAdditionee) + Val(ComboBox3)
    TextBox4 = Left(mot, Len(mot) - Len(valeurAdditionee)) & valeurAdditionee & reste
    'vérification sérial'
  RefDebut = TextBox3.Value
  nbRef = ComboBox3.Value
  Set zoneDesRef = Range("B4:B2000,D4:D2000")
  For Each cellule In zoneDesRef
    For i = 0 To nbRef
        numNouvelleRef = Val(Mid(RefDebut, 1, InStr(TextBox3, "D"))) + i
 
        longNum = Len(numNouvelleRef)
        refATrouver = Left(RefDebut, 1) & Left(mot, Len(mot) - Len(valeurAdditionee)) & valeurAdditionee & reste & numNouvelleRef
        If cellule.Value = refATrouver Then
            trouver = "OUI"
            Exit For
        End If
    Next
    If trouver = "OUI" Then
        Exit For
    End If
Next
 
If trouver = "OUI" Then
    MsgBox ("Une référence existante a été trouvée")
    Unload sérial
End If
End Sub

A+

**rvtoulon** · 18/11/2009, 09h19

Slt, rider18
je suis pas un pro vba mais une chose me trouble en regardant vite fait ton code tu as mis:

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
  If cellule.Value = refATrouver Then
            trouver = "OUI"
            Exit For
        End If
    Next
    If trouver = "OUI" Then
        Exit For
    End If
Next
 
If trouver = "OUI" Then
    MsgBox ("Une référence existante a été trouvée")
    Unload sérial
End If
End Sub

Pourquoi pas Directement dans ta boucle et supprimer le dernier If:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  If cellule.Value = refATrouver Then
            trouver = "OUI"
            MsgBox ("Une référence existante a été trouvée")
            Unload sérial
        'Permet de sortir de la macro     
            Goto fin           
         End If
 
    Next
Next
fin:
End Sub

Ensuite vérifie Comment sont déclarées tes variables?

A+

**CodeFacile** · 18/11/2009, 09h40

Sans aller trop profond dans la compréhension du code , les lignes suivantes devraient être vérifiées:

Code :

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

1
2
3
4
5
 
   If ComboBox3 = "" Then Exit Sub
......./.....
 nbRef = ComboBox3.Value
     For i = 0 To nbRef

quelle est la différence entre ComboBox3 et ComboBox3.Value . Vérifies que l'on ne sort pas systèmatiquement avec le exit sub.

Met un flag pour vérifier la valeur de nbRef

**rider18** · 19/11/2009, 17h32

salut, merci de m'aider. j'ai essayer de fais quelque truc mes ça marche pas!
j'ai pas compris pour le flag?
J'ai mis un fichier.
Je débute en vba.

**rvtoulon** · 20/11/2009, 11h08

Bjr,
en fait si j'ai bien compris tu veux faire une recherche sur la valeur de La textbox 4 ?
Pour le moment c normal que le code ne trouve rien du fait qu'il cherche une valeur qui n'existe pas dans la feuille.
je m'explique:
Tu fais une recherche sur ce s/n: 00233D24193 alors que pour le code le s/n est égale à 000233D24193231 donc forcément il trouve pas. Tout d'abord dans ton code remplace ceci:

Code :

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

1
2
3
 
'ici  valeurAdditionee = 2
valeurAdditionee = Val(valeurAdditionee) + Val(ComboBox3)

par cela :

Code :

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

1
2
3
 
' ici valeurAdditionee = 233 il me semble que c bon
valeurAdditionee = Val(vaInStrleurAdditionee) + Val(ComboBox3)

du coup textbox4 = 00233D24193 comme dans l'exemple.
Si tu veux savoir si cette référence existe dans ta feuille alors voici le code après modifications:

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
 
Private Sub ComboBox3_Change()
 
 If ComboBox3 = "" Then Exit Sub
    mot = "00000"
    vaInStrleurAdditionee = Mid(TextBox3, 1, InStr(TextBox3, "D") - 1)
    reste = Mid(TextBox3, InStr(TextBox3, "D"))
    valeurAdditionee = Val(vaInStrleurAdditionee) + Val(ComboBox3)
    TextBox4 = Left(mot, Len(mot) - Len(valeurAdditionee)) & valeurAdditionee & reste
 
 
  Set zoneDesRef = Range("B4:B2000,D4:D2000")
 
  For Each cellule In zoneDesRef
 
        If cellule.Value = TextBox4.Value Then
            MsgBox ("Une référence existante a été trouvée")
            Exit For
        End If
 
 Next cellule
 
End Sub

Essaye et dis moi si c bon chez moi c ok.
A+

**rider18** · 20/11/2009, 22h02

Merci rvtoulon de m'avoir aider ça marche nickel.

J'aurais une encore une question.
Je voudrais savoir si on peut figer le "D"? En faite quand je tappe le "D" je veut qu'il soit tourjour en majuscule.Parce que si je met le "d" en minuscule le code bloque.

A+

**ucfoutu** · 20/11/2009, 22h07

Boinsoir,

le "D" uniquement ou, plus généralement, toute lettre ?

**rider18** · 20/11/2009, 22h34

Salut ucfoutu .Je voudrais trois lettres le "D" "Y" "H".

**ucfoutu** · 20/11/2009, 22h39

Bon,

je crois que tu ne peux avoir que l'une de ces lettres, le reste étant des chiffres....
On va partir de cette hypothèse-là ====>>>

Code :

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

1
2
3
Private Sub ComboBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Si finalement, tu peux avoir également des lettres en minuscules (autres que celles indiquées) tu dis et j'affine -mais je crois que ce ne sera pas nécessaire -...
Tu dis (réponds vite car je ne vais pas tarder à faire dodo...)

EDIT :
Bon... Morphée m'appelle avec insistance et j'ai les yeux qui commencent à piquer ...
Voilà si, par contre, tu peux avoir en minuscules d'autres lettres (bien que je ne le pense pas) :

Code :

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

1
2
3
4
5
6
Private Sub ComboBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 Select Case Chr(KeyAscii)
   Case "d", "y", "h"
      KeyAscii = Asc(UCase(Chr(KeyAscii)))
 End Select
End Sub

**rider18** · 20/11/2009, 23h23

Merci ucfoutu ça marche

A+

**rider18** · 22/11/2009, 15h34

salut a tous, je revient sur mon premier problème "la vérification".Le code que ma passer rvtoulon vérifie que dans les cellules "B4"et "D4" mais je voudrais que ça vérifie entre.

Explication:"B4"-->00235D24193 "D4" --->00237D24193.Dans la vérification, je veux trouver le 00236D24193.

J'ai essayer de faire un code mais il me trouve toujour une référence existance.
Quelqu'un a une idée?

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
Private Sub ComboBox3_Change()
 
 If ComboBox3 = "" Then Exit Sub
    mot = "00000"
    valeurAdditionee = Val(Mid(TextBox3, 1, InStr(TextBox3, "D") - 1)) + Val(ComboBox3 - 1)
    reste = Mid(TextBox3, InStr(TextBox3, "D"))
    TextBox4 = Left(mot, Len(mot) - Len(valeurAdditionee)) & valeurAdditionee & reste
   'vérification sérial 0000D24193'
  Set zoneDesRef = Range("B4:B2000,D4:D2000")
  For Each cellule In zoneDesRef
  nbRef = ComboBox3.Value
  numNouvelleRef = Val(RefvaInStrleurAdditionee) + i
  longNum = Len(numNouvellRef)
  refATrouver = Left(mot, Len(mot) - Len(valeurAdditionee)) & valeurAdditionee & reste & numNouvellRef & RefvaInStrleurAdditionee
  For i = 0 To nbRef
        If cellule.Value = refATrouver Then
        trouver = "oui"
        Exit For
End If
    Next
       If trouver = "oui" Then
         Exit For
    End If
Next
            MsgBox ("Une référence existante a été trouvée")
 
 
End Sub

**rvtoulon** · 22/11/2009, 17h51

Bjr,
Il me semble que nous avons répondu a ta demande du départ?
Ta nouvelle demande n'était pas précisée....
Bref, Tu fais une recherche de ce s/n: 00236D24193 dans la plage

Code :

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

zoneDesRef = Range("B4:B2000,D4:D2000")

. OK?

Ce s/n n'existe pas dans ta base donc normalement tu ne dois pas avoir de message.
Mais,c'est normal qu'il dise qu'il trouve une référence parce que tu lui demande de le faire car le msgbox est après les IF.

Modifie la première partie du code que je t'ai donné comme tu l'as fait et garde la partie finale à partir du Set zoneDesRef ça doit marcher...

A+

EDIT: A quoi sert trouver ="oui" ? (à mon avis à rien...)
Je repose ma question : Tu veux comparer le contenue de chaque cellule de la plage zoneDesRef avec la valeur de la textbox4? (Je mettrais le nouveau code après...)

**rider18** · 22/11/2009, 21h33

salut, ce que je recherche a faire, c'est quand je met le nombre de pièce avec la combobox3,je veux que ça vérifie les doublons dans 'set zoneDesRef'.
Pour les "oui" j'ai repris un code d'une autre reférence de sérial qui marche et j'ai essayer de faire quelque chose avec.
regarde ce fichier .
A+

**rvtoulon** · 22/11/2009, 23h35

Slt,
avec les modifications que tu as apporté je mettrais ce 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
 
Private Sub ComboBox3_Change()
 
 If ComboBox3 = "" Then Exit Sub
    mot = "00000"
    valeurAdditionee = Val(Mid(TextBox3, 1, InStr(TextBox3, "D") - 1)) + Val(ComboBox3 - 1)
    reste = Mid(TextBox3, InStr(TextBox3, "D"))
    TextBox4 = Left(mot, Len(mot) - Len(valeurAdditionee)) & valeurAdditionee & reste
   'vérification sérial 0000D24193'
  Set zoneDesRef = Range("B4:B2000,D4:D2000")
 
  For Each cellule In zoneDesRef
        If cellule.Value = TextBox4 Then
        MsgBox ("Une référence existante a été trouvée")
        Exit For
        End If
  Next
End Sub

A+

**rider18** · 23/11/2009, 14h08

Merci rvtoulon.Ton code marche bien .
Il faut que je cherche une autre solution pour gérer mes doublons.
A+

problème macro 'vérification'

Macros et VBA Excel

Discussions similaires

Partager

Partager