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
JBARBE

JBARBE

XLDnaute Barbatruc
bonjour Job75
J'ai encore un bug avec for j=3 to 21
le next j
je m'en sort pas avec cette macro complexe merci à l'avance :
Sub Prelevement()
Dim Réponse As String
Dim nombre As Variant
Application.ScreenUpdating = False
'Sheets("Tableau_de_bord").Select
Sheets("Prelevement").Select
Dim j As Long
For j = 3 To 21
If Sheets("prelevement").Cells(j, 3).Value <> "" Then
If Sheets("prelevement").Cells(j, 3) <= Date Then Sheets("SG").Range("Date") = Sheets("prelevement").Cells(j, 3)

'Cells(j, 6).Select
If Cells(j, 3).Value = "" Then
Cells(j + 1, 3).Select
Else
MsgBox "A Payer LE PRELEVEMENT" & " " & Cells(j, 9).Value
Réponse = MsgBox(prompt:=" le montant est de " & Sheets("prelevement").Cells(j, 9), Buttons:=vbYesNo + vbDefaultButton2)
If Réponse = vbYes Then
nombre = InputBox(prompt:="Veuillez indiquer le montant ")
If Not IsNumeric(nombre) Then
MsgBox "Vous devez entrez un nombre!"
'Exit Sub
End If
End If
If StrPtr(nombre) = 0 Then
MsgBox "Vous avez annuler la saisie"
Exit Sub
End If
Sheets("prelevement").Cells(j, 9).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
'End If
'End If
If Sheets("prelevement").Cells(j, 10) <> "" Then
MsgBox "Payer LE DEPOT" & "" & Sheets("prelevement").Cells(j, 10).Value
Réponse = MsgBox(prompt:=" le montant est de " & Sheets("prelevement").Cells(j, 10), Buttons:=vbYesNo + vbDefaultButton2)
If Réponse = vbYes Then
nombre = InputBox(prompt:="Veuillez indiquer le montant ")
End If
End If
If Not IsNumeric(nombre) Then
MsgBox "Vous devez entrez un nombre!"
'Exit Sub
End If
If StrPtr(nombre) = 0 Then
MsgBox "Vous avez annuler la saisie"
Exit Sub
End If
'ActiveCell.Offset(0, 7).Value = nombre
Sheets("SG").Range("Date").Value = Sheets("prelevement").Cells(j, 3)
Sheets("SG").Range("Tiers").Value = Sheets("prelevement").Cells(j, 5)
Sheets("SG").Range("Paiement1").Value = Sheets("prelevement").Cells(j, 9)
Sheets("SG").Range("Dépot").Value = Sheets("prelevement").Cells(j, 10)
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"
If Sheets("SG").text = "DATE" Then
Cells(j, 1) = Sheets("SG").text = "DATE"
Sheets("prelevement").Cells(j, 1) = Sheets("SG").text = "Tiers"
End If
If Sheets("SG").Range("Tiers") = "Tiers" Then
Sheets("prelevement").Cells(j, 3) = Sheets("SG").text = "Tiers"
End If
If Sheets("SG").Range("Paiement1") Then
Sheets("prelevement").Cells(j, 6) = Sheets("SG").text = "Paiement1"
End If
If Sheets("SG").Range("Dépot") Then
Sheets("prelevement").Cells(j, 7) = Sheets("SG").text = "Dépot"
End If
End If
Next j >ça bug
End Sub
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
Bonjour
il y a certainement des incohérences avec l'intention dans ce code
par exemple ici
VB: 
If Sheets("prelevement").Cells(j, 10) <> "" Then
                    MsgBox "Payer LE DEPOT" & "" & Sheets("prelevement").Cells(j, 10).Value
                    Réponse = MsgBox(prompt:=" le montant est de " & Sheets("prelevement").Cells(j, 10), Buttons:=vbYesNo + vbDefaultButton2)
                    If Réponse = vbYes Then
                        nombre = InputBox(prompt:="Veuillez indiquer le montant ")
                    End If
                End If
                If Not IsNumeric(nombre) Then
                    MsgBox "Vous devez entrez un nombre!"
                    'Exit Sub
                End If
                If StrPtr(nombre) = 0 Then
                    MsgBox "Vous avez annuler la saisie"
                    Exit Sub
                End If
que se passe t il selon toi si ce n'est pas numérique ce qui est tapé dans l'input
ben le code continue
donc juste avant tu met un msgbox vbok simple d'avertissement a la limite si tu n'est pas épileptique ca peut passer
ensuite tu renvoie un nouveau msgbox cette fois ci en responsif
et si tu repond oui le imputbox s'affiche pour taper la somme
si tu te trompe tu fait rien

ca fait un peu ratatouille ton code là
perso entre nous j'aurais mis simplement un inputbox avec le message des msgbox
si tu anule tu continue
si tu te trompe tu rappelle
si c'est bon ca continue
le tout en un seul truc
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
J'ai bien regardé le code du post #6 et le seul endroit où il y a incohérence c'est en lignes 10 et 11.

Il faut remplacer :
VB: 
If Cells(j, 3).Value = "" Then
Cells(j + 1, 3).Select
par :
VB: 
If Cells(j, 3).Value = "" Then
Cells(j + 1, 3).Select
End If
ou plus simplement par :
VB: 
If Cells(j, 3).Value = "" Then Cells(j + 1, 3).Select
Bien entendu à la fin retirer > ça bug à droite de Next j.
 
Vote positif 0 Vote négatif
JBARBE

JBARBE

XLDnaute Barbatruc
fichier modifier !
merci à tous,
j'ai pu trouver aprés une longue recherche reste à acheminer cela dans des cellules vides aprés next j dans 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

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