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