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
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
Dernière édition: