Salut tout le monde,
j'ai une macro excel en vba qui me fait une division entre deux colones.
tout fonctionne bien mai j'aimerais faire aprés un tri des lignes par ordre décroissant de ce résultat.Or de temps en temps j'ai une division par 0
avec le message d'erreur #DIV/0! donc j'aimerais faire une macro vba qui quand le résultat est #DIV/0! je met 0 aprés coup bien sur car dans la cellule j'ai R52/Q45 par exemple
j'avais penser à ceci
Sub test2()
Dim n As Integer
Dim m As Integer
titre = "REP"
For n = 19 To 22
For m = 132 To Sheets(titre).Range(lettre(n) & 65536).End(xlUp).Row
'If Worksheets(titre).Range(lettre(n) & m) = #DIV/0! Then
'Worksheets(titre).Range(lettre(n) & m) = 0
MsgBox Worksheets(titre).Range(lettre(n) & m)
'End If
Next m
Next n
cela récupere bien le résultat mais des que j'arrive à la cellule division par 0 ça bug. En fait il me faudrait le formule VBA qui récupere le contenu de la
cellule soit #DIV/0! pour faire ma bidouille
merci des infos
j'ai une macro excel en vba qui me fait une division entre deux colones.
tout fonctionne bien mai j'aimerais faire aprés un tri des lignes par ordre décroissant de ce résultat.Or de temps en temps j'ai une division par 0
avec le message d'erreur #DIV/0! donc j'aimerais faire une macro vba qui quand le résultat est #DIV/0! je met 0 aprés coup bien sur car dans la cellule j'ai R52/Q45 par exemple
j'avais penser à ceci
Sub test2()
Dim n As Integer
Dim m As Integer
titre = "REP"
For n = 19 To 22
For m = 132 To Sheets(titre).Range(lettre(n) & 65536).End(xlUp).Row
'If Worksheets(titre).Range(lettre(n) & m) = #DIV/0! Then
'Worksheets(titre).Range(lettre(n) & m) = 0
MsgBox Worksheets(titre).Range(lettre(n) & m)
'End If
Next m
Next n
cela récupere bien le résultat mais des que j'arrive à la cellule division par 0 ça bug. En fait il me faudrait le formule VBA qui récupere le contenu de la
cellule soit #DIV/0! pour faire ma bidouille
merci des infos