Microsoft 365 recherche deux critères

[AIGOIN]

Bonjour à tous

Sur mon userform 3 j'ai créé différentes façons de rechercher.
Ma recherche deux critères trouve bien les lignes recherchées mais la copie demandée sur la feuille 1 ne se fait pas.
Merci de bien vouloir me dire pourquoi cette copie ne se fait pas.
Le filtre et les deux recherches un critère fonctionne bien.
Merci de votre aide .
Alain

 

[Compte Supprimé 979]

Bonjour Aigoin,

Voici une possibilité qui fonctionne 😉

Private Sub CommandButton1_Click()
  Dim ShtD As Worksheet
  Dim Crit1 As String ' Valeur cherchée colonne B
  Dim Crit2 As String 'Valeur cherchée colonne I
  Dim dLig As Long, Lig As Long
  ' Définir et effacer les lignes de feuille 1
  Set ShtD = ThisWorkbook.Sheets("Feuil1")
  ShtD.Range("A2:J30").ClearContents
  ' Définir le critère à rechercher
  Crit1 = Me.TextBox1.Value: Crit2 = Me.TextBox2.Value
  ' Avec l'objet conteneur
  With ThisWorkbook.Sheets("saisie")
    ' Dernière ligne remplie
    dLig = .Range("A" & Rows.Count).End(xlUp).Row
    ' Pour chaque ligne
    For Lig = 2 To dLig
      ' chercher les correspondances
      If .Range("B" & Lig).Value = Crit1 And .Range("I" & Lig).Value = Crit2 Then
        ' Si trouvé, copier/coller l'information
        .Range("A" & Lig).Resize(, 10).Copy ShtD.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        MsgBox "ligne trouvée " & Lig
      End If
    Next
  End With
  ' effacer la variable objet
  Set ShtD = Nothing
End Sub

A+

 

[job75]

Bonjour AIGOIN, Bruno,

Ma recherche deux critères trouve bien les lignes recherchées mais la copie demandée sur la feuille 1 ne se fait pas.
Merci de bien vouloir me dire pourquoi cette copie ne se fait pas.

En Feuil1 la copie se fait bien.

Simplement il y a des valeurs en lignes 192 et suivantes donc elle se fait dessous.

Supprimez donc ces valeurs.

A+

 

[AIGOIN]

Bonjour à tous

Sur mon userform 3 j'ai créé différentes façons de rechercher.
Ma recherche deux critères trouve bien les lignes recherchées mais la copie demandée sur la feuille 1 ne se fait pas.
Le filtre et les deux recherches un critère fonctionne bien.
Merci de votre aide pour la recherche deux critères.
Alain

Bonjour Aigoin,

Voici une possibilité qui fonctionne 😉

Private Sub CommandButton1_Click()
  Dim ShtD As Worksheet
  Dim Crit1 As String ' Valeur cherchée colonne B
  Dim Crit2 As String 'Valeur cherchée colonne I
  Dim dLig As Long, Lig As Long
  ' Définir et effacer les lignes de feuille 1
  Set ShtD = ThisWorkbook.Sheets("Feuil1")
  ShtD.Range("A2:J30").ClearContents
  ' Définir le critère à rechercher
  Crit1 = Me.TextBox1.Value: Crit2 = Me.TextBox2.Value
  ' Avec l'objet conteneur
  With ThisWorkbook.Sheets("saisie")
    ' Dernière ligne remplie
    dLig = .Range("A" & Rows.Count).End(xlUp).Row
    ' Pour chaque ligne
    For Lig = 2 To dLig
      ' chercher les correspondances
      If .Range("B" & Lig).Value = Crit1 And .Range("I" & Lig).Value = Crit2 Then
        ' Si trouvé, copier/coller l'information
        .Range("A" & Lig).Resize(, 10).Copy ShtD.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        MsgBox "ligne trouvée " & Lig
      End If
    Next
  End With
  ' effacer la variable objet
  Set ShtD = Nothing
End Sub

A+

Merci Bruno,
C'est super ça fonctionne très bien.
Merci beaucoup
Bon dimanche

 

[AIGOIN]

Bonjour AIGOIN, Bruno,

En Feuil1 la copie se fait bien.

Simplement il y a des valeurs en lignes 192 et suivantes donc elle se fait dessous.

Supprimez donc ces valeurs.

A+

Merci,
C'est super ça fonctionne très bien.
Merci beaucoup
Bon dimanche

 

[cp4]

Bonjour @AIGOIN , @job75 , @BrunoM45 ,

Sur la base du code de @BrunoM45. Cependant, j'ai ajouté 2 comboboxs pour les critères (au lieu des textboxs pour éviter les erreurs d'orthographe). Donc à toi de voir ce que tu préfères garder (textbox ou combobox). Je te laisse le soi de supprimer l'une ou l'autre.
Il n'y a plus qu'un seul bouton pour rechercher selon 1 ou 2 critères. à tester ton fichier en retour.

Bon dimanche à vous.

 

[AIGOIN]

Bonjour @AIGOIN , @job75 , @BrunoM45 ,

Sur la base du code de @BrunoM45. Cependant, j'ai ajouté 2 comboboxs pour les critères (au lieu des textboxs pour éviter les erreurs d'orthographe). Donc à toi de voir ce que tu préfères garder (textbox ou combobox). Je te laisse le soi de supprimer l'une ou l'autre.
Il n'y a plus qu'un seul bouton pour rechercher selon 1 ou 2 critères. à tester ton fichier en retour.

Bon dimanche à vous.

Merci beaucoup, cette version fonctionne super.
Bonne fin de journée

 

[AIGOIN]

Bonjour,
J'ai utilisé un document du forum, je l'ai adapté et je n'arrive pas à extraire les données de la colonne B et je ne comprends pas pourquoi.
Merci pour votre aide
Alain

 

[cp4]

Bonjour,
J'ai utilisé un document du forum, je l'ai adapté et je n'arrive pas à extraire les données de la colonne B et je ne comprends pas pourquoi.
Merci pour votre aide
Alain

Bonjour,

Ton fil date d'une année. Je te conseille d'ouvrir un nouveau fil.
Bon dimanche

 

[AIGOIN]

C'est ce que j'ai fait