J'ai fait une fonction pour insérer une colonne ... mais je rencontre un
problème que je n'ai jamais vu : la boucle s'arrête avant d'avoir balayé
toute les colonnes !!!
Un coup ça marche ... un coup ça plante ... je comprends rien :-(
Je vois bien que le problème vient de l'UsedRange mais je n'arrive pas
comprendre pourquoi ... la seule chose qui pourrait l'influencer c'est que
j'insère des lignes (tient-il compte de cela pour mettre à jour le range
utilisé ? peut-on mettre à jour le range en cours d'exécution d'une boucle).
Je veux juste comprendre ici l'utilisation de l'argu UsedRange ... parce que
j'ai régler l'erreur en remplaçant Sheets("Planning
Annuel").UsedRange.Columns.Count par 255.
Merci !!!
Private Function insert_duree()
Dim j As Single
Dim k As Single
Sheets("Planning Annuel").Select
Colomn_Test = 3
For j = Colomn_Test To Sheets("Planning
Annuel").UsedRange.Columns.Count
J'ai fait une fonction pour insérer une colonne ... mais je rencontre un problème que je n'ai jamais vu : la boucle s'arrête avant d'avoir bal ayé toute les colonnes !!!
Un coup ça marche ... un coup ça plante ... je comprends rien :-(
Je vois bien que le problème vient de l'UsedRange mais je n'arrive pas comprendre pourquoi ... la seule chose qui pourrait l'influencer c'est que j'insère des lignes (tient-il compte de cela pour mettre à jour le ra nge utilisé ? peut-on mettre à jour le range en cours d'exécution d'une boucle).
Je veux juste comprendre ici l'utilisation de l'argu UsedRange ... parce que j'ai régler l'erreur en remplaçant Sheets("Planning Annuel").UsedRange.Columns.Count par 255.
Merci !!!
Private Function insert_duree()
Dim j As Single Dim k As Single
Sheets("Planning Annuel").Select Colomn_Test = 3
For j = Colomn_Test To Sheets("Planning Annuel").UsedRange.Columns.Count
JB
On 14 août, 14:16, Vader <Va...@discussions.microsoft.com> wrote:
Bonjour,
J'ai fait une fonction pour insérer une colonne ... mais je rencontre un
problème que je n'ai jamais vu : la boucle s'arrête avant d'avoir bal ayé
toute les colonnes !!!
Un coup ça marche ... un coup ça plante ... je comprends rien :-(
Je vois bien que le problème vient de l'UsedRange mais je n'arrive pas
comprendre pourquoi ... la seule chose qui pourrait l'influencer c'est que
j'insère des lignes (tient-il compte de cela pour mettre à jour le ra nge
utilisé ? peut-on mettre à jour le range en cours d'exécution d'une boucle).
Je veux juste comprendre ici l'utilisation de l'argu UsedRange ... parce que
j'ai régler l'erreur en remplaçant Sheets("Planning
Annuel").UsedRange.Columns.Count par 255.
Merci !!!
Private Function insert_duree()
Dim j As Single
Dim k As Single
Sheets("Planning Annuel").Select
Colomn_Test = 3
For j = Colomn_Test To Sheets("Planning
Annuel").UsedRange.Columns.Count
J'ai fait une fonction pour insérer une colonne ... mais je rencontre un problème que je n'ai jamais vu : la boucle s'arrête avant d'avoir bal ayé toute les colonnes !!!
Un coup ça marche ... un coup ça plante ... je comprends rien :-(
Je vois bien que le problème vient de l'UsedRange mais je n'arrive pas comprendre pourquoi ... la seule chose qui pourrait l'influencer c'est que j'insère des lignes (tient-il compte de cela pour mettre à jour le ra nge utilisé ? peut-on mettre à jour le range en cours d'exécution d'une boucle).
Je veux juste comprendre ici l'utilisation de l'argu UsedRange ... parce que j'ai régler l'erreur en remplaçant Sheets("Planning Annuel").UsedRange.Columns.Count par 255.
Merci !!!
Private Function insert_duree()
Dim j As Single Dim k As Single
Sheets("Planning Annuel").Select Colomn_Test = 3
For j = Colomn_Test To Sheets("Planning Annuel").UsedRange.Columns.Count
J'ai fait une fonction pour insérer une colonne ... mais je rencontre un problème que je n'ai jamais vu : la boucle s'arrête avant d'avoir balayé toute les colonnes !!!
Un coup ça marche ... un coup ça plante ... je comprends rien :-(
Je vois bien que le problème vient de l'UsedRange mais je n'arrive pas comprendre pourquoi ... la seule chose qui pourrait l'influencer c'est que j'insère des lignes (tient-il compte de cela pour mettre à jour le range utilisé ? peut-on mettre à jour le range en cours d'exécution d'une boucle).
Je veux juste comprendre ici l'utilisation de l'argu UsedRange ... parce que j'ai régler l'erreur en remplaçant Sheets("Planning Annuel").UsedRange.Columns.Count par 255.
Merci !!!
Private Function insert_duree()
Dim j As Single Dim k As Single
Sheets("Planning Annuel").Select Colomn_Test = 3
For j = Colomn_Test To Sheets("Planning Annuel").UsedRange.Columns.Count
JB
On 14 août, 14:16, Vader <Va...@discussions.microsoft.com> wrote:
Bonjour,
J'ai fait une fonction pour insérer une colonne ... mais je rencontre un
problème que je n'ai jamais vu : la boucle s'arrête avant d'avoir balayé
toute les colonnes !!!
Un coup ça marche ... un coup ça plante ... je comprends rien :-(
Je vois bien que le problème vient de l'UsedRange mais je n'arrive pas
comprendre pourquoi ... la seule chose qui pourrait l'influencer c'est que
j'insère des lignes (tient-il compte de cela pour mettre à jour le range
utilisé ? peut-on mettre à jour le range en cours d'exécution d'une boucle).
Je veux juste comprendre ici l'utilisation de l'argu UsedRange ... parce que
j'ai régler l'erreur en remplaçant Sheets("Planning
Annuel").UsedRange.Columns.Count par 255.
Merci !!!
Private Function insert_duree()
Dim j As Single
Dim k As Single
Sheets("Planning Annuel").Select
Colomn_Test = 3
For j = Colomn_Test To Sheets("Planning
Annuel").UsedRange.Columns.Count
J'ai fait une fonction pour insérer une colonne ... mais je rencontre un problème que je n'ai jamais vu : la boucle s'arrête avant d'avoir balayé toute les colonnes !!!
Un coup ça marche ... un coup ça plante ... je comprends rien :-(
Je vois bien que le problème vient de l'UsedRange mais je n'arrive pas comprendre pourquoi ... la seule chose qui pourrait l'influencer c'est que j'insère des lignes (tient-il compte de cela pour mettre à jour le range utilisé ? peut-on mettre à jour le range en cours d'exécution d'une boucle).
Je veux juste comprendre ici l'utilisation de l'argu UsedRange ... parce que j'ai régler l'erreur en remplaçant Sheets("Planning Annuel").UsedRange.Columns.Count par 255.
Merci !!!
Private Function insert_duree()
Dim j As Single Dim k As Single
Sheets("Planning Annuel").Select Colomn_Test = 3
For j = Colomn_Test To Sheets("Planning Annuel").UsedRange.Columns.Count