Discussion :

[magictom42]

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.

[tazmania]

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

[magictom42]

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

[tazmania]

C'est pas trop compliquer normalement

Code :

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

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

[magictom42]

j'ai essayer ca :

Code :

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

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.

[tazmania]

C'est normale, si tu fais sa :

Code :

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

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 :

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

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

[magictom42]

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

[AlainTech]

Code :

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

If Not equipe_releve.Text = "" Then

[tazmania]

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

Tu as soit la solution de AlainTech :

If Not equipe_releve.Text = "" Then

ou soit

Code :

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

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

[magictom42]

merci la première solution fonctionne