Autres Probléme avec For next

JBARBE

JBARBE

XLDnaute Barbatruc
Bonjour à tous,
toujours moi avec mon compte bancaire que j'avais créé avec for M = 1 to 19 next (je me fait vieux )
1704442975041.png
 
Trier par date Trier par votes
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
après netoyage de ton drnier code ça donne ceci
tout d'abords je vois que tu utilise des names pour tes range "tiers",depot" etc...
les names sont uniques parti de la on a pas besoins de préciser le parent
donc de ton code post#12
je le compile
VB: 
Sub prelevement()
    Dim Réponse As String, j As Long, SG As Worksheet, prelevement As Worksheet
    Const FM_MillRed = "$#,##0.00_);[Red]($#,##0.00)"

    Application.ScreenUpdating = False
    Set SG = Sheets("SG")
    Set prelevement = Sheets("prelevement")

    'Sheets("Tableau_de_bord").Select'???????????????
    Sheets("Prelevement").Select

    With prelevement
        For j = 3 To 21
            prelevement.Cells(j, 5) = [Tiers].Value
            prelevement.Cells(j, 3).NumberFormat = "dd/mm/yy"
            SG.Cells(j,6).NumberFormat = FM_MillRed
            SG.Cells(j, 7).NumberFormat = FM_MillRed


            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE PRELEVEMENT" & " " & .Cells(j, 9)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 9), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    .Cells(j, 9) = [Paiement1].Value
                End If
            End If
            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE DEPOT" & " " & .Cells(j, 10)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 10), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    [Date] = .Cells(j, 1)
                    .Cells(j, 5) = [Tiers].Value
                    With .Cells(j, 9): .Value = [Paiement1].Value: .NumberFormat = FM_MillRed: End With
                    With .Cells(j, 10): .Value = [Dépot].Value: .NumberFormat = FM_MillRed: End With
                    SG.Cells(j, 6).NumberFormat = FM_MillRed
                    SG.Cells(j, 7).NumberFormat = FM_MillRed
                    .Cells(j, 3).NumberFormat = "dd/mm/yy"
                End If
            End If
        Next j
    End With
    [Zone_saisie].ClearContents
    Sheets("Tableau_de_bord").Select
    Range("A1").Select
    MsgBox "FIN"
    Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
patricktoulon à dit:
re
après netoyage de ton drnier code ça donne ceci
tout d'abords je vois que tu utilise des names pour tes range "tiers",depot" etc...
les names sont uniques parti de la on a pas besoins de préciser le parent
donc de ton code post#12
je le compile
VB: 
Sub prelevement()
    Dim Réponse As String, j As Long, SG As Worksheet, prelevement As Worksheet
    Const FM_MillRed = "$#,##0.00_);[Red]($#,##0.00)"

    Application.ScreenUpdating = False
    Set SG = Sheets("SG")
    Set prelevement = Sheets("prelevement")

    'Sheets("Tableau_de_bord").Select'???????????????
    Sheets("Prelevement").Select

    With prelevement
        For j = 3 To 21
            prelevement.Cells(j, 5) = [Tiers].Value
            prelevement.Cells(j, 3).NumberFormat = "dd/mm/yy"
            SG.Cells(j,6).NumberFormat = FM_MillRed
            SG.Cells(j, 7).NumberFormat = FM_MillRed


            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE PRELEVEMENT" & " " & .Cells(j, 9)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 9), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    .Cells(j, 9) = [Paiement1].Value
                End If
            End If
            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE DEPOT" & " " & .Cells(j, 10)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 10), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    [Date] = .Cells(j, 1)
                    .Cells(j, 5) = [Tiers].Value
                    With .Cells(j, 9): .Value = [Paiement1].Value: .NumberFormat = FM_MillRed: End With
                    With .Cells(j, 10): .Value = [Dépot].Value: .NumberFormat = FM_MillRed: End With
                    SG.Cells(j, 6).NumberFormat = FM_MillRed
                    SG.Cells(j, 7).NumberFormat = FM_MillRed
                    .Cells(j, 3).NumberFormat = "dd/mm/yy"
                End If
            End If
        Next j
    End With
    [Zone_saisie].ClearContents
    Sheets("Tableau_de_bord").Select
    Range("A1").Select
    MsgBox "FIN"
    Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...
