Problème Exit For

youky(BJ)

XLDnaute Barbatruc

• 27 Janvier 2018

• #2

Bonsoir Calvus,
La macro comporte 2 For, tu le fait sortir d'un For mais il reste sur l'autre For
Il faudrait mettre Exit Sub et si la macro doit continuer mettre ci-dessous exemple Goto suite
For f = 3 To 13 Step 2
For g = 3 To 8
If Cells(f, g) = Date_de_ce_Mois + 7 Then Cells(f + 1, g).Select: Goto suite
Next
Next

suite:
'et la suite de la macro

Bruno

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 27 Janvier 2018

• #3

Bonsoir Calvus,

As-tu testé avec exit for sur la ligne suivante? avec un petit ça aurait été mieux.

VB:

ActiveSheet.Cells(k + 1, l).Interior.Color = 9277427
                    l = l + 1
                     Exit For
                    If l = 8 Then l = 3

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 27 Janvier 2018

• #4

bonsoir Youky,

Ok je vois.

Merci, je vais modifier tout ça.

Bonne soirée.

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 27 Janvier 2018

• #5

Bonsoir Cp4,

Non, ce n'est pas là qu'est le problème.

Merci quand même.

Bonne soirée.

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 28 Janvier 2018

• #6

Bonjour,

n'aimant pas trop les goto j'aurais fait ça :

VB:

For f = 3 To 13 Step 2
    For g = 3 To 8
        If ActiveSheet.Cells(f, g) = Date_de_ce_Mois + 7 Then ActiveSheet.Cells(f + 1, g).Select: Exit For
    Next
    If g <9 Then Exit For
Next

eric

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 28 Janvier 2018

• #7

Bonsoir,

Bien vu. J'ai tourné autour de quelque chose comme ça mais je formulais mal.
C'est nickel comme ça.

Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Janvier 2018

• #8

Bonjour le fil, le forum

@Calvus
Ma contribution du dimanche matin (au sortir de la douche) 😉

VB:

Sub TroisPourLePrix_D_Un()
DernJourA = DateSerial(Feuil1.[L2], Month(1 & "/" & ActiveSheet.Name) + 1, 1) - 1
DernJourB = DateSerial(Year(Date), Month(Date) + 1, 0)
DernJourC = CDate(Application.EoMonth(Date, 0))

MsgBox DernJourA
MsgBox DernJourB
MsgBox DernJourC
End Sub

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 28 Janvier 2018

• #9

Bonjour JM😉,

Il y a un message d'erreur d’exécution 13, 'incompatibilité de type' sur la ligne ci-dessous

VB:

DernJourA = DateSerial(Feuil1.[L2], Month(1 & "/" & ActiveSheet.Name) + 1, 1) - 1

Bon dimanche🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Janvier 2018

• #10

Re, bonjour cp4

C'est normal qu'il y ait un message d'erreur
puisque mon code s'adressait à Calvus (qui lui seul détient son classeur en captivité sur son disque dur 😉 )
Si tu ne veux pas de message d'erreur, voici une version spéciale cp4 😉

VB:

Sub TroisPourLePrix_D_Un()
'Pour cp4 ;)
Feuil1.[L2] = "2018": ActiveSheet.Name = "2018"

DernJourA = DateSerial(Feuil1.[L2], Month(1 & "/" & ActiveSheet.Name) + 1, 1) - 1
DernJourB = DateSerial(Year(Date), Month(Date) + 1, 0)
DernJourC = CDate(Application.EoMonth(Date, 0))

MsgBox DernJourA
MsgBox DernJourB
MsgBox DernJourC
End Sub

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 28 Janvier 2018

• #11

Staple1600 à dit:

Re, bonjour cp4

C'est normal qu'il y ait un message d'erreur
puisque mon code s'adressait à Calvus (qui lui seul détient son classeur en captivité sur son disque dur 😉 )
Si tu ne veux pas de message d'erreur, voici une version spéciale cp4 😉

Cliquez pour agrandir...

Merci pour le code. Même sans le fichier de Calvus, j'ai ouvert un fichier et dans la cellule L2 de la feuil1, j'ai mis une date. Normalement, le code n'aurait pas dû planté?🙁
Merci beaucoup.

edit: j'ai bien compris ton code, d'où le plantage avec une date en L2.

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 2 Février 2018

• #12

Bonjour à tous,

Merci Staple1600 pour cette astuce.
Je ne connaissais pas EoMonth, et c"est pas faute d'avoir cherché !

Staple1600 à dit:

puisque mon code s'adressait à Calvus (qui lui seul détient son classeur en captivité sur son disque dur 😉 )

Cliquez pour agrandir...

Ben le fichier il est là..
Alors tu vois, je capte rien du tout en itivité ! 😉

A bientôt 😉

 

Vote positif 0 Vote négatif