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

JBARBE
  • Question
Autres Selection de plusieurs cellules sur la même ligne
Réponses
6
Affichages
215
JBARBE
JBARBE
U
  • Question
XL 2021 incrementation de variable dans une boucle for next
Réponses
3
Affichages
201
Gégé-45550
Gégé-45550
FRYS
  • Question
Microsoft 365 Retrouver les dépendants de cellules nommées
Réponses
6
Affichages
211
crocrocro
C
X
  • Question
XL 2016 Tableau projection financière
Réponses
1
Affichages
191
XVA
X
M
  • Question
XL 2021 Nom de variable dans boucle for
Réponses
1
Affichages
126
Dranreb
Dranreb
F
  • Question
XL 2019 l'indice n'appartient pas à la sélection
Réponses
9
Affichages
550
job75
job75
cp4
  • Résolu(e)
XL 2010 [RESOLU]Adapter Module de Classe
2
Réponses
29
Affichages
920
cp4
cp4
Regueiro
  • Question
Microsoft 365 VBA Transpose
Réponses
11
Affichages
292
sylvanu
sylvanu
D
  • Question
Microsoft 365 Insensible à la casse
Réponses
2
Affichages
92
David
D
Sergent_Lipton
  • Résolu(e)
Microsoft 365 [VBA] Barre de recherche dynamique - objectif : cacher les lignes hors résultat
Réponses
3
Affichages
197
Sergent_Lipton
Sergent_Lipton

Membres actuellement en ligne

2 membres et 48 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
312 215
Messages
2 086 329
Membres
103 184
dernier inscrit
Di Martino