Compter le nbre #N/A sur plusieurs Feuilles

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Compter le nbre #N/A sur plusieurs Feuilles

Coellophysis

Bonjour,

Voilà j'ai remplis des tableaux sur 16 feuilles à l'aide de formules & vlookup mais parfois, j'ai des #N/A et je voudrais qu'à la fin de la macro, que VBA m'informe du nombre de #N/A.

Je précise que tous les tableaux sont identiques:

Je suppose qu'il faut utiliser une variable fixe mais j'ignore où l'a placer?

voici une piètre tentative? "n" étant le nbre de #N/A

'Calculer le nombre de #N/A

Dim n As Long
ws as worksheets

For Each ws In Worksheets

n = n + 1

If ws.Name Like "FC ???" Then
ws.Activate
On Error Resume Next
If WorksheetFunction.IsNA(WorksheetFunction.Count(Range("B3:L14" ))) Then
MsgBox "Nombre d'erreurs: " + n

Je vous remercie d'avance
Coellophysis

Publicité

neozenfragance

Salut,

Ta macro est un bon début, je l'ai reprise pour la compléter :

Code :

'Calculer le nombre de #N/A
Sub CompterNA()
Dim cellule As Range
Dim nombreNA As Long
Dim message As String
Dim feuille As Worksheet
For Each feuille In ActiveWorkbook.Worksheets ' On parcoure l'ensemble de feuilles
nombreNA = 0 ' Initialisation du nombre de NA pour la feuille
If feuille.Name Like "FC ???" Then
For Each cellule In feuille.Range("B3:L14" ) ' On parcoure les cellules de la plage B3:L14 et on compte les NA
If WorksheetFunction.IsNA(cellule) Then
nombreNA = nombreNA + 1
End If
Next
If nombreNA > 0 Then message = message & feuille.Name & " : " & nombreNA & vbCrLf ' On complète le message avec le nombre de NAs de la page en cours
End If
Next
If Len(message) > 0 Then MsgBox "Nombre de #N/A :" & vbCrLf & message ' On affiche le message s'il n'est pas vide
End Sub

Cdt, n.

---------------
Si seulement tu connaissais le pouvoir du côté obscur. Obi-Wan ne t’a jamais dit ce qui est arrivé à ton père.

neozenfragance

'Calculer le nombre de #N/A

Sub CompterNA()

Dim cellule As Range
Dim nombreNA As Long
Dim message As String
Dim feuille As Worksheet

For Each feuille In ActiveWorkbook.Worksheets ' On parcoure l'ensemble de feuilles

nombreNA = 0 ' Initialisation du nombre de NA pour la feuille

If feuille.Name Like "FC ???" Then

For Each cellule In feuille.Range("B3:L14" ) ' On parcoure les cellules de la plage B3:L14 et on compte les NA

If WorksheetFunction.IsNA(cellule) Then
nombreNA = nombreNA + 1
End If

Next

If nombreNA > 0 Then message = message & feuille.Name & " : " & nombreNA & vbCrLf ' On complète le message avec le nombre de NAs de la page en cours

End If

Next

If Len(message) > 0 Then MsgBox "Nombre de #N/A :" & vbCrLf & message ' On affiche le message s'il n'est pas vide

End Sub

---------------
Si seulement tu connaissais le pouvoir du côté obscur. Obi-Wan ne t’a jamais dit ce qui est arrivé à ton père.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Compter le nbre #N/A sur plusieurs Feuilles

Sujets relatifs
[Résolu] MIME::Lite Comment attacher plusieurs fichiers dans un mail?	Tester la présence de plusieurs fichiers dans un même répertoire
[RESOLU] En bash, curl avec du POST et plusieurs variable GET	[résolu] Choix d'une structure pour ajout et recherche rapide
nbre d'elts sélectionnés d'une JList	répliquer un texte à plusieurs endroits ( sans signets si possible ! )
gérer N partie avec des données partagées pour un wargame.	[PHP, MYSQL] Réaliser un classement avec données de plusieurs tables
compter des cellules en couleur	Récupérer les valeurs de plusieurs select avec javascript
Plus de sujets relatifs à : Compter le nbre #N/A sur plusieurs Feuilles

Page générée en 0.057 secondes