fichier modifier ! c'est dur pour un vieux de 72 ans Merci pour ta collaboration mais ton code était parfait
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
patricktoulon à dit:
re
après netoyage de ton drnier code ça donne ceci
tout d'abords je vois que tu utilise des names pour tes range "tiers",depot" etc...
les names sont uniques parti de la on a pas besoins de préciser le parent
donc de ton code post#12
je le compile
VB: 
Sub prelevement()
    Dim Réponse As String, j As Long, SG As Worksheet, prelevement As Worksheet
    Const FM_MillRed = "$#,##0.00_);[Red]($#,##0.00)"

    Application.ScreenUpdating = False
    Set SG = Sheets("SG")
    Set prelevement = Sheets("prelevement")

    'Sheets("Tableau_de_bord").Select'???????????????
    Sheets("Prelevement").Select

    With prelevement
        For j = 3 To 21
            prelevement.Cells(j, 5) = [Tiers].Value
            prelevement.Cells(j, 3).NumberFormat = "dd/mm/yy"
            SG.Cells(j,6).NumberFormat = FM_MillRed
            SG.Cells(j, 7).NumberFormat = FM_MillRed


            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE PRELEVEMENT" & " " & .Cells(j, 9)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 9), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    .Cells(j, 9) = [Paiement1].Value
                End If
            End If
            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE DEPOT" & " " & .Cells(j, 10)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 10), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    [Date] = .Cells(j, 1)
                    .Cells(j, 5) = [Tiers].Value
                    With .Cells(j, 9): .Value = [Paiement1].Value: .NumberFormat = FM_MillRed: End With
                    With .Cells(j, 10): .Value = [Dépot].Value: .NumberFormat = FM_MillRed: End With
                    SG.Cells(j, 6).NumberFormat = FM_MillRed
                    SG.Cells(j, 7).NumberFormat = FM_MillRed
                    .Cells(j, 3).NumberFormat = "dd/mm/yy"
                End If
            End If
        Next j
    End With
    [Zone_saisie].ClearContents
    Sheets("Tableau_de_bord").Select
    Range("A1").Select
    MsgBox "FIN"
    Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...
fichier modifier ! c'est dur pour un vieux de 72 ans Merci pour ta collaboration ton code ma beaucoup aidé mais sans les feuilles difficile de faire mieux
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
fichier modifier ! c'est dur pour un vieux de 72 ans Merci à tous reste à acheminer la saisie sur des cellules vides en sheets("SG")

Option Explicit

Sub Prelevement()
Dim Réponse As String
Application.ScreenUpdating = False
Sheets("Tableau_de_bord").Select
Sheets("Prelevement").Select
Dim j As Long
For j = 3 To 21
Sheets("SG").Range("Zone_saisie").ClearContents
If Sheets("prelevement").Cells(j, 3) <> "" Then
MsgBox "A Payer LE PRELEVEMENT" & " " & Sheets("prelevement").Cells(j, 9)
Réponse = MsgBox(prompt:=" le montant est de " & Sheets("prelevement").Cells(j, 9), Buttons:=vbYesNo + vbDefaultButton2)
End If
If Réponse = vbYes Then
Sheets("SG").Range("Date") = Sheets("prelevement").Cells(j, 3)
Sheets("SG").Range("Tiers") = Sheets("prelevement").Cells(j, 5)
Sheets("SG").Cells(j, 6).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Sheets("SG").Cells(j, 7).NumberFormat = "#,##0.00€;[Red]-#,##0.00€"
Sheets("SG").Range("Paiement1") = Sheets("prelevement").Cells(j, 9)
Sheets("prelevement").Cells(j, 9).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Sheets("SG").Range("Dépot") = Sheets("prelevement").Cells(j, 10)
Sheets("prelevement").Cells(j, 10).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Sheets("SG").Cells(j, 6).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Sheets("SG").Cells(j, 7).NumberFormat = "#,##0.00€;[Red]-#,##0.00€"
Sheets("prelevement").Cells(j, 3).NumberFormat = "dd/mm/yy"
'Sheets("SG").Range("Dépot").Value = Sheets("prelevement").Cells(j, 9)
ElseIf Réponse = vbNo Then
Sheets("prelevement").Cells(j, 9).Select
End If
If Réponse = vbNo Then
Cells(j, 3).Select
End If
'If Sheets("SG").Range("Dépot") = "" Then
'Cells(j + 1, 3).Select
'End If
If Sheets("prelevement").Cells(j, 3) <> "" Then
Réponse = MsgBox(prompt:=" le VERSEMENT est de " & Sheets("prelevement").Cells(j, 10), Buttons:=vbYesNo + vbDefaultButton2)
If Réponse = vbNo Then
Cells(j, 3).Select
End If
End If
Next j

