Autres Probléme avec For next

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion JBARBE
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Trier par date Trier par votes
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
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
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
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
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
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
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
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
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
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 à 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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

BenHarber
  • Question Question
Microsoft 365 Commande VBA pour supprimer plusieurs lignes d'un tableau structuré
Réponses
7
Affichages
131
mapomme
mapomme
A
  • Question Question
XL 2016 MFC avec plusieurs conditions
Réponses
8
Affichages
97
ALVE
A
Electron24
  • Résolu(e)
Microsoft 365 Boucle FOR
Réponses
7
Affichages
330
TooFatBoy
TooFatBoy
C
  • Résolu(e)
XL 2021 Additionner résultats d'une boucle for en vba
Réponses
9
Affichages
513
Claudinedu13
C
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
86
crocrocro
C
C
  • Résolu(e)
Microsoft 365 Combobox dans excel
Réponses
8
Affichages
127
fanch55
fanch55
J
  • Résolu(e)
XL 2019 Interdire les doublons dans ListBox
Réponses
3
Affichages
45
JLR67
J
R1-
  • Résolu(e)
Microsoft 365 Problème de formatage de dates au format EUR
Réponses
2
Affichages
68
R1-
R1-
C
  • Résolu(e)
XL 2021 VBA : Afficher plusieurs résultats d'une boucle dans une cellule
Réponses
3
Affichages
190
Claudinedu13
C
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
80
piga25
piga25
G
  • Résolu(e)
XL 2019 macro pour masquer puis afficher colonnes a la demande
Réponses
4
Affichages
165
Phil69970
Phil69970
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
41
job75
job75
A
  • Question Question
XL 2019 Mélange aléatoire colonne A sur colonne G ne fonctionne pas
Réponses
3
Affichages
238
arvin
A
B
  • Question Question
XL 2016 Nombre d'Items de valeur nulle dans un tableau.
Réponses
4
Affichages
79
bernardrustrel
B
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
503
GClaire
G
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
92
sylvanu
sylvanu
cathodique
  • Résolu(e)
XL 2010 Userform plein écran sans barre de titre
Réponses
7
Affichages
591
cathodique
cathodique
C
  • Question Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
432
CathyLD
C
cathodique
  • Question Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
cathodique
P
  • Résolu(e)
XL 2013 EXCEL VBA
Réponses
2
Affichages
376
pangasoul
P
Retour