Condition pour if et #VALUE!

[portgas]

Bonjour,

Je souhaite grâce à une macro récupérer des valeurs d'une feuille excel pour en alimenter une autre.
La valeur à récupérer est une décimale suite à un calcul sur des liens RTD.
suivant les jours, on a soit une valeur soit une erreur #VALUE!.
Lorsque l'on a #VALUE! je souhaite mettre 0 à la place.
J'ai créé la macro if suivante.

Sub Macroif()
   
    If Workbooks("test.xls").Sheets("Holland").Range("B3").Value <> "#VALUE!" Then
    Range("B3").Value = Workbooks("test.xls").Sheets("Holland").Range("B3").Value
    Else
    Range("B3").Value = "0"
    End If
    
    End Sub

Si ma cellule est différente de #VALUE!, je récupère bien ma décimale, par contre impossible de mettre 0 lorsque j'obtiens #VALUE!

Est-ce que quelqu'un aurait une idée?

 

[tototiti2008]

Re : Condition pour if et #VALUE!

Bonjour Portgas,

Moi je ferais

Sub Macroif()
   
    If iserror(Workbooks("test.xls").Sheets("Holland").Range("B3").Value) Then
    Range("B3").Value = Workbooks("test.xls").Sheets("Holland").Range("B3").Value
    Else
    Range("B3").Value = "0"
    End If
    
    End Sub

 

[pierrejean]

Re : Condition pour if et #VALUE!

bonjour portgas

A tester:

Sub Macroif()
 
    If  not IsError(Workbooks("test.xls").Sheets("Holland").Range("B3").Value ) Then
    Range("B3").Value = Workbooks("test.xls").Sheets("Holland").Range("B3").Value
    Else
    Range("B3").Value = "0"
    End If
 
    End Sub

Salut tototiti 2008
on a presque la même solution !!!

 

[tototiti2008]

Re : Condition pour if et #VALUE!

Euhhhh... Oupps !!!
PierreJean a raison, il manque un Not dans mon code...😱
A vouloir répondre trop vite, parfois...😛

 

[portgas]

Re : Condition pour if et #VALUE!

Merci à vous deux, cela fonctionne super bien.
Par hasard, vous connaitriez un livre qui détaille les fonctions macro d'Excel ?

 

[jeanpierre]

Re : Condition pour if et #VALUE!

Bonjour portgas, PierreJean, tototit2008, le forum,

Les bouquins, tel que tu le demandes, il y en a peu, voire pas du tout....

Maintenant, ce site te permet de trouver plein de réponses à toutes tes questions.... Pas encore une encyclopédie mais presque....

Il faut, simplement, un peu de patience, des mots les plus justes pour la recherche, mais pas plus difficile que dans le sommaire d'un livre....

Sinon, sous Excel, tu as F1, l'aide d'excel,
Sous VBE, tu as également F1, l'aide pour VBA....

Et aussi, plein de questions ici...

A te lire.

Jean-Pierre