Integration calcul du nbr de jour ouvrés VBA
Résolu/Fermé
Eaheru
Eaheru
- Messages postés
- 197
- Date d'inscription
- mercredi 23 juin 2010
- Statut
- Membre
- Dernière intervention
- 12 mars 2018
Eaheru
- Messages postés
- 197
- Date d'inscription
- mercredi 23 juin 2010
- Statut
- Membre
- Dernière intervention
- 12 mars 2018
A voir également:
- Integration calcul du nbr de jour ouvrés VBA
- Integration calcul du nbr de jour ouvrés VBA ✓ - Forum - VB / VBA
- Calcul de nombre de jours ouvrés VBA EXCEL ✓ - Forum - VB / VBA
- Nbr de jour ouvre dans ACCESS ✓ - Forum - Programmation
- Calcul du nombres de jours ouvrés ✓ - Forum - Excel
- Calculer un nbr de jours élevé en date normal ✓ - Forum - Programmation
2 réponses
Eaheru
7 juil. 2010 à 16:59
- Messages postés
- 197
- Date d'inscription
- mercredi 23 juin 2010
- Statut
- Membre
- Dernière intervention
- 12 mars 2018
7 juil. 2010 à 16:59
Je progresse dans mon dépannage et voici ou j'en suis :
J'ai donc la boucle :
ElseIf Not Intersect(Target, Range("I" & lig)) Is Nothing Then
Cells(lig, 1).Resize(1, 12).Locked = (Cells(lig, 9) <> "")
Cells(lig, 10) = Now()
Cells(lig, 11).FormulaR1C1 = "=NETWORKDAYS(RC[-6],RC[-4])"
End If
qui ne fonctionne pas.
mais si je fais :
ElseIf Not Intersect(Target, Range("I" & lig)) Is Nothing Then
Cells(lig, 1).Resize(1, 12).Locked = (Cells(lig, 9) <> "")
'Cells(lig, 10) = Now()
Cells(lig, 11).FormulaR1C1 = "=NETWORKDAYS(RC[-6],RC[-4])"
End If
la ligne 'Cells(lig, 10) = Now() étant commentée
La boucle s'exécute parfaitement et ne plante pas.
Si je fais :
ElseIf Not Intersect(Target, Range("I" & lig)) Is Nothing Then
Cells(lig, 1).Resize(1, 12).Locked = (Cells(lig, 9) <> "")
Cells(lig, 10) = Now()
'Cells(lig, 11).FormulaR1C1 = "=NETWORKDAYS(RC[-6],RC[-4])"
End If
la ligne 'Cells(lig, 11).FormulaR1C1 = "=NETWORKDAYS(RC[-6],RC[-4])" étant commentée
La aussi la boucle s'exécute sans problème.
Donc il doit y avoir une règle (que je cherche) :limitant le nombre d'action dans ce type de boucle ? commet peut on s'affranchir de cette limite ?
Merci d'avance
J'ai donc la boucle :
ElseIf Not Intersect(Target, Range("I" & lig)) Is Nothing Then
Cells(lig, 1).Resize(1, 12).Locked = (Cells(lig, 9) <> "")
Cells(lig, 10) = Now()
Cells(lig, 11).FormulaR1C1 = "=NETWORKDAYS(RC[-6],RC[-4])"
End If
qui ne fonctionne pas.
mais si je fais :
ElseIf Not Intersect(Target, Range("I" & lig)) Is Nothing Then
Cells(lig, 1).Resize(1, 12).Locked = (Cells(lig, 9) <> "")
'Cells(lig, 10) = Now()
Cells(lig, 11).FormulaR1C1 = "=NETWORKDAYS(RC[-6],RC[-4])"
End If
la ligne 'Cells(lig, 10) = Now() étant commentée
La boucle s'exécute parfaitement et ne plante pas.
Si je fais :
ElseIf Not Intersect(Target, Range("I" & lig)) Is Nothing Then
Cells(lig, 1).Resize(1, 12).Locked = (Cells(lig, 9) <> "")
Cells(lig, 10) = Now()
'Cells(lig, 11).FormulaR1C1 = "=NETWORKDAYS(RC[-6],RC[-4])"
End If
la ligne 'Cells(lig, 11).FormulaR1C1 = "=NETWORKDAYS(RC[-6],RC[-4])" étant commentée
La aussi la boucle s'exécute sans problème.
Donc il doit y avoir une règle (que je cherche) :limitant le nombre d'action dans ce type de boucle ? commet peut on s'affranchir de cette limite ?
Merci d'avance
Eaheru
7 juil. 2010 à 17:39
- Messages postés
- 197
- Date d'inscription
- mercredi 23 juin 2010
- Statut
- Membre
- Dernière intervention
- 12 mars 2018
7 juil. 2010 à 17:39
Bonjour Eriic et merci de ta réponse.
Voici le lien vers l'exemple ... qui fonctionne sans que j'ai vraiment compris ce que j'ai modifié ... :)
http://www.cijoint.fr/cjlink.php?file=cj201007/cijXJPDQEF.xls
Voici le lien vers l'exemple ... qui fonctionne sans que j'ai vraiment compris ce que j'ai modifié ... :)
http://www.cijoint.fr/cjlink.php?file=cj201007/cijXJPDQEF.xls
eriiic
7 juil. 2010 à 17:48
- Messages postés
- 24408
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 23 juin 2022
7 juil. 2010 à 17:48
Maintenant je résous par télépathie, ça va plus vite ;-)
eric
eric
Eaheru
7 juil. 2010 à 19:25
- Messages postés
- 197
- Date d'inscription
- mercredi 23 juin 2010
- Statut
- Membre
- Dernière intervention
- 12 mars 2018
7 juil. 2010 à 19:25
Ah ben oui, carrément ! :) merci de t'être penché sur le sujet en tout cas.comme tu peux le voir ta macro fonctionne très bien ! :)
7 juil. 2010 à 17:13
Il n'y a pas de limitation à l'intérieur d'une boucle.
Tu devrais être plus précis et donner les messages d'erreur.
Et encore mieux, déposer un fichier exemple sur cijoint.fr et coller ici le lien fourni
eric