remplir une cellule suivant condition

[snoopy07]

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

 

[Lone-wolf]

Re : remplir une cellule suivant condition

Bonsoir snoopy

Peut-être comme ceci

If TxtNChèque.Value <> "" Then
If TextType.Text="Chèque" And TxtDébit.Value > 0 Then
Sheets("Système").Range("B4").Value = TxtNChèque.Value
End If
End If