XL 2010 Recherche et copier par rapport a un textbox

[Myst]

Bonjour
Je voudrais faire une recherche dans la colonne A de la page 1 a partir d'un numéro que je saisie dans le textbox1 de userform1 et copier toutes les lignes ayant ce numéro dans la page 2
- si il y en a 0 = message " aucun résultat"
merci

 

[Myst]

Re j'avais oublié le fichier

 

[thebenoit59]

Bonjour Myst.

Une première solution :

Private Sub CommandButton2_Click()
Dim n&, i&, k&
n = Me.TextBox1.Value
With Sheets(1)
    For i = 3 To .[a65000].End(xlUp).Row
        If .Cells(i, "A").Value = n Then
            .Range(.Cells(i, "A"), .Cells(i, "L")).Copy Sheets(2).Cells(Sheets(2).[a65000].End(xlUp).Row + 1, 1)
            k = k + 1
        End If
    Next i
End With
If k = 0 Then MsgBox "Aucun résultat"
End Sub

 

[Myst]

Nickel, merci

 

[Myst]

Bonjour thebenoit59
je voudrais faire une autre recherche sur la colonne C, j'ai donc modifié comme ci-dessous mais ça ne fonctionne pas

Dim n&, i&, k&
n = Me.TextBox1.Value
With Sheets(1)
    For i = 3 To .[c65000].End(xlUp).Row
        If .Cells(i, "C").Value = n Then
            .Range(.Cells(i, "C"), .Cells(i, "L")).Copy Sheets(2).Cells(Sheets(2).[c65000].End(xlUp).Row + 1, 1)
            k = k + 1
        End If
    Next i
End With
If k = 0 Then MsgBox "Aucun résultat"

 

[thebenoit59]

Bonjour Myst.
Peux-tu préciser "ne fonctionne pas" ?

 

[Myst]

Bonjour thebenoit59,
J'ai une erreur d’exécution, a cause du format texte a traiter peut être

 

[thebenoit59]

Sans aucun doute oui, actuellement la variable n est déclaré Long (donc des nombres).
Si tu recherches du texte ça n'ira pas.

Dim n, i&, k&

Et ça devrait fonctionner.

 

[Myst]

Re
C'est parfait, un grand merci

 

[Myst]

Bonjour thebenoit59
Je viens de m'apercevoir que lorsque la recherche est faite dans la colonne C il n'y a pas dans la feuille 2 le contenu des colonnes A et B

 

[thebenoit59]

Voici :

 .Range(.Cells(i, "A"), .Cells(i, "L")).Copy Sheets(2).Cells(Sheets(2).[a65000].End(xlUp).Row + 1, 1)

 

[Myst]

Merci, merci, merci