Aide pour code déjà excitant

Le 26/03/2019 à 10:25

Bonjour

j'ai ce code la dans un fichier qui vient rechercher une référence dans la colonne A et j'aimerai également qu'il recherche dans la Colonne N

voici mon code :

im celluletrouvee As Range
Dim L As Integer
ComboBox1 = TextBox1

reference = TextBox1.Value

Set celluletrouvee = Sheets("Stock").Range("A2:A15000").Find(reference, LookAt:=xlWhole)

merci

bonne journée

Le 26/03/2019 à 11:08

Bonjour,

En adaptant l'instruction utilisée pour la colonne A ?

Set celluletrouvee = Sheets("Stock").Range("A2:A15000").Find(reference, LookAt:=xlWhole)

A+

Le 26/03/2019 à 11:26

bonjour,

mon code recherche déja ma reference dans la colonne A ça fonctionne

j'aimerai si c'est possible qu'il recherche toujours en colonne A mais également en colonne N

A2:A15000 et N2:N15000

merci =)

Le 26/03/2019 à 11:31

copier la ligne de recherche en colonne A en l'adaptant pour la recherche en colonne N ??

Le 26/03/2019 à 11:33

j'ai déja essayé et il me prend plus en compte les références que sont dans la colonne A mais uniquement dans la N grrr

Le 26/03/2019 à 11:37

Montrez le code que vous avez tenté (et pas seulement un extrait) et quelques précisions sur ce que vous voulez obtenir.

Le 26/03/2019 à 11:42

voici mon code origine

Private Sub Image1_Click()
Dim celluletrouvee As Range
Dim L As Integer
ComboBox1 = TextBox1

reference = TextBox1.Value

Set celluletrouvee = Sheets("Stock").Range("A2:A15000").Find(reference, LookAt:=xlWhole)
If celluletrouvee Is Nothing Then
libele = "NC"
stocksecu = "NC"
quantite = "NC"
cout = "NC"
valeur = "NC"
emplacement = "NC"
moule = "NC"
fournisseur = "NC"
lien = "NC"
Else
L = celluletrouvee.Row
libele = Sheets("Stock").Cells(L, 2).Value
stocksecu = Sheets("Stock").Cells(L, 3).Value
quantite = Sheets("Stock").Cells(L, 4).Value
cout = Sheets("Stock").Cells(L, 5).Value
valeur = Sheets("Stock").Cells(L, 6).Value
emplacement = Sheets("Stock").Cells(L, 7).Value
moule = Sheets("Stock").Cells(L, 8).Value
fournisseur = Sheets("Stock").Cells(L, 9).Value
lien = Sheets("Stock").Cells(L, 13).Value

End If
Label3.Caption = quantite
Label6.Caption = libele
Label7.Caption = stocksecu
Label10.Caption = cout
Label12.Caption = valeur
Label15.Caption = emplacement
Label18.Caption = moule
TextBox5.Value = lien

End Sub

quand je recherche dans la textbox (userfome ) et je clic sur image il recherche ma reference en colonne A

j'ai essayer de rajouter

Set celluletrouvee = Sheets("Stock").Range("N2:N15000").Find(reference, LookAt:=xlWhole)

en dessus de Set celluletrouvee = Sheets("Stock").Range("A2:A15000").Find(reference, LookAt:=xlWhole)

mais il ne prend plus la colonne A mais uniquement la N et jaimerai qu'il me recherche en colonne A et N

Le 26/03/2019 à 12:12

Bien sur, en utilisant deux instructions qui initialisent la même variable ça ne va pas fonctionner. L'initialisation de la deuxième instruction viendra "écraser" la première. Il faut utiliser 2 variables.

Comme vous ne précisez pas ce que vous voulez faire suivant la "valeur" de ces variables , un pseudo code à adapter :

Set celluletrouvee = Sheets("Stock").Range("A2:A15000").Find(reference, LookAt:=xlWhole)
     If not celluletrouvee Is Nothing Then 'si trouvé
         Set celluletrouvee2 = Sheets("Stock").Range("N2:N15000").Find(reference, LookAt:=xlWhole)
              If not celluletrouvee2 Is Nothing Then 'si trouvé
                   ' code si OK en A et N
                   '.../...
             Else
                  ' code si OK en A et Non en N (si nécessaire)
                  ' .../...
             End if
    Else
      ' code si NON en A  (si nécessaire)
      '.../...
    End If
.../...
Le 26/03/2019 à 18:22

