Discussion :

[MasterChief78]

Bonjour tout le monde,
Dans le but d'optimiser mon code, j'aimerais après avoir flitré une plage, regarder si elle est vide ou pas avant de continuer les opérations sur cette plage. J'ai essayer plusieur méthode IsEmpty, CountA, etc rien ne marche il ne détecte pas quand la plage est vide... Après de nombreuses recherches infructueuses je demande votre aide

Voici le bout de code que j'ai pour le moment et qui ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'Boucle pour chaque clients (chaque ligne clients ds excel)
For cptClient = 1 To maPlage.Rows.Count Step 1
 
AutoFilterMode = False
ThisWorkbook.Sheets("Lignes").Select
 
[C2:D2].CurrentRegion.AutoFilter Field:=2, Criteria1:="=" & codeClient
 
If Application.CountA(Range("C2:D2").CurrentRegion.SpecialCells(xlCellTypeVisible)) = 0 Then
    MsgBox "Pas de commande pour ce client"
    Else
    'Traitement....

Merci d'avance

[mapeh]

Bonjour,

la fonction Sous.Total te donne quelques informations sur les données filtrées...

Regarde dans l'aide...

En VBA, on pourrait traduire comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

X = Application.Subtotal(2, Columns(2))

où X représente le nombre de données visibles après filtrage...

[casavba]

Le code fonctionne bien, et c'est normal qu'il ne detecte pas.
J'aimerais que tu exécutes le code jusque là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
'Boucle pour chaque clients (chaque ligne clients ds excel)
For cptClient = 1 To maPlage.Rows.Count Step 1
 
AutoFilterMode = False
ThisWorkbook.Sheets("Lignes").Select
 
[C2:D2].CurrentRegion.AutoFilter Field:=2, Criteria1:="=" & codeClient
 
Range("C2:D2").CurrentRegion.SpecialCells(xlCellTypeVisible).Select
 
exit sub
 
'If Application.CountA(Range("C2:D2").CurrentRegion.SpecialCells(xlCellTypeVisible)) = 0 Then
    'MsgBox "Pas de commande pour ce client"
    'Else
    'Traitement....

Quelles sont les cellules sélectionnées par le programme ?

D'où vient l'erreur, alors

[MasterChief78]

Et bien la sélection est correcte, c'est celle de toutes les factures du clients en cours dans la boucle, donc je comprend pas pourquoi quand je sélectionne un client qui n'a pas de facture, la sélection ne devrait rien ressortir...

Bref si vous pouviez éclairé ma lanterne

Pour Subtotal j'ai testé et bien j'obtiens toujours zéro... Je crois qu'il y a un truc qui m'échappe...

Merci d'avance !

[mapeh]

Bonjour,

attention, dans mon exemple, je prenais la colonne 2...

A priori, tu filtres sur les colonnes 3 et 4...

A Adapter....

[MasterChief78]

Alors en fait j'ai trouvé, il faut que le test de CountA soit égal à 1 !
J'ai observé que quand le client n'avais aucune facture et bien la sélection était sur le nom des colonnes... Du coup il n'y avait jamais rien de sélectionné ^^.

Merci a tous pour votre aide,