Plusieurs scénarios dans une boucle if

Re : Plusieurs scénarios dans une boucle if

Bonjour,

etonnant que cela fonctionne déjà en l'état, tu ne peux commencer ton test pas "elseif"... remplace par "if"... d'autre part il manque un "end sub"..

bonne journée
@+

Re : Plusieurs scénarios dans une boucle if

Créer une varaible compteur qui s'incrémente comme suit
compteur=compteur +1 à placer avant le exit sub
flyonets

Re : Plusieurs scénarios dans une boucle if

Oui t'as raisons, mais il s'agit d'un extrait du code, il y a déjà une condition IF avant celle-ci et il y en a d'autre après, le end sub vient après :

Sub Supprimer_RV()


If blablablabl
Exit Sub

ElseIf blbalbalba
Exit Sub

ElseIf (Cells(3, ActiveCell.Column) + Cells(ActiveCell.Row, 1)) - Now < 3 And QuiNivo < 2 Then
If MsgBox("L'annulation de votre livraison 72h avant son arrivée entraine une pénalité de 100 Euros." & vbCrLf & vbCrLf & _
"Etes-vous sûr de vouloir supprimer cette livraison ?", _
vbExclamation + vbYesNo, "Suppression tardive") = vbNo Then
Exit Sub
End If

blabla

End Sub

Je pensais créer un variable compteur mais je ne sais pas l'integrer. Et je ne sais pas faire : Si .....= VbNo Alors et Si ...... = VbYs Alors execute supprimer_rv et ajoute +1 à la cellule ...

Re : Plusieurs scénarios dans une boucle if

bonjour Savsa, Pierrot🙂
Là Pierrot je vais suivre la discussion avec beaucoup d'intérêt car tu n'es pas au bout de tes peines vu la réponse que tu as eu courage!!!
Savsa, ta macro est confidentielle et le fichier aussi ????
a+
papou

Re : Plusieurs scénarios dans une boucle if

Re, bonjour Papou🙂

oui tu as raison Papou, avec des "if blabla", perso peux rien faire, je passe la main...

Re : Plusieurs scénarios dans une boucle if

Bonjour,

lol veuillez m'excuser, je pensais pas que cela était important. Je reprends :

Mon code est le suivant :

Sub Supprimer_RV()

If Not IsNumeric(ActiveSheet.Name) Or _
ActiveCell.Value = "" Or _
Intersect(ActiveCell, Range("B4:H52")) Is Nothing Then
MsgBox "Il n'y a pas de rendez-vous à supprimer dans cette cellule.", _
vbInformation, "Pas de rendez-vous"
Exit Sub

ElseIf ActiveWorkbook.ReadOnly = True Then
MsgBox "Votre agenda est ouvert en lecture seule. Vous ne pouvez donc pas " & _
"supprimer un rendez-vous pour l'instant.", vbInformation, "Lecture seule"
Exit Sub


ElseIf (Cells(3, ActiveCell.Column) + Cells(ActiveCell.Row, 1)) - Now < 3 And QuiNivo < 2 Then
If MsgBox("L'annulation de votre livraison 72h avant son arrivée entraine une pénalité de 100 Euros." & vbCrLf & vbCrLf & _
"Etes-vous sûr de vouloir supprimer cette livraison ?", _
vbExclamation + vbYesNo, "Suppression tardive") = vbNo Then
Exit Sub
End If


End Sub

et je voudrais faire :


Sub Supprimer_RV()

If Not IsNumeric(ActiveSheet.Name) Or _
ActiveCell.Value = "" Or _
Intersect(ActiveCell, Range("B4:H52")) Is Nothing Then
MsgBox "Il n'y a pas de rendez-vous à supprimer dans cette cellule.", _
vbInformation, "Pas de rendez-vous"
Exit Sub

ElseIf ActiveWorkbook.ReadOnly = True Then
MsgBox "Votre agenda est ouvert en lecture seule. Vous ne pouvez donc pas " & _
"supprimer un rendez-vous pour l'instant.", vbInformation, "Lecture seule"
Exit Sub


ElseIf (Cells(3, ActiveCell.Column) + Cells(ActiveCell.Row, 1)) - Now < 3 And QuiNivo < 2 Then
If MsgBox("L'annulation de votre livraison 72h avant son arrivée entraine une pénalité de 100 Euros." & vbCrLf & vbCrLf & _
"Etes-vous sûr de vouloir supprimer cette livraison ?", _
vbExclamation + vbYesNo, "Suppression tardive") = vbNo Then
Exit Sub

And If MsgBox("L'annulation de votre livraison 72h avant son arrivée entraine une pénalité de 100 Euros." & vbCrLf & vbCrLf & _
"Etes-vous sûr de vouloir supprimer cette livraison ?", _
vbExclamation + vbYesNo, "Suppression tardive") = vbYes Then

On supprime le rendez vous par contre on ajoute +1 dans la celulle A3

End If

End Sub


Désolé pour mes messages peu clair. Quand le nez dans son programme, on ne pense pas que ce que l'on peu écrire peut être incompréhensible...

Merci

Re : Plusieurs scénarios dans une boucle if

Re bonjour Savsa, le forum
Il semble que tu ais la tête un peu dur, mais bon je vais te faire un essai ci-dessous mais si cela ne marche pas ne le dis surtout pas car autrement je vais te traiter de ...
voilà en partant du bout de macro sans fichier!!!!
a+
papou🙂