remplir une cellule suivant condition

snoopy07

XLDnaute Occasionnel
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
 

Pièces jointes

  • essai 20 nouvelle feuille.xlsm
    102.5 KB · Affichages: 47
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
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
 

Statistiques des forums

Discussions
311 710
Messages
2 081 781
Membres
101 817
dernier inscrit
carvajal