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
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
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

Electron24
  • Résolu(e)
Microsoft 365 Boucle FOR
Réponses
7
Affichages
308
TooFatBoy
TooFatBoy
C
  • Résolu(e)
XL 2021 Additionner résultats d'une boucle for en vba
Réponses
9
Affichages
478
Claudinedu13
C
R1-
  • Résolu(e)
Microsoft 365 Problème de formatage de dates au format EUR
Réponses
2
Affichages
52
R1-
R1-
C
  • Résolu(e)
XL 2021 VBA : Afficher plusieurs résultats d'une boucle dans une cellule
Réponses
3
Affichages
172
Claudinedu13
C
G
  • Résolu(e)
XL 2019 macro pour masquer puis afficher colonnes a la demande
Réponses
4
Affichages
139
Phil69970
Phil69970
A
  • Question Question
XL 2019 Mélange aléatoire colonne A sur colonne G ne fonctionne pas
Réponses
3
Affichages
225
arvin
A
B
  • Question Question
XL 2016 Nombre d'Items de valeur nulle dans un tableau.
Réponses
4
Affichages
63
bernardrustrel
B
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
481
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
68
sylvanu
sylvanu
cathodique
  • Résolu(e)
XL 2010 Userform plein écran sans barre de titre
Réponses
7
Affichages
568
cathodique
cathodique
C
  • Question Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
394
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
351
pangasoul
P
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
45
CDALE
C
P
  • Question Question
XL 2016 texte d'images vers excel
Réponses
14
Affichages
129
jurassic pork
jurassic pork
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
213
jalaba
J
klin89
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
377
patricktoulon
patricktoulon
cathodique
  • Question Question
XL 2010 Comptage Complexe
2 3
Réponses
40
Affichages
2 K
dysorthographie
dysorthographie
JBARBE
  • Question Question
Autres Selection de plusieurs cellules sur la même ligne
Réponses
6
Affichages
453
JBARBE
JBARBE
O
  • Question Question
Autres Optimisation macro numérotation ligne
Réponses
11
Affichages
234
crocrocro
C
Retour