Sheets("Tableau_de_bord").Select
Range("A1").Select
MsgBox "FIN"
Sheets("Tableau_de_bord").Select
Application.ScreenUpdating = True
Sheets("Tableau_de_bord").Select
Range("A1").Select
MsgBox "FIN"
Sheets("Tableau_de_bord").Select
Application.ScreenUpdating = True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
patricktoulon à dit:
re
après netoyage de ton drnier code ça donne ceci
tout d'abords je vois que tu utilise des names pour tes range "tiers",depot" etc...
les names sont uniques parti de la on a pas besoins de préciser le parent
donc de ton code post#12
je le compile
VB: 
Sub prelevement()
    Dim Réponse As String, j As Long, SG As Worksheet, prelevement As Worksheet
    Const FM_MillRed = "$#,##0.00_);[Red]($#,##0.00)"

    Application.ScreenUpdating = False
    Set SG = Sheets("SG")
    Set prelevement = Sheets("prelevement")

    'Sheets("Tableau_de_bord").Select'???????????????
    Sheets("Prelevement").Select

    With prelevement
        For j = 3 To 21
            prelevement.Cells(j, 5) = [Tiers].Value
            prelevement.Cells(j, 3).NumberFormat = "dd/mm/yy"
            SG.Cells(j,6).NumberFormat = FM_MillRed
            SG.Cells(j, 7).NumberFormat = FM_MillRed


            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE PRELEVEMENT" & " " & .Cells(j, 9)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 9), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    .Cells(j, 9) = [Paiement1].Value
                End If
            End If
            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE DEPOT" & " " & .Cells(j, 10)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 10), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    [Date] = .Cells(j, 1)
                    .Cells(j, 5) = [Tiers].Value
                    With .Cells(j, 9): .Value = [Paiement1].Value: .NumberFormat = FM_MillRed: End With
                    With .Cells(j, 10): .Value = [Dépot].Value: .NumberFormat = FM_MillRed: End With
                    SG.Cells(j, 6).NumberFormat = FM_MillRed
                    SG.Cells(j, 7).NumberFormat = FM_MillRed
                    .Cells(j, 3).NumberFormat = "dd/mm/yy"
                End If
            End If
        Next j
    End With
    [Zone_saisie].ClearContents
    Sheets("Tableau_de_bord").Select
    Range("A1").Select
    MsgBox "FIN"
    Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...
