remplir une cellule suivant condition

Bonjour le forum

Actuellement je rempli un tableau et une cellule via un userfrom

voici le code que j utilise

Code: Tout sélectionner
Private Sub AfficheTableau(Lg&)
With ActiveSheet
.Cells(Lg, 2) = TxtJours.Text
.Cells(Lg, 3) = StrConv(TxtCatégorie.Text, vbProperCase)
.Cells(Lg, 4) = StrConv(TxtEtablissement.Text, vbProperCase)
.Cells(Lg, 5) = StrConv(TxtQuiQuoi.Text, vbProperCase)
.Cells(Lg, 6) = StrConv(TxtType.Text, vbProperCase)
.Cells(Lg, 7) = TxtNChèque.Text
.Cells(Lg, 8) = TxtCrédit.Text
.Cells(Lg, 9) = TxtDébit.Text
If TxtNChèque.Value <> "" Then ' ajout de cette condition sinon le numéro du dernier chèque est effacé !!!
Sheets("Système").Range("B4").Value = TxtNChèque.Value
End If
End With
End Sub



je voudrais que la partie en gras se remplisse cas une seule condition

si TextType=Chèque et que TxtDébit est superieur a 0 alors on peut remplir la cellule

Cordialement

Snoopy 07