une fois la valeur (reference )trouvé elle copie toute la ligne en les mettant dans label exemple colonne A label 1 colonne B label 2 etc...

je viens de tester ce code ci

Private Sub Image1_Click()
Dim celluletrouvee As Range
Dim L As Integer
ComboBox1 = TextBox1

reference = TextBox1.Value

Set celluletrouvee = Sheets("Stock").Range("A2:A15000").Find(reference, LookAt:=xlWhole)
     If Not celluletrouvee Is Nothing Then 'si trouvé
         Set celluletrouvee2 = Sheets("Stock").Range("N2:N15000").Find(reference, LookAt:=xlWhole)
              If Not celluletrouvee2 Is Nothing Then 'si trouvé

libele = "NC"
stocksecu = "NC"
quantite = "NC"
cout = "NC"
valeur = "NC"
emplacement = "NC"
moule = "NC"
fournisseur = "NC"
lien = "NC"
Else
L = celluletrouvee.Row
libele = Sheets("Stock").Cells(L, 3).Value
stocksecu = Sheets("Stock").Cells(L, 4).Value
quantite = Sheets("Stock").Cells(L, 5).Value
cout = Sheets("Stock").Cells(L, 6).Value
valeur = Sheets("Stock").Cells(L, 7).Value
emplacement = Sheets("Stock").Cells(L, 8).Value
moule = Sheets("Stock").Cells(L, 9).Value
fournisseur = Sheets("Stock").Cells(L, 10).Value
lien = Sheets("Stock").Cells(L, 14).Value

End If
Label3.Caption = quantite
Label6.Caption = libele
Label7.Caption = stocksecu
Label10.Caption = cout
Label12.Caption = valeur
Label15.Caption = emplacement
Label18.Caption = moule
Label19.Caption = fournisseur
TextBox5.Value = lien

End Sub

erreur compilation

bloc if sans end if

Le 26/03/2019 à 18:30

Bonjour jonat28,

C'est tout à fait excitant en effet ! et le fichier, il est où ?

Le 26/03/2019 à 18:42

Bonjour,

Ajoute un End If avant le End Sub !...

Le 26/03/2019 à 19:00

bonjour Steelson

voici le fichier j'ai du le modifier avant car c'est un fichier de entreprise ..

merci beaucoup pour votre aide

7fichier-test.xlsm (738.97 Ko)
Le 26/03/2019 à 19:03

BONJOUR Jean-Eric

je viens d'essayer négatif pas de message d’erreur mais si je recherche un reference en N ça ne fonctionne pas mais en A ça fonctionne

Le 27/03/2019 à 03:12

Dans ton fichier, colonne N il n'y a rien.

Je me pose aussi la question de la logique (par rapport à la réponse donnée par AlgoPlus) ... si la référence est trouvée en colonne A, on arrête la recherche ou bien on continue de rechercher en colonne N ?

Le 27/03/2019 à 07:49

bonjour Steelson

on recherche la référence en colonne A

si la référence est trouvée en colonne A on arrête la recherche

si pas trouvé on continu la recherche en colonne N

merci

4fichier-test-2.xlsm (739.71 Ko)
Le 27/03/2019 à 08:20

Code à tester :

Sub recherche(reference As String)

    Set celluletrouvee = Sheets("Stock").Columns("A").Find(reference, LookAt:=xlWhole)
    If celluletrouvee Is Nothing Then 'si non trouvé
        Set celluletrouvee = Sheets("Stock").Columns("N").Find(reference, LookAt:=xlWhole)
        If celluletrouvee Is Nothing Then 'si non trouvé
            MsgBox """" & reference & """ non trouvé !"
        Else
             MsgBox """" & reference & """ trouvé en " & celluletrouvee.Address
        End If
    Else
        MsgBox """" & reference & """ trouvé en " & celluletrouvee.Address
    End If

End Sub
Sub test()
recherche "test7"
recherche "ref1"
recherche "bla bla"
End Sub
Le 27/03/2019 à 10:17

Re

merci Steelson ça fonctionne !! tu ma sortie une belle épine du pied un grand merci

Le 27/03/2019 à 10:21

jonat28 a écrit:

on recherche la référence en colonne A
si la référence est trouvée en colonne A on arrête la recherche

si pas trouvé on continu la recherche en colonne N

Ben voilà.... la réponse attendue depuis hier !

Le 27/03/2019 à 10:26

merci de ton aide AlgoPlus

Rechercher des sujets similaires à "aide code deja excitant"