VBA - filtre et colonne
Résolu/Fermé
A voir également:
- VBA - filtre et colonne
- Photo filtre gratuit - Télécharger - Retouche d'image
- Déplacer une colonne excel - Guide
- Colonne word - Guide
- Additionner colonne excel - Guide
- Trier colonne excel - Guide
1 réponse
Solution trouvée toute seule :
Sub lancerUF() ' lance le formulaire et vérifie s'il existe des filtres Dim rep As Variant 'déclaration de la variable rep comme étant la réponse attendue à la première fenêtre If Sheets("FOLLOW-UP").FilterMode = True Then For Each cell In Range("A3:U3") If cell.Interior.ColorIndex = 6 Then rep = MsgBox("Il y a un filtre sur la colonne " & cell.Column & " - " & cell.Value & ". Voulez-vous effectuer la vérification sur le filtre ?", vbYesNo + vbQuestion, "FILTRE") 'affiche le numero de colonne où est situé le filtre ainsi que l'entête If rep = 7 Then 'valeur 7 correspond à la réponse non Sheets("FOLLOW-UP").ShowAllData 'si "non", alors on enlève tous les filtres de la feuille FOLLOW-UP End If End If Next End If Verification_ALL.Show 'affiche le formulaire Verification_ALL Range("A1").Select 'se positionne en cellule A1 End Sub