Discussion :

[Corwin69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Lect1=" " Then 
Lect1="0"
End If

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

[ProgElecT]

Salut

avant l'écriture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Corwin69]

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