IF THEN ELSE dans userform ne fonctionne pas.

Version imprimable

Bonjour à tous.tes,

Dans la macro suivante j'aimerai que l'userform m'indique quelles relances factures sont à faire. Il y'a 4 types de relances, relance 1 si date échéance dépassé de 7 jours, relance 2 à 15 jours, relance 3 à 30 jours et huissier à 38 jours. Pour cela il compare la date d'échéance de la facture avec un intervalle de date et une cellule de relance.

La macro ci-dessus ne représente que la première partie, concernant la relance 1. (les relances 2,3,huissier viendront s'incruster avec des elseif dans le même principe de structure).

En seconde partie de développement (pas présent sur cette macro), j'aimerais qu'une fois le commentaire rentré dans la textbox correspondantes, que les données soient recopiées au bon endroit en chemin inverse puis l'userform relancé, et ainsi de suite jusqu'à temps qu'il n'y ai plus de relances à faire et que ça m'affiche la msgbox "PAS/PLUS de relances pour cette semaine".

POUR LE MOMENT : si je n'écris pas Else: MsgBox "Pas/plus de relance cette semaine", vbOKOnly, "Pas de relance", alors toutes les données s'affichent dans les textbox, la msgbox relance 1 s'affiche puis disparaît quand je clique sur ok. Tout est donc parfait sur ce point mais dès que je veux rajouter la dimension Else: MsgBox "Pas/plus de relance cette semaine", vbOKOnly, "Pas de relance" alors cette msg box ne fait que d'apparaître et ne se ferme que quand je spam le ok et aucune donnée ne se charge dans le tableau.

SI quelqu'un pourrait m'éclairer sur mon erreur, ce serait super, merci d'avance :)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 Private Sub UserForm_Activate() Dim z As Long Dim lastligne As Integer 'Derniere ligne du tableau de la feuille Ansot lastligne = Sheets("Ansot").Range("A65536").End(xlUp).Row For z = 2 To lastligne If Worksheets("Ansot").Cells(z, 4).Value <= DateAdd("d", -7, Date) And Worksheets("Ansot").Cells(z, 4).Value > DateAdd("d", -14, Date) And IsEmpty(Worksheets("Ansot").Cells(z, 18)) = True Then With UserForm3 .TextBoxA = Worksheets("Ansot").Cells(z, 1).Value .TextBoxB = CDate(Cells(z, 2).Value) .TextBoxC = CDate(Cells(z, 4).Value) .TextBoxD = CDbl(Cells(z, 5).Value) * 1 .TextBoxE = Cells(z, 6).Value .TextBoxF = CDbl(Cells(z, 13).Value) * 1 .TextBoxRE1 = Cells(z, 18).Value .TextBoxRE2 = Cells(z, 19).Value .TextBoxRE3 = Cells(z, 20).Value .TextBoxREH = Cells(z, 21).Value End With MsgBox "remplir relance 1", vbOKOnly, "Relance 1" If response = vbOK Then Exit Sub Exit For Else: MsgBox "Pas/plus de relance cette semaine", vbOKOnly, "Pas de relance" End If End If Next z End Sub

03/05/2019, 20h38
unparia

Bonjour
Déjà :

Code:

If response = vbOK Then

Response, ni déclarée ni initialisée, ne risque pas de valoir vbOk

Je t'invite à ouvrir ton aide interne VBA à la rubrique MsgBox, fonction, exemple
03/05/2019, 21h57
unparia

Et mon message précédent : sans préjudice de tout le reste, y compris de sa logique
Que fait selon toi une instruction Exit For et (pire) une instruction Exit Sub ?

Et qu'est ce "tableau" dans :

Citation:

quand je spam le ok et aucune donnée ne se charge dans le tableau.

???????
Je ne vois d'ailleurs aucune alimentation de "tableau" dans ton code.

Et j'imagine que par ""je spam" tu veux dire que tu ne cliques pas sur OK ? Si c'est cela, dis-le en Français, car pour moi le verbe anglais "to spam" a une signification précise et le substantif anglais "spam" encore une autre (et aucune des deux ne saurait concerner une msgbox)
04/05/2019, 09h58
patricktoulon

1 pièce(s) jointe(s)

re

re
Bonjour
tes date dans ton tableau sont elles exploitable ?

pour le msgbox avec réponse F1 !!!

Pièce jointe 472059

Bonjour unparia et patricktoulon, merci pour vos réponses.

unparia et patricktoulon : j'ai retravaillé les textbox avec l'aide, je n'avais en effet pas déclaré "response".
unparia : le exit for quitte la boucle pour la reprendre à next ; exit sub quitte la macro en cours

Voilà maintenant ma macro, pourriez-vous m'aidez à comprendre pourquoi le else ne se comporte pas comme tel ?
Petit question pour être sûr : une MFC n'influe en rien sur la considération d'une cellule comme étant vide ou non ?
Est-ce que mes dateadd sont bien écrits ? Je pense que oui mais depuis l'ajout du IF en haut, ça ne semble plus fonctionner donc je me demandais si le dateadd avec un décalage de 30 jours et 37 jours ne posait pas un litige entre décaler jours ou mois.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
Private Sub UserForm_Activate()
Dim z As Long
Dim lastligne As Integer
    lastligne = Sheets("Ansot").Range("A65536").End(xlUp).Row
Dim Msg, Style, Title, Response
 
MsgR1 = "Merci de renseignez les actions menées en relance 1"
MsgR2 = "Merci de renseignez les actions menées en relance 2"
MsgR3 = "Mercir de renseignez les actions menées en relance 3"
MsgPasR = "Il n'y a pas/plus de relance cette semaine"
Style = vbOKOnly
TitleR1 = "Relance1"
TitleR2 = "Relance2"
TitleR3 = "Relance3"
TitlePasR = "A jour"
 
 
 
For z = 2 To lastligne
If (Worksheets("Ansot").Cells(z, 4).Value <= DateAdd("d", -30, Date) And Worksheets("Ansot").Cells(z, 4).Value >= DateAdd("d", -37, Date) And (IsEmpty(Worksheets("Ansot").Cells(z, 20)) = True)) Then
 
 
    ResponseR3 = MsgBox(MsgR3, Style, TitleR3)
        If ResponseR3 = Ok Then
 
            With UserForm3
            .TextBoxA = Worksheets("Ansot").Cells(z, 1).Value
            .TextBoxB = CDate(Cells(z, 2).Value)
            .TextBoxC = CDate(Cells(z, 4).Value)
            .TextBoxD = CDbl(Cells(z, 5).Value) * 1
            .TextBoxE = Cells(z, 6).Value
            .TextBoxF = CDbl(Cells(z, 13).Value) * 1
            .TextBoxRE1 = Cells(z, 18).Value
            .TextBoxRE2 = Cells(z, 19).Value
            .TextBoxRE3 = Cells(z, 20).Value
            .TextBoxREH = Cells(z, 21).Value
            End With
 
        Exit For
        End If
 
ElseIf (Worksheets("Ansot").Cells(z, 4).Value <= DateAdd("d", -15, Date) And Worksheets("Ansot").Cells(z, 4).Value >= DateAdd("d", -29, Date) And (IsEmpty(Worksheets("Ansot").Cells(z, 19)) = True)) Then
 
    ResponseR2 = MsgBox(MsgR2, Style, TitleR2)
        If ResponseR2 = Ok Then
 
            With UserForm3
            .TextBoxA = Worksheets("Ansot").Cells(z, 1).Value
            .TextBoxB = CDate(Cells(z, 2).Value)
            .TextBoxC = CDate(Cells(z, 4).Value)
            .TextBoxD = CDbl(Cells(z, 5).Value) * 1
            .TextBoxE = Cells(z, 6).Value
            .TextBoxF = CDbl(Cells(z, 13).Value) * 1
            .TextBoxRE1 = Cells(z, 18).Value
            .TextBoxRE2 = Cells(z, 19).Value
            .TextBoxRE3 = Cells(z, 20).Value
            .TextBoxREH = Cells(z, 21).Value
            End With
 
        Exit For
        End If
ElseIf (Worksheets("Ansot").Cells(z, 4).Value <= DateAdd("d", -7, Date) And Worksheets("Ansot").Cells(z, 4).Value >= DateAdd("d", -14, Date) And IsEmpty(Worksheets("Ansot").Cells(z, 18)) = True) Then
 
 
 
    ResponseR1 = MsgBox(MsgR1, Style, TitleR1)
        If ResponseR1 = Ok Then
 
            With UserForm3
            .TextBoxA = Worksheets("Ansot").Cells(z, 1).Value
            .TextBoxB = CDate(Cells(z, 2).Value)
            .TextBoxC = CDate(Cells(z, 4).Value)
            .TextBoxD = CDbl(Cells(z, 5).Value) * 1
            .TextBoxE = Cells(z, 6).Value
            .TextBoxF = CDbl(Cells(z, 13).Value) * 1
            .TextBoxRE1 = Cells(z, 18).Value
            .TextBoxRE2 = Cells(z, 19).Value
            .TextBoxRE3 = Cells(z, 20).Value
            .TextBoxREH = Cells(z, 21).Value
            End With
 
        Exit For
        End If
 
 
 
Else: ResponsePasR = MsgBox(MsgPasR, Style, TitlePasR)
        If ResponsePasR = Ok Then
        Exit Sub
        Unload Me
        End If
 
 
 
End If
Next z
 
End Sub

re
bonjour

j'ai examiné ton code
donc au final(et la je vais te mettre la puce a l'oreille"j'espère!!")
nous avons 4 conditions
relance1 , relance2 , relance3 , pas de relance (on est d'accord???)

et donc selon le résultat de la condition de 1 a 3) seul le texte du message change!!!!(msgr1,2,3) ainsi que le titre
ensuite lors de l'affichage de un de ces 3 message et clique sur OK tu rempli tes controls de la même manière pour les 3
donc déjà ici par rapport a ton code on pédale un peu pour rien (a quoi sert de faire 3 codes successifs pour changer juste le texte
pour la 4eme condition c'est simple tu ferme le UserForm au clik ok du message

je pense que j'ai bien compris(tu me diras)
il me vient donc une réflexion (je me demande pourquoi tu utilise le mode réponse d'un msgbox surtout que tu n'a que le bouton OK
selon moi entre nous c'est absolument inutile n'ayant pas d'autre choix que ok(un simple msgbox d'avertissement suffirait
un msgbox étant bloquant le click sur ok provoquerait tout simplement l'exécution le reste du code(tu me diras si tu pige pas)

je me suis donc risqué a recoder ton petit projet(sans garantie je n'ai pas ton environnement et ton fichier)

voila comment je vois la chose
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 Private Sub UserForm_Activate() Dim z As Long, relance As Boolean, m$, t$, msgr, titler, ShT As worksheet Dim lastligne As Integer lastligne = Sheets("Ansot").Range("A65536").End(xlUp).Row msgr = Array(, "Merci de renseignez les actions menées en relance 1", "Merci de renseignez les actions menées en relance 2", "Mercir de renseignez les actions menées en relance 3") titler = Array(, "Relance1", "Relance2", "Relance3") Set ShT = Worksheets("Ansot") For z = 2 To lastligne With ShT If .Cells(z, 4).Value <= Date - 30 And .Cells(z, 4).Value >= Date - 37 And IsEmpty(.Cells(z, 20) = True) Then m = msgr1: t = titler(1): relance = True If m = "" And .Cells(z, 4).Value <= Date - 15 And .Cells(z, 4).Value >= Date - 29 And IsEmpty(.Cells(z, 19) = True) Then m = msgr2: t = titler(2): relance = True If m = "" And .Cells(z, 4).Value <= Date - 7 And .Cells(z, 4).Value >= Date - 14 And IsEmpty(.Cells(z, 18) = True) Then m = msgr3: t = titler(3): relance = True End With Next If relance = False Then m = "Il n'y a pas/plus de relance cette semaine": t = "a jour" MsgBox m, , t If relance = True Then With UserForm3 .TextBoxA = ShT.Cells(z, 1).Value .TextBoxB = CDate(ShT.Cells(z, 2).Value) .TextBoxC = CDate(ShT.Cells(z, 4).Value) .TextBoxD = CDbl(ShT.Cells(z, 5).Value) * 1 .TextBoxE = ShT.Cells(z, 6).Value .TextBoxF = CDbl(ShT.Cells(z, 13).Value) * 1 .TextBoxRE1 = ShT.Cells(z, 18).Value .TextBoxRE2 = ShT.Cells(z, 19).Value .TextBoxRE3 = ShT.Cells(z, 20).Value .TextBoxREH = ShT.Cells(z, 21).Value End With Else unlod Me End If End Sub
je pense que c'est pas trop compliqué tu comprendra tout seul ;)

Attention tout de même chose que je ne peux pas verifier (je n'ai pas ton fichier) vérifie bien que des dates soit exploitable entant que date dans tes cellules !!!!!!!!!!!!!!!!!

07/05/2019, 15h35
ricnoy

Je n'avais pas pensé avec cette logique c'est vrai.

J'ai plusieurs questions/remarques :

1) Il y'aura bien une quatrième relance huissier mais je saurai l'intégrer par la suite avec tous ces outils

2) Cette macro n'est pas encore complète car le vendeur devra après consignes données, remplir la case demandée et un bouton valider copiera les lignes et relancera l'userform, le vendeur remplira ainsi toutes les relances jusqu'à temps d'arriver sur "plus de relance"

3) je ne comprends pas "l'utilité" du "if m="" au début des deux conditions ?

4) Pourquoi doit-on écrire le chiffre de titler entre parenthèse et pas celui de msgr ?

5) ça ne semble pas fonctionner, car par exemple j'ai bien une ligne avec date (colonne 4) au 7 avril et case vide de Relance 3 (colonne 20) et ça me donne directement "il n'y a plus de relance".

6) La succession if, if, if équivaut à if, elseif, elseif ?