fichier modifier ! c'est dur pour un vieux de 72 ans Merci pour ta collaboration ton code était parfait
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
patricktoulon à dit:
re
après netoyage de ton drnier code ça donne ceci
tout d'abords je vois que tu utilise des names pour tes range "tiers",depot" etc...
les names sont uniques parti de la on a pas besoins de préciser le parent
donc de ton code post#12
je le compile
VB: 
Sub prelevement()
    Dim Réponse As String, j As Long, SG As Worksheet, prelevement As Worksheet
    Const FM_MillRed = "$#,##0.00_);[Red]($#,##0.00)"

    Application.ScreenUpdating = False
    Set SG = Sheets("SG")
    Set prelevement = Sheets("prelevement")

    'Sheets("Tableau_de_bord").Select'???????????????
    Sheets("Prelevement").Select

    With prelevement
        For j = 3 To 21
            prelevement.Cells(j, 5) = [Tiers].Value
            prelevement.Cells(j, 3).NumberFormat = "dd/mm/yy"
            SG.Cells(j,6).NumberFormat = FM_MillRed
            SG.Cells(j, 7).NumberFormat = FM_MillRed


            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE PRELEVEMENT" & " " & .Cells(j, 9)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 9), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    .Cells(j, 9) = [Paiement1].Value
                End If
            End If
            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE DEPOT" & " " & .Cells(j, 10)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 10), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    [Date] = .Cells(j, 1)
                    .Cells(j, 5) = [Tiers].Value
                    With .Cells(j, 9): .Value = [Paiement1].Value: .NumberFormat = FM_MillRed: End With
                    With .Cells(j, 10): .Value = [Dépot].Value: .NumberFormat = FM_MillRed: End With
                    SG.Cells(j, 6).NumberFormat = FM_MillRed
                    SG.Cells(j, 7).NumberFormat = FM_MillRed
                    .Cells(j, 3).NumberFormat = "dd/mm/yy"
                End If
            End If
        Next j
    End With
    [Zone_saisie].ClearContents
    Sheets("Tableau_de_bord").Select
    Range("A1").Select
    MsgBox "FIN"
    Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...
fichier modifier ! c'est dur pour un vieux de 72 ans Merci pour ta collaboration ton code était parfait
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
patricktoulon à dit:
re
après netoyage de ton drnier code ça donne ceci
tout d'abords je vois que tu utilise des names pour tes range "tiers",depot" etc...
les names sont uniques parti de la on a pas besoins de préciser le parent
donc de ton code post#12
je le compile
VB: 
Sub prelevement()
    Dim Réponse As String, j As Long, SG As Worksheet, prelevement As Worksheet
    Const FM_MillRed = "$#,##0.00_);[Red]($#,##0.00)"

    Application.ScreenUpdating = False
    Set SG = Sheets("SG")
    Set prelevement = Sheets("prelevement")

    'Sheets("Tableau_de_bord").Select'???????????????
    Sheets("Prelevement").Select

    With prelevement
        For j = 3 To 21
            prelevement.Cells(j, 5) = [Tiers].Value
            prelevement.Cells(j, 3).NumberFormat = "dd/mm/yy"
            SG.Cells(j,6).NumberFormat = FM_MillRed
            SG.Cells(j, 7).NumberFormat = FM_MillRed


            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE PRELEVEMENT" & " " & .Cells(j, 9)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 9), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    .Cells(j, 9) = [Paiement1].Value
                End If
            End If
            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE DEPOT" & " " & .Cells(j, 10)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 10), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    [Date] = .Cells(j, 1)
                    .Cells(j, 5) = [Tiers].Value
                    With .Cells(j, 9): .Value = [Paiement1].Value: .NumberFormat = FM_MillRed: End With
                    With .Cells(j, 10): .Value = [Dépot].Value: .NumberFormat = FM_MillRed: End With
                    SG.Cells(j, 6).NumberFormat = FM_MillRed
                    SG.Cells(j, 7).NumberFormat = FM_MillRed
                    .Cells(j, 3).NumberFormat = "dd/mm/yy"
                End If
            End If
        Next j
    End With
    [Zone_saisie].ClearContents
    Sheets("Tableau_de_bord").Select
    Range("A1").Select
    MsgBox "FIN"
    Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...
