Bonjour,

J'ai hérité d'un chiffrier avec un VBA qui me cause souci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "M3" Then
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> 0 Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("I" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate]
Dans cette partie du code, la valeur de calcul = Range("D" & j).Value est égal à "N/A", sans suis une fin d'instruction et fenêtre de débogage.

Bref, la macro balaie toutes les feuilles, recherche "M3" dans la colonne A , divise la somme des cellules D par la somme des cellules C et retourne le résultat dans la cellule I de la feuille calculs2018.

Il me semble que le N/A me pose problème, comment faire?

Merci