Discussion :

[Sa Mariam]

Bonjour je viens de débuter sur VBA ya quelque jours, j'ai besoin de votre aide, alors j'ai donné la main à l'utilisateur pour insérer juste une référence, en se basant sur cette référence (Colonne C) que je vais chercher dans la feuille 1 je vais trouver une désignation (colonne B) je dois la copier et l'introduire dans la feuille 2.
J'ai rédigé le code suivant, mais ça donne une erreur au niveau de l'indice k.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Cell As Range
Dim k As Integer
Sheets("Liste des pièces").Select
Set Cell = Range("C6:C38962").Find(Me.TextBox2, LookIn:=xlFormulas, Lookat:=xlWhole)
If Me.TextBox2 = "" Then MsgBox ("Indiquez une référence")
If Not Cell Is Nothing Then
    k = Cell.Row
    Sheets("Liste des pièces").Range("Bk").Select
    Range("Bk").Copy
    Sheets("List des commandes").Range(B1).Select
    Selection.Past
End If

Merci d'avance pour votre aide

[mercatog]

Bonjour

Teste textbox2 avant la ligne find
Declare k as long
Ecris range("b"&k)
Evite les sélect

[Sa Mariam]

Ça a marché merciii

[patricktoulon]

re
bonjour et ca ne s'arrete pas la
dis toi que moins tu fait tourner le moulin mieux c'est

dans ton code ci dessous tu fait un find sur sheets avant de tester si ton textbox est rempli ou pas
le pire c'est que tu l'a prevu puisque tu fait un msgbox sauf que le find lui il a chercher dans ton sheets pour rien (dur dur sur grande plage a fouiller )
d'autant plus que vide peut te donner une ligne ou la cellule contient rien ( je n'en suis pas sur )
je ne vais pas parler des select ca a deja été fait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Cell As Range
 Dim k As Integer
 'Sheets("Liste des pièces").Select
    Set Cell = Range("C6:C38962").Find(Me.TextBox2, LookIn:=xlFormulas, Lookat:=xlWhole)
    If Me.TextBox2 = "" Then MsgBox ("Indiquez une référence")
    If Not Cell Is Nothing Then
    k = Cell.Row
    Sheets("Liste des pièces").Range("Bk").Select
    Range("Bk").Copy
    Sheets("List des commandes").Range(B1).Select
    Selection.Past
    End If

conclusion je ferais comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Cell As Range
   ' Sheets("Liste des pièces").Select
    If Me.TextBox2 = "" Then
        MsgBox ("Indiquez une référence")
    Else
        Set Cell = Sheets("Liste des pièces").Range("C6:C38962").Find(Me.TextBox2, LookIn:=xlFormulas, Lookat:=xlWhole)
        If Not Cell Is Nothing Then
            Sheets("List des commandes").Range(B1).Value = Sheets("Liste des pièces").Range("B" & Cell.Row).Value
        End If
    End if 
 Sheets("List des commandes").Activate 'juste pour voir le resultat (facultatif)

je met un activate juste pour voir le resultat mais ca n'est pas necessaire on peut tres bien travailler sur un sheets sans qu'il soit activé

[mercatog]

Et moi je ferai comme ceci

Code :

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

Worksheets("List des commandes").Range(B1).Value = Cell.Offset(, -1).Value

[patricktoulon]

@mercatog j'y ai pas pensé sur le coup

[Sa Mariam]

Jai introduit une boucle pour vérifier si la case est non vide avant de déclencher la recherche sinon ça déclenche un message d'erreur.
Merci pour votre aide