7) Comment "traduire" le next dans cet exemple, je pensais que celui-ci avait pour but de passer à la step d'après dans la boucle for ?

pour 1) de la même manière que les 3 autres
pour 2) il faudrait donner tout les tenants et les aboutissants si tu veux que l'on t'aide si toi-même tu sais pas tout on va pas y arriver
pour 3) dans ton model à toi tu exit sub moi les 2 lignes avec if m="" ne font rien si m a déjà été instruit par la précédente ligne
pour 4) msgr(x) c'est le texte du message et titler c'est le texte qu'il y a dans la caption du msgbox ce sont des variables tableau(array)
pour 5) comme je te l'ai dit fait bien attention à ce que tes dates soient des dates dans les cellules et non un texte de date cela dit on peut améliorer ce control très simplement
pour 6) non pas exactement en fait j'ai dé imbriqué tes 3 conditions
pour7) ben oui on passe à la cellule suivante ça ça ne change pas

donc au cas où tes dates n'en seraient pas vraiment dans les cellules tu convertis la valeur de la cellule en date et tu compares sa valeur numérique à la valeur numérique de la date du jour
Code:

1 2 3 4 5 With ShT If CLng(CDate(.Cells(Z, 4).Text)) <= CLng(Date - 30) And CLng(CDate(.Cells(Z, 4).Text)) >= CLng(Date - 37) And IsEmpty(.Cells(Z, 20) = True) Then m = msgr1: t = titler(1): relance = True If m = "" And CLng(CDate(.Cells(Z, 4).Text)) <= CLng(Date - 15) And CLng(CDate(.Cells(Z, 4).Text)) >= CLng(Date - 29) And IsEmpty(.Cells(Z, 19) = True) Then m = msgr2: t = titler(2): relance = True If m = "" And CLng(CDate(.Cells(Z, 4).Text)) <= CLng(Date - 7) And CLng(CDate(.Cells(Z, 4).Text)) >= CLng(Date - 14) And IsEmpty(.Cells(Z, 18) = True) Then m = msgr3: t = titler(3): relance = True End With
c'est un peu le soucis de beaucoup à développez bout par bout on arrive à plus pouvoir évoluer
un code ça se couche théoriquement sur le papier ou dans un bloc note par exemple : de la première action à la dernière