fichier modifier ! c'est dur pour un vieux de 72 ans Merci pour ta collaboration ton code était parfait
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
patricktoulon à dit:
re
après netoyage de ton drnier code ça donne ceci
tout d'abords je vois que tu utilise des names pour tes range "tiers",depot" etc...
les names sont uniques parti de la on a pas besoins de préciser le parent
donc de ton code post#12
je le compile
VB: 
Sub prelevement()
    Dim Réponse As String, j As Long, SG As Worksheet, prelevement As Worksheet
    Const FM_MillRed = "$#,##0.00_);[Red]($#,##0.00)"

    Application.ScreenUpdating = False
    Set SG = Sheets("SG")
    Set prelevement = Sheets("prelevement")

    'Sheets("Tableau_de_bord").Select'???????????????
    Sheets("Prelevement").Select

    With prelevement
        For j = 3 To 21
            prelevement.Cells(j, 5) = [Tiers].Value
            prelevement.Cells(j, 3).NumberFormat = "dd/mm/yy"
            SG.Cells(j,6).NumberFormat = FM_MillRed
            SG.Cells(j, 7).NumberFormat = FM_MillRed


            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE PRELEVEMENT" & " " & .Cells(j, 9)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 9), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    .Cells(j, 9) = [Paiement1].Value
                End If
            End If
            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE DEPOT" & " " & .Cells(j, 10)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 10), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    [Date] = .Cells(j, 1)
                    .Cells(j, 5) = [Tiers].Value
                    With .Cells(j, 9): .Value = [Paiement1].Value: .NumberFormat = FM_MillRed: End With
                    With .Cells(j, 10): .Value = [Dépot].Value: .NumberFormat = FM_MillRed: End With
                    SG.Cells(j, 6).NumberFormat = FM_MillRed
                    SG.Cells(j, 7).NumberFormat = FM_MillRed
                    .Cells(j, 3).NumberFormat = "dd/mm/yy"
                End If
            End If
        Next j
    End With
    [Zone_saisie].ClearContents
    Sheets("Tableau_de_bord").Select
    Range("A1").Select
    MsgBox "FIN"
    Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...
fichier modifier ! c'est dur pour un vieux de 72 ans Merci pour ta collaboration ton code était parfait
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
patricktoulon à dit:
re
après netoyage de ton drnier code ça donne ceci
tout d'abords je vois que tu utilise des names pour tes range "tiers",depot" etc...
les names sont uniques parti de la on a pas besoins de préciser le parent
donc de ton code post#12
je le compile
VB: 
Sub prelevement()
    Dim Réponse As String, j As Long, SG As Worksheet, prelevement As Worksheet
    Const FM_MillRed = "$#,##0.00_);[Red]($#,##0.00)"

    Application.ScreenUpdating = False
    Set SG = Sheets("SG")
    Set prelevement = Sheets("prelevement")

    'Sheets("Tableau_de_bord").Select'???????????????
    Sheets("Prelevement").Select

    With prelevement
        For j = 3 To 21
            prelevement.Cells(j, 5) = [Tiers].Value
            prelevement.Cells(j, 3).NumberFormat = "dd/mm/yy"
            SG.Cells(j,6).NumberFormat = FM_MillRed
            SG.Cells(j, 7).NumberFormat = FM_MillRed


            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE PRELEVEMENT" & " " & .Cells(j, 9)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 9), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    .Cells(j, 9) = [Paiement1].Value
                End If
            End If
            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE DEPOT" & " " & .Cells(j, 10)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 10), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    [Date] = .Cells(j, 1)
                    .Cells(j, 5) = [Tiers].Value
                    With .Cells(j, 9): .Value = [Paiement1].Value: .NumberFormat = FM_MillRed: End With
                    With .Cells(j, 10): .Value = [Dépot].Value: .NumberFormat = FM_MillRed: End With
                    SG.Cells(j, 6).NumberFormat = FM_MillRed
                    SG.Cells(j, 7).NumberFormat = FM_MillRed
                    .Cells(j, 3).NumberFormat = "dd/mm/yy"
                End If
            End If
        Next j
    End With
    [Zone_saisie].ClearContents
    Sheets("Tableau_de_bord").Select
    Range("A1").Select
    MsgBox "FIN"
    Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...
