Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Compter les #N/A par VBA dans une procédure...

Compter les #N/A par VBA dans une procédure...

4 réponses
Avatar
Domi
Bonjour,

J'utilise ce petit bout de code pour remplir une plage avec des valeur
issues d'une formule.
Après application de la macro, il se peut que certaines cellules de "La
Plage" contiennent #N/A, ma question est la suivante : Comment modifier ce
code pour qu'un message du genre " il y a des erreurs" apparaisse si "la
plage" contient au moins un #N/A après calcul ?
Merci
Domi

Sub Test()
With Range("La Plage")
.FormulaR1C1 = " ma formule......................."
.Value = .Value
End With
End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Ajoute le code en tête de procédure :
On Error Resume Next
If IsError(WorksheetFunction.Sum(Range("LaPlage"))) Then
MsgBox "Erreur"
exit Sub
End If
Cordialement.
Daniel

"Domi" a écrit dans le message de news:
%
Bonjour,

J'utilise ce petit bout de code pour remplir une plage avec des valeur
issues d'une formule.
Après application de la macro, il se peut que certaines cellules de "La
Plage" contiennent #N/A, ma question est la suivante : Comment modifier ce
code pour qu'un message du genre " il y a des erreurs" apparaisse si "la
plage" contient au moins un #N/A après calcul ?
Merci
Domi

Sub Test()
With Range("La Plage")
.FormulaR1C1 = " ma formule......................."
.Value = .Value
End With
End Sub




Avatar
Daniel
Je n'avais percuté sur le "après calcul".
Mets le même code en fin de macro.
Daniel
"Domi" a écrit dans le message de news:
%
Bonjour,

J'utilise ce petit bout de code pour remplir une plage avec des valeur
issues d'une formule.
Après application de la macro, il se peut que certaines cellules de "La
Plage" contiennent #N/A, ma question est la suivante : Comment modifier ce
code pour qu'un message du genre " il y a des erreurs" apparaisse si "la
plage" contient au moins un #N/A après calcul ?
Merci
Domi

Sub Test()
With Range("La Plage")
.FormulaR1C1 = " ma formule......................."
.Value = .Value
End With
End Sub




Avatar
Daniel
Et plus exactement :
On Error Resume Next
If WorksheetFunction.IsNA(WorksheetFunction.Sum(Range("LaPlage"))) Then
MsgBox "toto"
End If
Daniel
"Daniel" a écrit dans le message de news:

Je n'avais percuté sur le "après calcul".
Mets le même code en fin de macro.
Daniel
"Domi" a écrit dans le message de news:
%
Bonjour,

J'utilise ce petit bout de code pour remplir une plage avec des valeur
issues d'une formule.
Après application de la macro, il se peut que certaines cellules de "La
Plage" contiennent #N/A, ma question est la suivante : Comment modifier
ce
code pour qu'un message du genre " il y a des erreurs" apparaisse si "la
plage" contient au moins un #N/A après calcul ?
Merci
Domi

Sub Test()
With Range("La Plage")
.FormulaR1C1 = " ma formule......................."
.Value = .Value
End With
End Sub








Avatar
Domi
Merci ;o)
Domi

"Daniel" a écrit dans le message de
news:
Et plus exactement :
On Error Resume Next
If WorksheetFunction.IsNA(WorksheetFunction.Sum(Range("LaPlage")))
Then

MsgBox "toto"
End If
Daniel
"Daniel" a écrit dans le message de news:

Je n'avais percuté sur le "après calcul".
Mets le même code en fin de macro.
Daniel
"Domi" a écrit dans le message de news:
%
Bonjour,

J'utilise ce petit bout de code pour remplir une plage avec des valeur
issues d'une formule.
Après application de la macro, il se peut que certaines cellules de "La
Plage" contiennent #N/A, ma question est la suivante : Comment modifier
ce
code pour qu'un message du genre " il y a des erreurs" apparaisse si
"la



plage" contient au moins un #N/A après calcul ?
Merci
Domi

Sub Test()
With Range("La Plage")
.FormulaR1C1 = " ma formule......................."
.Value = .Value
End With
End Sub