07/05/2019, 17h04
ricnoy

Merci pour les infos.

Mais du coup msgr1 doit plutôt s'écrire msgr(1) non ?
Mes dates sont bien en format date.

Puis-je t'envoyer mon fichier en privé ?
07/05/2019, 17h11
patricktoulon

re

Oupss oui excuse moi pour msgr1/msgr(1) tu a raison c'est bien ceux avec parenthèse qu'il faut corrige le ;)
09/05/2019, 13h59
ricnoy

Par msg privé

Bonjour patricktoulon,

j'ai bien corrigé. Vous sembliez intéressé par avoir une version de mon fichier afin de mieux m'orienter, je vous ai donc envoyé un message privé avec le fichier.

Vous pouvez aussi répondre ici si vous préférez.

Merci d'avance ! :)
09/05/2019, 18h48
patricktoulon

re

re
bonjour
je t'ai dis un exemple de quelque lignes ton fichier fait 76 mega octets je vais pas le télécharger ca c'est sur je prendrais pas ce risque désolé
10/05/2019, 13h45
ricnoy

réponse

Bonjour,

je comprends en effet. Il vous faudrait en gros un condensé du fichier ?
10/05/2019, 14h45
patricktoulon

RE

re ben oui
et en fait 74 méga honnêtement ca m'inquiète!! je suis pas sur que ca tourne très bien tout ca
je te dis pas le temps d'ouverture du fichier entre autres comme incommodité d'utilisation
perso il me faut juste un exemple de UserForm avec ton bouton qui modifie les emplacement et propriétés des controls je ferais l'adaptation avec mon redim usf
c'est pas compliqué