fichier modifier ! c'est dur pour un vieux de 72 ans Merci pour ta collaboration ton code était parfait
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
patricktoulon à dit:
re
après netoyage de ton drnier code ça donne ceci
tout d'abords je vois que tu utilise des names pour tes range "tiers",depot" etc...
les names sont uniques parti de la on a pas besoins de préciser le parent
donc de ton code post#12
je le compile
VB: 
Sub prelevement()
    Dim Réponse As String, j As Long, SG As Worksheet, prelevement As Worksheet
    Const FM_MillRed = "$#,##0.00_);[Red]($#,##0.00)"

    Application.ScreenUpdating = False
    Set SG = Sheets("SG")
    Set prelevement = Sheets("prelevement")

    'Sheets("Tableau_de_bord").Select'???????????????
    Sheets("Prelevement").Select

    With prelevement
        For j = 3 To 21
            prelevement.Cells(j, 5) = [Tiers].Value
            prelevement.Cells(j, 3).NumberFormat = "dd/mm/yy"
            SG.Cells(j,6).NumberFormat = FM_MillRed
            SG.Cells(j, 7).NumberFormat = FM_MillRed


            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE PRELEVEMENT" & " " & .Cells(j, 9)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 9), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    .Cells(j, 9) = [Paiement1].Value
                End If
            End If
            If .Cells(j, 3) <> "" Then
                MsgBox "A Payer LE DEPOT" & " " & .Cells(j, 10)
                Réponse = MsgBox(prompt:=" le montant est de " & .Cells(j, 10), Buttons:=vbYesNo + vbDefaultButton2)
                If Réponse = vbYes Then
                    [Date] = .Cells(j, 1)
                    .Cells(j, 5) = [Tiers].Value
                    With .Cells(j, 9): .Value = [Paiement1].Value: .NumberFormat = FM_MillRed: End With
                    With .Cells(j, 10): .Value = [Dépot].Value: .NumberFormat = FM_MillRed: End With
                    SG.Cells(j, 6).NumberFormat = FM_MillRed
                    SG.Cells(j, 7).NumberFormat = FM_MillRed
                    .Cells(j, 3).NumberFormat = "dd/mm/yy"
                End If
            End If
        Next j
    End With
    [Zone_saisie].ClearContents
    Sheets("Tableau_de_bord").Select
    Range("A1").Select
    MsgBox "FIN"
    Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...
Option Explicit

Sub Prelevement()
Dim Réponse As String
Application.ScreenUpdating = False
Sheets("Tableau_de_bord").Select
Sheets("Prelevement").Select
Dim j As Long
For j = 3 To 21
Sheets("SG").Range("Zone_saisie").ClearContents
If Sheets("prelevement").Cells(j, 3) <> "" Then
MsgBox "A Payer LE PRELEVEMENT" & " " & Sheets("prelevement").Cells(j, 9)
Réponse = MsgBox(prompt:=" le montant est de " & Sheets("prelevement").Cells(j, 9), Buttons:=vbYesNo + vbDefaultButton2)
End If
If Réponse = vbYes Then
Sheets("SG").Range("Date") = Sheets("prelevement").Cells(j, 3)
Sheets("SG").Range("Tiers") = Sheets("prelevement").Cells(j, 5)
Sheets("SG").Cells(j, 6).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Sheets("SG").Cells(j, 7).NumberFormat = "#,##0.00€;[Red]-#,##0.00€"
Sheets("SG").Range("Paiement1") = Sheets("prelevement").Cells(j, 9)
Sheets("prelevement").Cells(j, 9).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Sheets("SG").Range("Dépot") = Sheets("prelevement").Cells(j, 10)
Sheets("prelevement").Cells(j, 10).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Sheets("SG").Cells(j, 6).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Sheets("SG").Cells(j, 7).NumberFormat = "#,##0.00€;[Red]-#,##0.00€"
Sheets("prelevement").Cells(j, 3).NumberFormat = "dd/mm/yy"
'Sheets("SG").Range("Dépot").Value = Sheets("prelevement").Cells(j, 9)
ElseIf Réponse = vbNo Then
Sheets("prelevement").Cells(j, 9).Select
End If
If Réponse = vbNo Then
Cells(j, 3).Select
End If
'If Sheets("SG").Range("Dépot") = "" Then
'Cells(j + 1, 3).Select
'End If
If Sheets("prelevement").Cells(j, 3) <> "" Then
Réponse = MsgBox(prompt:=" le VERSEMENT est de " & Sheets("prelevement").Cells(j, 10), Buttons:=vbYesNo + vbDefaultButton2)
If Réponse = vbNo Then
Cells(j, 3).Select
End If
End If
Next j

Sheets("Tableau_de_bord").Select
Range("A1").Select
MsgBox "FIN"
Sheets("Tableau_de_bord").Select
Application.ScreenUpdating = True
Sheets("Tableau_de_bord").Select
Range("A1").Select
MsgBox "FIN"
Sheets("Tableau_de_bord").Select
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
JBARBE à dit:
Option Explicit

