1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2010 Recherche et copier par rapport a un textbox

Discussion dans 'Forum Excel' démarrée par Myst, 10 Octobre 2017.

  1. Myst

    Myst XLDnaute Occasionnel

    Inscrit depuis le :
    21 Novembre 2014
    Messages :
    245
    "J'aime" reçus :
    1
    Habite à:
    CARQUEFOU
    Utilise:
    Excel 2010 (PC)
    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
     
  2. Myst

    Myst XLDnaute Occasionnel

    Inscrit depuis le :
    21 Novembre 2014
    Messages :
    245
    "J'aime" reçus :
    1
    Habite à:
    CARQUEFOU
    Utilise:
    Excel 2010 (PC)
    Re j'avais oublié le fichier
     

    Pièces jointes:

  3. thebenoit59

    thebenoit59 XLDnaute Accro

    Inscrit depuis le :
    18 Juillet 2013
    Messages :
    1140
    "J'aime" reçus :
    90
    Bonjour Myst.

    Une première solution :
    Code (Visual Basic):

    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 aime votre message.
  4. Myst

    Myst XLDnaute Occasionnel

    Inscrit depuis le :
    21 Novembre 2014
    Messages :
    245
    "J'aime" reçus :
    1
    Habite à:
    CARQUEFOU
    Utilise:
    Excel 2010 (PC)
    Nickel, merci
     
  5. Myst

    Myst XLDnaute Occasionnel

    Inscrit depuis le :
    21 Novembre 2014
    Messages :
    245
    "J'aime" reçus :
    1
    Habite à:
    CARQUEFOU
    Utilise:
    Excel 2010 (PC)
    Bonjour thebenoit59
    je voudrais faire une autre recherche sur la colonne C, j'ai donc modifié comme ci-dessous mais ça ne fonctionne pas
    Code (Visual Basic):
    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"
     
  6. thebenoit59

    thebenoit59 XLDnaute Accro

    Inscrit depuis le :
    18 Juillet 2013
    Messages :
    1140
    "J'aime" reçus :
    90
    Bonjour Myst.
    Peux-tu préciser "ne fonctionne pas" ?
     
    Myst aime votre message.
  7. Myst

    Myst XLDnaute Occasionnel

    Inscrit depuis le :
    21 Novembre 2014
    Messages :
    245
    "J'aime" reçus :
    1
    Habite à:
    CARQUEFOU
    Utilise:
    Excel 2010 (PC)
    Bonjour thebenoit59,
    J'ai une erreur d’exécution, a cause du format texte a traiter peut être
     
  8. thebenoit59

    thebenoit59 XLDnaute Accro

    Inscrit depuis le :
    18 Juillet 2013
    Messages :
    1140
    "J'aime" reçus :
    90
    Sans aucun doute oui, actuellement la variable n est déclaré Long (donc des nombres).
    Si tu recherches du texte ça n'ira pas.

    Code (Visual Basic):
    Dim n, i&, k&
    Et ça devrait fonctionner.
     
    Myst aime votre message.
  9. Myst

    Myst XLDnaute Occasionnel

    Inscrit depuis le :
    21 Novembre 2014
    Messages :
    245
    "J'aime" reçus :
    1
    Habite à:
    CARQUEFOU
    Utilise:
    Excel 2010 (PC)
    Re
    C'est parfait, un grand merci
     
  10. Myst

    Myst XLDnaute Occasionnel

    Inscrit depuis le :
    21 Novembre 2014
    Messages :
    245
    "J'aime" reçus :
    1
    Habite à:
    CARQUEFOU
    Utilise:
    Excel 2010 (PC)
    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:

  11. thebenoit59

    thebenoit59 XLDnaute Accro

    Inscrit depuis le :
    18 Juillet 2013
    Messages :
    1140
    "J'aime" reçus :
    90
    Voici :

    Code (Visual Basic):
     .Range(.Cells(i, "A"), .Cells(i, "L")).Copy Sheets(2).Cells(Sheets(2).[a65000].End(xlUp).Row + 1, 1)
     
    Myst aime votre message.
  12. Myst

    Myst XLDnaute Occasionnel

    Inscrit depuis le :
    21 Novembre 2014
    Messages :
    245
    "J'aime" reçus :
    1
    Habite à:
    CARQUEFOU
    Utilise:
    Excel 2010 (PC)
    Merci, merci, merci
     

Partager cette page