Vérifier qu'il n'y a qu'une valeur filtrée dans une colonne

Question

Malgré mes nombreuses recherches sur le sujet je n'arrive pas à trouver le code qui correspond à ma situation Je filtre manuellement sur chaque adresses mails de la colonne C et pour chaque résultat, j'envoie via VBA un mail avec le tableau correspondant aux résultats pour cette adresse mail (je peux avoir plusieurs lignes dans le tableau pour une seule adresse mail) Je voudrai juste afficher un message si plusieurs adresses mails sont filtrées en meme temps car il ne prend en compte que la dernière adresse mail via le code ci dessous et je voudrais éviter d'envoyer les données à un autre contact Range("d1") = Range("c2").End(xlDown).Value Email = Range("d1") Merci pour votre retour bav Xavier...

saboh12617 · Accepted Answer

Oui je m'en doutais un peu qu'il y aurait un problème à ce niveau, mais vu qu'avec le premier fichier ça passait je n'ai pas fait de tests poussés.

Remplacez la 4e ligne du code par

Set nonSortedMails = Range(.Cells, .End(xlDown).End(xlDown).End(xlUp))

Pour corriger le problème. C'est un peu moche mais ça fonctionne.

saboh12617 · Answer

En vous placant sur une colonne de la zone filtrée, VotreColonne.SpecialCells(xlCellTypeVisible).Rows.Count devrait renvoyer le nombre de cellules visibles dans la colonne en question. Par exemple si vous filtrez sur C2:C10, If Range("C2:C10").SpecialCells(xlCellTypeVisible).Rows.Count &gt; 1 Then MsgBox "Attention, plus de 1 email filtré"...

saboh12617 · Answer

Ah oui d'accord j'avais mal compris. Comme vous indiquiez filtrer manuellement chaque adresse mail je pensais qu'il ne pouvait y avoir qu'une seule adresse sortie du tri, et que vous souhaitiez simplement compter les lignes.

Dans ce cas il faut faire une petite boucle pour lire les valeurs, une proposition :

Sub RechercheMail()
  Dim myMails As Variant

  With Range("C1")
    myMails = Application.Transpose(Range(.Cells, .End(xlDown)).Value2)
  End With

  Dim searchedMail As String
  searchedMail = Range("C1").Value2

  Dim mail As Variant
  For Each mail In myMails
    If CStr(mail) <> searchedMail Then
       MsgBox "Erreur: " & CStr(mail) & " != " & searchedMail
       Exit For
    End If
  Next mail
End Sub

Bien sur adapter C1 si votre liste d'emails commence en dessous (je me suis basé sur le dernier screen).

saboh12617 · Answer

Oui alors si j'ai bien compris c'est assez compliqué ce que vous demandez. Mais avant de se lancer dans des choses compliquées il faut bien comprendre ce que l'on fait. Excusez-moi mais si vous utilisez l'outil de filtre Excel comme dans le fichier joint, à AUCUN moment vous n'aurez 2 emails filtrés différents, puisque par définition vous avez indiqué que vous ne filtriez qu'un seul mail… ??? Votre demande est incohérente : d'abord vous filtrez par email puis vous voulez vérifier que les emails filtrés correspondent au filtre… ? Vous doutez de l'utilitaire de filtre Excel ? Parce qu'il est (et sera) toujours plus efficace que n'importe quel code VBA. Je suis désolé mais pour moi votre vérification est complètement inutile si vous suivez la procédure que vous indiquez dans votre premier message. Au contraire vous risquez de créer plus d'erreurs ou de faux positifs. Peut etre voudriez-vous automatiser l'action de filtrer, à partir du texte dans une autre cellule, ça c'est possible (et compréhensible). Mais vérifier en VBA le résultat d'un filtre natif Excel.. non...

saboh12617 · Answer

Ok, je pense cependant que VBA n'est pas la solution la plus adaptée.

Ci-après code fonctionnel, en partant de la cellule C3 et en comparant à la dernière valeur filtrée de la liste de données en colonne 3 :

Sub RechercheMail()
  Dim nonSortedMails As Range
  With Range("C3")
    Set nonSortedMails = Range(.Cells, .End(xlDown)) 'Application.Transpose(
  End With

  Dim searchedMail As String
  searchedMail = Cells(Rows.Count, 3).End(xlUp).Value2

  Dim i As Long
  With nonSortedMails
    For i = 1 To .Count
      If Not Intersect(.Item(i), .SpecialCells(xlCellTypeVisible)) Is Nothing Then
        If searchedMail <> .Item(i).Value2 Then
          MsgBox .Item(i) & " est différent de " & searchedMail
          Exit Sub
        End If
      End If
    Next i
  End With
End Sub

Klin89 · Answer

Pas trop compris la démarche Si tu veux obtenir les valeurs distinctes de la colonne C via un filtre, tu peux rajouter en colonne F cette formule et filtrer sur la valeur "1" klin89...

saboh12617 · Answer

Bien d'accord avec toi Klin, c'est un non sense d'utiliser VBA ici, ou en tout cas de cette manière, mais l'auteur semble décidé. Après tout l'objectif du forum est d'apporter réponse à des questions. On voit bien que les conseils partent souvent dans le vent…...