Sub Prelevement()
Dim Réponse As String
Application.ScreenUpdating = False
Sheets("Tableau_de_bord").Select
Sheets("Prelevement").Select
Dim j As Long
For j = 3 To 21
Sheets("SG").Range("Zone_saisie").ClearContents
If Sheets("prelevement").Cells(j, 3) <> "" Then
MsgBox "A Payer LE PRELEVEMENT" & " " & Sheets("prelevement").Cells(j, 9)
Réponse = MsgBox(prompt:=" le montant est de " & Sheets("prelevement").Cells(j, 9), Buttons:=vbYesNo + vbDefaultButton2)
End If
If Réponse = vbYes Then
Sheets("SG").Range("Date") = Sheets("prelevement").Cells(j, 3)
Sheets("SG").Range("Tiers") = Sheets("prelevement").Cells(j, 5)
Sheets("SG").Cells(j, 6).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Sheets("SG").Cells(j, 7).NumberFormat = "#,##0.00€;[Red]-#,##0.00€"
Sheets("SG").Range("Paiement1") = Sheets("prelevement").Cells(j, 9)
Sheets("prelevement").Cells(j, 9).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Sheets("SG").Range("Dépot") = Sheets("prelevement").Cells(j, 10)
Sheets("prelevement").Cells(j, 10).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Sheets("SG").Cells(j, 6).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Sheets("SG").Cells(j, 7).NumberFormat = "#,##0.00€;[Red]-#,##0.00€"
Sheets("prelevement").Cells(j, 3).NumberFormat = "dd/mm/yy"
'Sheets("SG").Range("Dépot").Value = Sheets("prelevement").Cells(j, 9)
ElseIf Réponse = vbNo Then
Sheets("prelevement").Cells(j, 9).Select
End If
If Réponse = vbNo Then
Cells(j, 3).Select
End If
'If Sheets("SG").Range("Dépot") = "" Then
'Cells(j + 1, 3).Select
'End If
If Sheets("prelevement").Cells(j, 3) <> "" Then
Réponse = MsgBox(prompt:=" le VERSEMENT est de " & Sheets("prelevement").Cells(j, 10), Buttons:=vbYesNo + vbDefaultButton2)
If Réponse = vbNo Then
Cells(j, 3).Select
End If
End If
Next j

Sheets("Tableau_de_bord").Select
Range("A1").Select
MsgBox "FIN"
Sheets("Tableau_de_bord").Select
Application.ScreenUpdating = True
Sheets("Tableau_de_bord").Select
Range("A1").Select
MsgBox "FIN"
Sheets("Tableau_de_bord").Select
Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif

Discussions similaires

C
  • Résolu(e)
XL 2021 Additionner résultats d'une boucle for en vba
Réponses
9
Affichages
295
Claudinedu13
C
JBARBE
  • Question
Autres Selection de plusieurs cellules sur la même ligne
Réponses
6
Affichages
407
JBARBE
JBARBE
A
  • Question
XL 2019 Mélange aléatoire colonne A sur colonne G ne fonctionne pas
Réponses
3
Affichages
158
arvin
A
C
  • Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
310
CathyLD
C
R
  • Question
XL pour MAC Partager en lecture seule sur iPhone
Réponses
0
Affichages
325
rtlv17
R
cathodique
  • Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
1 K
cathodique
cathodique
P
  • Résolu(e)
XL 2013 EXCEL VBA
Réponses
2
Affichages
292
pangasoul
P
cathodique
  • Résolu(e)
XL 2010 Userform plein écran sans barre de titre
Réponses
7
Affichages
220
cathodique
cathodique
G
  • Question
Microsoft 365 Export données
Réponses
4
Affichages
418
GClaire
G
U
  • Question
XL 2021 incrementation de variable dans une boucle for next
Réponses
3
Affichages
380
Gégé-45550
Gégé-45550

Membres actuellement en ligne

19 membres et 184 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 626
Messages
2 111 291
Membres
111 092
dernier inscrit
ThomasU3