XL 2010 Recherche et copier par rapport a un textbox

Myst

XLDnaute Occasionnel

• 10 Octobre 2017

• #2

Re j'avais oublié le fichier

 

Pièces jointes

• ESSAI1.xlsm

  23.7 KB · Affichages: 27

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 10 Octobre 2017

• #3

Bonjour Myst.

Une première solution :

VB:

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

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 10 Octobre 2017

• #4

Nickel, merci

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 11 Octobre 2017

• #5

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

VB:

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"

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 12 Octobre 2017

• #6

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

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 12 Octobre 2017

• #7

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

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 12 Octobre 2017

• #8

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

VB:

Dim n, i&, k&

Et ça devrait fonctionner.

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 12 Octobre 2017

• #9

Re
C'est parfait, un grand merci

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 13 Octobre 2017

• #10

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

 

Pièces jointes

• ESSAI 2.xlsm

  26.6 KB · Affichages: 38

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 13 Octobre 2017

• #11

Voici :

VB:

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

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 13 Octobre 2017

• #12

Merci, merci, merci

 

Vote positif 0 Vote négatif