remplissage d'une cellule excel

Bonjour, en fait j'ai remarquer que dans mon petit programme sous Excel j'ai un bug. Quand je ne renseigne pas la date par exemple, sur ma page excel ca remplit la cellule par un blanc. Je voudrais un code qui me permettrait de faire que si je saisie quelque chose dans mon textbox cela remplit la cellule sur excel et si je ne saisie rien cela fait rien et donc cela garde ce qu'il y avait dans la cellule.

Et une condition if sur ta textbox, tu y as pensé ???

oui bien sur, mais je vois pas comment ca marche.

C'est pas trop compliquer normalement

Code:

---

1 2 3

if (matextbox.text != "") then code end if

---

j'ai essayer ca :

Code:

---

1 2 3 4 5 6 7

If equipe_releve.Text = "" Then mafeuille.Range("A10:C13") = mafeuille.Range("A10:C13") mafeuille.Range("A5:C7") = mafeuille.Range("A5:C7") Else mafeuille.Range("A10:C13") = equipe_releve.Text mafeuille.Range("A5:C7") = date_releve.Text End If

---

cela ne fonctionne pas. Il y a toujours du blanc qui s'affiche dans ma cellule meme si je ne saisie rien.

C'est normale, si tu fais sa :

Code:

---

1 2 3 4 5 6 7

If equipe_releve.Text = "" Then mafeuille.Range("A10:C13") = mafeuille.Range("A10:C13") mafeuille.Range("A5:C7") = mafeuille.Range("A5:C7") Else mafeuille.Range("A10:C13") = equipe_releve.Text mafeuille.Range("A5:C7") = date_releve.Text End If

---

Je te conseil de faire plutot :

Code:

---

1 2 3 4

If equipe_releve.Text != "" Then mafeuille.Range("A10:C13") = equipe_releve.Text mafeuille.Range("A5:C7") = date_releve.Text End If

---

le ! ne lui plait vraiment pas. Il me met erreur de compilation. Attendu : go ou goto.

Code:

---

If Not equipe_releve.Text = "" Then

---

A oui en effet c'est vrai que cela change selon les langages

Tu as soit la solution de AlainTech :

Citation:

---

If Not equipe_releve.Text = "" Then

---

ou soit

Code:

---

1 2 3 4

If equipe_releve.Text <> "" Then mafeuille.Range("A10:C13") = equipe_releve.Text mafeuille.Range("A5:C7") = date_releve.Text End If

---

merci la première solution fonctionne