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

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 surlignée 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

Bonjour,

Un petit fichier exemple serait le bienvenu

simplement pour voir un peu : TextType=Chèque et je pense que tu seras

VERY HAPPY

Bonjour M12

je viens de modifier mon post car j avais oublier mon fichier

cordialement

Snoopy 07

Re,

remplace par cette partie

If TxtType = "Chèque" And TxtDébit > 0 Then
            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 If

Mais il y a encore du boulot

Re

merci pour le code

je vais continuer a chercher car je n ai toujours pas trouve le code et ou je vais le mettre

cordialement

Snoopy07

Re,

Dans ton code

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 TxtType = "Chèque" And TxtDébit > 0 Then
            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 If
    End With
End Sub

Re

j ai bien rajouter ton code a l emplacement que tu dit et ca marche

mais j ai une autre condition a rajouter

 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 TxtType = "Chèque" And TxtDébit > 0 Then
                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 If
        End With
    End Sub

je voudrais que la partie surlignée ne se remplisse pas

si TextType=Chèque et que TxtCrédit est superieur a 0 et qu une valeur est rentre dans TxtNChèque

cordialement

Snoopy 07