Modifier valeur d'une variable nulle en "0"

Bonjour,

Je copie des valeurs d'une cellule excel d'un fichier vers un autre fichier.
Mais quand la valeur source est vide je souhaiterai qu'elle écrive le chiffre 0 dans la cellule cible.

J'ai tenté un if mais cela ne fonctionne pas, la valeur est toujours à blanc

Je fais la lecture de mes cellules

Code:

---

1 2 3 4 5

objExcel.Application.Visible = False Lect1 = objExcel.Worksheets(1).Cells(38,5).Value Lect2 = objExcel.Worksheets(1).Cells(17,5).Value Lect3 = objExcel.Worksheets(1).Cells(18,5).Value Lect4 = objExcel.Worksheets(1).Cells(19,5).Value

---

Et je tente de lui dire que si le contenu est vide, il faut qu'il devienne "0" avant l'écriture mais ça ne fonctionne pas

Code:

---

1 2 3

If Lect1=" " Then Lect1="0" End If

---

Si quelqu'un à une solution, il aura ma plus grande estime :)

Salut

Citation:

---

avant l'écriture

---

:calim2: :koi:

Code:

---

If Not IsNumeric(lect1) Or IsNull(lect1) Or IsEmpty(lect1) Then lect1 = 0

---

Merci ProgElecT, encore une fois tu m'as bien dépanné :lol: