Bonjour à tous,
A première lecture, il n'y a pas d'erreur ;-)
La boucle pourrait être optimisée mais cela ne changerait rien à ton
problème.
J'ai l'intuition que le problème réside dans l'état actuel de ton d ossier et
te suggère d'essayer ta macro dans un nouveau fichier car il doit y avo ir un
parasite quelque part dans ton fichier.
Pour t'aider plus ou tester, il faudrait mettre ton fichier sur Cjoint.
A+
PaulV
a écrit dans le message de news:
Tout d'abord salut à tous :)
Voici maintenant 2 jours que je cherche à résoudre une erreure dans
mon code. Pour information, la partie qui bugg marchait très bien
auparavant et maintenant ne veut plus marcher alors que je n'ai pas
changé de post. J'ai essayé de rajouter le workbooks en instruction,
d'enlever le worksheets, rien n'y fait. J'ai même rajouté l'argument
Across (qui est pourtant facultatif) en lui donnant sa valeur de base.
Alors si quelqu'un pouvait regarder si il apercevait l'erreur ca serait
grandement sympa :)
Les lignes qui buggent sont les instructions de fusions de cellules :
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
Voici le début de mon code :
Private Sub jalon_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Fin As Integer
Dim Fin2 As Integer
Fin = Worksheets("Trame").Range("A65536").End(xlUp).Row
Fin2 = Worksheets("Dossier").Range("F65536").End(xlUp).Row
Debut = 11
'On demande à l'utilisateur de confirmer son choix
Avertissement = MsgBox("Êtes vous sûr de vouloir générer les
tâches standardes? Ceci effacera toutes les tâches en cours", 308,
"Génération des tâches standardes")
If Avertissement = 6 Then
'Si la date de prise en charge du dossier est vide on la remplit
If Worksheets("Dossier").Cells(1, 4) = "" Then
Worksheets("Dossier").Cells(1, 4) = Date
'On efface tout si il y a au moins une valeur
If Range("A13") <> "" Then Worksheets("Dossier").Range("A" & Debut
& ":I" & Fin2).Delete Shift:=xlShiftUp
'On parcourt le tableau des tâches standardes du début à la fin
For i = Debut To Fin
'On récupère la valeur de la dernière ligne remplie
Fin2 =
Worksheets("Dossier").Range("A65536").End(xlUp).Offset(1, 0).Row
'On insère une nouvelle ligne
Worksheets("Dossier").Range("A" & Fin2 + 1 & ":I" & Fin2 +
1).Insert Shift:=xlShiftDown
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
'On copie la valeur
Worksheets("Dossier").Cells(Fin2, 1) =
Worksheets("Trame").Cells(i, 1)
Worksheets("Dossier").Cells(Fin2, 2) =
Worksheets("Trame").Cells(i, 2)
Worksheets("Dossier").Cells(Fin2, 6) = "NF"
Next i
Merci d'avance
Bonjour à tous,
A première lecture, il n'y a pas d'erreur ;-)
La boucle pourrait être optimisée mais cela ne changerait rien à ton
problème.
J'ai l'intuition que le problème réside dans l'état actuel de ton d ossier et
te suggère d'essayer ta macro dans un nouveau fichier car il doit y avo ir un
parasite quelque part dans ton fichier.
Pour t'aider plus ou tester, il faudrait mettre ton fichier sur Cjoint.
A+
PaulV
<escoune@gmail.com> a écrit dans le message de news:
1150882789.960094.129100@c74g2000cwc.googlegroups.com...
Tout d'abord salut à tous :)
Voici maintenant 2 jours que je cherche à résoudre une erreure dans
mon code. Pour information, la partie qui bugg marchait très bien
auparavant et maintenant ne veut plus marcher alors que je n'ai pas
changé de post. J'ai essayé de rajouter le workbooks en instruction,
d'enlever le worksheets, rien n'y fait. J'ai même rajouté l'argument
Across (qui est pourtant facultatif) en lui donnant sa valeur de base.
Alors si quelqu'un pouvait regarder si il apercevait l'erreur ca serait
grandement sympa :)
Les lignes qui buggent sont les instructions de fusions de cellules :
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
Voici le début de mon code :
Private Sub jalon_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Fin As Integer
Dim Fin2 As Integer
Fin = Worksheets("Trame").Range("A65536").End(xlUp).Row
Fin2 = Worksheets("Dossier").Range("F65536").End(xlUp).Row
Debut = 11
'On demande à l'utilisateur de confirmer son choix
Avertissement = MsgBox("Êtes vous sûr de vouloir générer les
tâches standardes? Ceci effacera toutes les tâches en cours", 308,
"Génération des tâches standardes")
If Avertissement = 6 Then
'Si la date de prise en charge du dossier est vide on la remplit
If Worksheets("Dossier").Cells(1, 4) = "" Then
Worksheets("Dossier").Cells(1, 4) = Date
'On efface tout si il y a au moins une valeur
If Range("A13") <> "" Then Worksheets("Dossier").Range("A" & Debut
& ":I" & Fin2).Delete Shift:=xlShiftUp
'On parcourt le tableau des tâches standardes du début à la fin
For i = Debut To Fin
'On récupère la valeur de la dernière ligne remplie
Fin2 =
Worksheets("Dossier").Range("A65536").End(xlUp).Offset(1, 0).Row
'On insère une nouvelle ligne
Worksheets("Dossier").Range("A" & Fin2 + 1 & ":I" & Fin2 +
1).Insert Shift:=xlShiftDown
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
'On copie la valeur
Worksheets("Dossier").Cells(Fin2, 1) =
Worksheets("Trame").Cells(i, 1)
Worksheets("Dossier").Cells(Fin2, 2) =
Worksheets("Trame").Cells(i, 2)
Worksheets("Dossier").Cells(Fin2, 6) = "NF"
Next i
Merci d'avance
Bonjour à tous,
A première lecture, il n'y a pas d'erreur ;-)
La boucle pourrait être optimisée mais cela ne changerait rien à ton
problème.
J'ai l'intuition que le problème réside dans l'état actuel de ton d ossier et
te suggère d'essayer ta macro dans un nouveau fichier car il doit y avo ir un
parasite quelque part dans ton fichier.
Pour t'aider plus ou tester, il faudrait mettre ton fichier sur Cjoint.
A+
PaulV
a écrit dans le message de news:
Tout d'abord salut à tous :)
Voici maintenant 2 jours que je cherche à résoudre une erreure dans
mon code. Pour information, la partie qui bugg marchait très bien
auparavant et maintenant ne veut plus marcher alors que je n'ai pas
changé de post. J'ai essayé de rajouter le workbooks en instruction,
d'enlever le worksheets, rien n'y fait. J'ai même rajouté l'argument
Across (qui est pourtant facultatif) en lui donnant sa valeur de base.
Alors si quelqu'un pouvait regarder si il apercevait l'erreur ca serait
grandement sympa :)
Les lignes qui buggent sont les instructions de fusions de cellules :
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
Voici le début de mon code :
Private Sub jalon_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Fin As Integer
Dim Fin2 As Integer
Fin = Worksheets("Trame").Range("A65536").End(xlUp).Row
Fin2 = Worksheets("Dossier").Range("F65536").End(xlUp).Row
Debut = 11
'On demande à l'utilisateur de confirmer son choix
Avertissement = MsgBox("Êtes vous sûr de vouloir générer les
tâches standardes? Ceci effacera toutes les tâches en cours", 308,
"Génération des tâches standardes")
If Avertissement = 6 Then
'Si la date de prise en charge du dossier est vide on la remplit
If Worksheets("Dossier").Cells(1, 4) = "" Then
Worksheets("Dossier").Cells(1, 4) = Date
'On efface tout si il y a au moins une valeur
If Range("A13") <> "" Then Worksheets("Dossier").Range("A" & Debut
& ":I" & Fin2).Delete Shift:=xlShiftUp
'On parcourt le tableau des tâches standardes du début à la fin
For i = Debut To Fin
'On récupère la valeur de la dernière ligne remplie
Fin2 =
Worksheets("Dossier").Range("A65536").End(xlUp).Offset(1, 0).Row
'On insère une nouvelle ligne
Worksheets("Dossier").Range("A" & Fin2 + 1 & ":I" & Fin2 +
1).Insert Shift:=xlShiftDown
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
'On copie la valeur
Worksheets("Dossier").Cells(Fin2, 1) =
Worksheets("Trame").Cells(i, 1)
Worksheets("Dossier").Cells(Fin2, 2) =
Worksheets("Trame").Cells(i, 2)
Worksheets("Dossier").Cells(Fin2, 6) = "NF"
Next i
Merci d'avance
Je le mettrais ce soir (actuellement le proxy de mon travail m'empêche
d'y accéder).
Merci bien.Bonjour à tous,
A première lecture, il n'y a pas d'erreur ;-)
La boucle pourrait être optimisée mais cela ne changerait rien à ton
problème.
J'ai l'intuition que le problème réside dans l'état actuel de ton dossier et
te suggère d'essayer ta macro dans un nouveau fichier car il doit y a voir un
parasite quelque part dans ton fichier.
Pour t'aider plus ou tester, il faudrait mettre ton fichier sur Cjoint.
A+
PaulV
a écrit dans le message de news:
Tout d'abord salut à tous :)
Voici maintenant 2 jours que je cherche à résoudre une erreure dans
mon code. Pour information, la partie qui bugg marchait très bien
auparavant et maintenant ne veut plus marcher alors que je n'ai pas
changé de post. J'ai essayé de rajouter le workbooks en instruction,
d'enlever le worksheets, rien n'y fait. J'ai même rajouté l'argument
Across (qui est pourtant facultatif) en lui donnant sa valeur de base.
Alors si quelqu'un pouvait regarder si il apercevait l'erreur ca serait
grandement sympa :)
Les lignes qui buggent sont les instructions de fusions de cellules :
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
Voici le début de mon code :
Private Sub jalon_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Fin As Integer
Dim Fin2 As Integer
Fin = Worksheets("Trame").Range("A65536").End(xlUp).Row
Fin2 = Worksheets("Dossier").Range("F65536").End(xlUp).Row
Debut = 11
'On demande à l'utilisateur de confirmer son choix
Avertissement = MsgBox("Êtes vous sûr de vouloir générer les
tâches standardes? Ceci effacera toutes les tâches en cours", 308,
"Génération des tâches standardes")
If Avertissement = 6 Then
'Si la date de prise en charge du dossier est vide on la remplit
If Worksheets("Dossier").Cells(1, 4) = "" Then
Worksheets("Dossier").Cells(1, 4) = Date
'On efface tout si il y a au moins une valeur
If Range("A13") <> "" Then Worksheets("Dossier").Range("A" & Debut
& ":I" & Fin2).Delete Shift:=xlShiftUp
'On parcourt le tableau des tâches standardes du début à la f in
For i = Debut To Fin
'On récupère la valeur de la dernière ligne remplie
Fin2 =
Worksheets("Dossier").Range("A65536").End(xlUp).Offset(1, 0).Row
'On insère une nouvelle ligne
Worksheets("Dossier").Range("A" & Fin2 + 1 & ":I" & Fin2 +
1).Insert Shift:=xlShiftDown
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
'On copie la valeur
Worksheets("Dossier").Cells(Fin2, 1) =
Worksheets("Trame").Cells(i, 1)
Worksheets("Dossier").Cells(Fin2, 2) =
Worksheets("Trame").Cells(i, 2)
Worksheets("Dossier").Cells(Fin2, 6) = "NF"
Next i
Merci d'avance
Je le mettrais ce soir (actuellement le proxy de mon travail m'empêche
d'y accéder).
Merci bien.
Bonjour à tous,
A première lecture, il n'y a pas d'erreur ;-)
La boucle pourrait être optimisée mais cela ne changerait rien à ton
problème.
J'ai l'intuition que le problème réside dans l'état actuel de ton dossier et
te suggère d'essayer ta macro dans un nouveau fichier car il doit y a voir un
parasite quelque part dans ton fichier.
Pour t'aider plus ou tester, il faudrait mettre ton fichier sur Cjoint.
A+
PaulV
<escoune@gmail.com> a écrit dans le message de news:
1150882789.960094.129100@c74g2000cwc.googlegroups.com...
Tout d'abord salut à tous :)
Voici maintenant 2 jours que je cherche à résoudre une erreure dans
mon code. Pour information, la partie qui bugg marchait très bien
auparavant et maintenant ne veut plus marcher alors que je n'ai pas
changé de post. J'ai essayé de rajouter le workbooks en instruction,
d'enlever le worksheets, rien n'y fait. J'ai même rajouté l'argument
Across (qui est pourtant facultatif) en lui donnant sa valeur de base.
Alors si quelqu'un pouvait regarder si il apercevait l'erreur ca serait
grandement sympa :)
Les lignes qui buggent sont les instructions de fusions de cellules :
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
Voici le début de mon code :
Private Sub jalon_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Fin As Integer
Dim Fin2 As Integer
Fin = Worksheets("Trame").Range("A65536").End(xlUp).Row
Fin2 = Worksheets("Dossier").Range("F65536").End(xlUp).Row
Debut = 11
'On demande à l'utilisateur de confirmer son choix
Avertissement = MsgBox("Êtes vous sûr de vouloir générer les
tâches standardes? Ceci effacera toutes les tâches en cours", 308,
"Génération des tâches standardes")
If Avertissement = 6 Then
'Si la date de prise en charge du dossier est vide on la remplit
If Worksheets("Dossier").Cells(1, 4) = "" Then
Worksheets("Dossier").Cells(1, 4) = Date
'On efface tout si il y a au moins une valeur
If Range("A13") <> "" Then Worksheets("Dossier").Range("A" & Debut
& ":I" & Fin2).Delete Shift:=xlShiftUp
'On parcourt le tableau des tâches standardes du début à la f in
For i = Debut To Fin
'On récupère la valeur de la dernière ligne remplie
Fin2 =
Worksheets("Dossier").Range("A65536").End(xlUp).Offset(1, 0).Row
'On insère une nouvelle ligne
Worksheets("Dossier").Range("A" & Fin2 + 1 & ":I" & Fin2 +
1).Insert Shift:=xlShiftDown
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
'On copie la valeur
Worksheets("Dossier").Cells(Fin2, 1) =
Worksheets("Trame").Cells(i, 1)
Worksheets("Dossier").Cells(Fin2, 2) =
Worksheets("Trame").Cells(i, 2)
Worksheets("Dossier").Cells(Fin2, 6) = "NF"
Next i
Merci d'avance
Je le mettrais ce soir (actuellement le proxy de mon travail m'empêche
d'y accéder).
Merci bien.Bonjour à tous,
A première lecture, il n'y a pas d'erreur ;-)
La boucle pourrait être optimisée mais cela ne changerait rien à ton
problème.
J'ai l'intuition que le problème réside dans l'état actuel de ton dossier et
te suggère d'essayer ta macro dans un nouveau fichier car il doit y a voir un
parasite quelque part dans ton fichier.
Pour t'aider plus ou tester, il faudrait mettre ton fichier sur Cjoint.
A+
PaulV
a écrit dans le message de news:
Tout d'abord salut à tous :)
Voici maintenant 2 jours que je cherche à résoudre une erreure dans
mon code. Pour information, la partie qui bugg marchait très bien
auparavant et maintenant ne veut plus marcher alors que je n'ai pas
changé de post. J'ai essayé de rajouter le workbooks en instruction,
d'enlever le worksheets, rien n'y fait. J'ai même rajouté l'argument
Across (qui est pourtant facultatif) en lui donnant sa valeur de base.
Alors si quelqu'un pouvait regarder si il apercevait l'erreur ca serait
grandement sympa :)
Les lignes qui buggent sont les instructions de fusions de cellules :
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
Voici le début de mon code :
Private Sub jalon_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Fin As Integer
Dim Fin2 As Integer
Fin = Worksheets("Trame").Range("A65536").End(xlUp).Row
Fin2 = Worksheets("Dossier").Range("F65536").End(xlUp).Row
Debut = 11
'On demande à l'utilisateur de confirmer son choix
Avertissement = MsgBox("Êtes vous sûr de vouloir générer les
tâches standardes? Ceci effacera toutes les tâches en cours", 308,
"Génération des tâches standardes")
If Avertissement = 6 Then
'Si la date de prise en charge du dossier est vide on la remplit
If Worksheets("Dossier").Cells(1, 4) = "" Then
Worksheets("Dossier").Cells(1, 4) = Date
'On efface tout si il y a au moins une valeur
If Range("A13") <> "" Then Worksheets("Dossier").Range("A" & Debut
& ":I" & Fin2).Delete Shift:=xlShiftUp
'On parcourt le tableau des tâches standardes du début à la f in
For i = Debut To Fin
'On récupère la valeur de la dernière ligne remplie
Fin2 =
Worksheets("Dossier").Range("A65536").End(xlUp).Offset(1, 0).Row
'On insère une nouvelle ligne
Worksheets("Dossier").Range("A" & Fin2 + 1 & ":I" & Fin2 +
1).Insert Shift:=xlShiftDown
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
'On copie la valeur
Worksheets("Dossier").Cells(Fin2, 1) =
Worksheets("Trame").Cells(i, 1)
Worksheets("Dossier").Cells(Fin2, 2) =
Worksheets("Trame").Cells(i, 2)
Worksheets("Dossier").Cells(Fin2, 6) = "NF"
Next i
Merci d'avance
Pour information : je viens de copier mon fichier sur le bureau, j'ai
lancé la macro, et ça marche.
Il y a vraiment des choses que je comprendrais jamais ^^
Pour information : je viens de copier mon fichier sur le bureau, j'ai
lancé la macro, et ça marche.
Il y a vraiment des choses que je comprendrais jamais ^^
Pour information : je viens de copier mon fichier sur le bureau, j'ai
lancé la macro, et ça marche.
Il y a vraiment des choses que je comprendrais jamais ^^
Bonjour , une petite idée,
les parties à fusioner sont elle vide ?
Quand tu fusionne des cellules non vide (en plmus de celle en haut à
gauche , excel demande une confirmation, peut étre le bug se trouve l à ?
Ou bien, peut étre les cellules sont dejas fusionné avec d'autres
cellules de facon incompatible avec le nouveau fusionnement ? (dans ce
cas tester un Cells.UnMerge au debut)Pour information : je viens de copier mon fichier sur le bureau, j'ai
lancé la macro, et ça marche.
Il y a vraiment des choses que je comprendrais jamais ^^
Bonjour , une petite idée,
les parties à fusioner sont elle vide ?
Quand tu fusionne des cellules non vide (en plmus de celle en haut à
gauche , excel demande une confirmation, peut étre le bug se trouve l à ?
Ou bien, peut étre les cellules sont dejas fusionné avec d'autres
cellules de facon incompatible avec le nouveau fusionnement ? (dans ce
cas tester un Cells.UnMerge au debut)
Pour information : je viens de copier mon fichier sur le bureau, j'ai
lancé la macro, et ça marche.
Il y a vraiment des choses que je comprendrais jamais ^^
Bonjour , une petite idée,
les parties à fusioner sont elle vide ?
Quand tu fusionne des cellules non vide (en plmus de celle en haut à
gauche , excel demande une confirmation, peut étre le bug se trouve l à ?
Ou bien, peut étre les cellules sont dejas fusionné avec d'autres
cellules de facon incompatible avec le nouveau fusionnement ? (dans ce
cas tester un Cells.UnMerge au debut)Pour information : je viens de copier mon fichier sur le bureau, j'ai
lancé la macro, et ça marche.
Il y a vraiment des choses que je comprendrais jamais ^^
Je le mettrais ce soir (actuellement le proxy de mon travail m'empêche
d'y accéder).
Merci bien.Bonjour à tous,
A première lecture, il n'y a pas d'erreur ;-)
La boucle pourrait être optimisée mais cela ne changerait rien à ton
problème.
J'ai l'intuition que le problème réside dans l'état actuel de ton
dossier et
te suggère d'essayer ta macro dans un nouveau fichier car il doit y
avoir un
parasite quelque part dans ton fichier.
Pour t'aider plus ou tester, il faudrait mettre ton fichier sur Cjoint.
A+
PaulV
a écrit dans le message de news:
Tout d'abord salut à tous :)
Voici maintenant 2 jours que je cherche à résoudre une erreure dans
mon code. Pour information, la partie qui bugg marchait très bien
auparavant et maintenant ne veut plus marcher alors que je n'ai pas
changé de post. J'ai essayé de rajouter le workbooks en instruction,
d'enlever le worksheets, rien n'y fait. J'ai même rajouté l'argument
Across (qui est pourtant facultatif) en lui donnant sa valeur de base.
Alors si quelqu'un pouvait regarder si il apercevait l'erreur ca serait
grandement sympa :)
Les lignes qui buggent sont les instructions de fusions de cellules :
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
Voici le début de mon code :
Private Sub jalon_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Fin As Integer
Dim Fin2 As Integer
Fin = Worksheets("Trame").Range("A65536").End(xlUp).Row
Fin2 = Worksheets("Dossier").Range("F65536").End(xlUp).Row
Debut = 11
'On demande à l'utilisateur de confirmer son choix
Avertissement = MsgBox("Êtes vous sûr de vouloir générer les
tâches standardes? Ceci effacera toutes les tâches en cours", 308,
"Génération des tâches standardes")
If Avertissement = 6 Then
'Si la date de prise en charge du dossier est vide on la remplit
If Worksheets("Dossier").Cells(1, 4) = "" Then
Worksheets("Dossier").Cells(1, 4) = Date
'On efface tout si il y a au moins une valeur
If Range("A13") <> "" Then Worksheets("Dossier").Range("A" & Debut
& ":I" & Fin2).Delete Shift:=xlShiftUp
'On parcourt le tableau des tâches standardes du début à la fin
For i = Debut To Fin
'On récupère la valeur de la dernière ligne remplie
Fin2 > > Worksheets("Dossier").Range("A65536").End(xlUp).Offset(1, 0).Row
'On insère une nouvelle ligne
Worksheets("Dossier").Range("A" & Fin2 + 1 & ":I" & Fin2 +
1).Insert Shift:=xlShiftDown
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
'On copie la valeur
Worksheets("Dossier").Cells(Fin2, 1) > > Worksheets("Trame").Cells(i, 1)
Worksheets("Dossier").Cells(Fin2, 2) > > Worksheets("Trame").Cells(i, 2)
Worksheets("Dossier").Cells(Fin2, 6) = "NF"
Next i
Merci d'avance
Je le mettrais ce soir (actuellement le proxy de mon travail m'empêche
d'y accéder).
Merci bien.
Bonjour à tous,
A première lecture, il n'y a pas d'erreur ;-)
La boucle pourrait être optimisée mais cela ne changerait rien à ton
problème.
J'ai l'intuition que le problème réside dans l'état actuel de ton
dossier et
te suggère d'essayer ta macro dans un nouveau fichier car il doit y
avoir un
parasite quelque part dans ton fichier.
Pour t'aider plus ou tester, il faudrait mettre ton fichier sur Cjoint.
A+
PaulV
<escoune@gmail.com> a écrit dans le message de news:
1150882789.960094.129100@c74g2000cwc.googlegroups.com...
Tout d'abord salut à tous :)
Voici maintenant 2 jours que je cherche à résoudre une erreure dans
mon code. Pour information, la partie qui bugg marchait très bien
auparavant et maintenant ne veut plus marcher alors que je n'ai pas
changé de post. J'ai essayé de rajouter le workbooks en instruction,
d'enlever le worksheets, rien n'y fait. J'ai même rajouté l'argument
Across (qui est pourtant facultatif) en lui donnant sa valeur de base.
Alors si quelqu'un pouvait regarder si il apercevait l'erreur ca serait
grandement sympa :)
Les lignes qui buggent sont les instructions de fusions de cellules :
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
Voici le début de mon code :
Private Sub jalon_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Fin As Integer
Dim Fin2 As Integer
Fin = Worksheets("Trame").Range("A65536").End(xlUp).Row
Fin2 = Worksheets("Dossier").Range("F65536").End(xlUp).Row
Debut = 11
'On demande à l'utilisateur de confirmer son choix
Avertissement = MsgBox("Êtes vous sûr de vouloir générer les
tâches standardes? Ceci effacera toutes les tâches en cours", 308,
"Génération des tâches standardes")
If Avertissement = 6 Then
'Si la date de prise en charge du dossier est vide on la remplit
If Worksheets("Dossier").Cells(1, 4) = "" Then
Worksheets("Dossier").Cells(1, 4) = Date
'On efface tout si il y a au moins une valeur
If Range("A13") <> "" Then Worksheets("Dossier").Range("A" & Debut
& ":I" & Fin2).Delete Shift:=xlShiftUp
'On parcourt le tableau des tâches standardes du début à la fin
For i = Debut To Fin
'On récupère la valeur de la dernière ligne remplie
Fin2 > > Worksheets("Dossier").Range("A65536").End(xlUp).Offset(1, 0).Row
'On insère une nouvelle ligne
Worksheets("Dossier").Range("A" & Fin2 + 1 & ":I" & Fin2 +
1).Insert Shift:=xlShiftDown
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
'On copie la valeur
Worksheets("Dossier").Cells(Fin2, 1) > > Worksheets("Trame").Cells(i, 1)
Worksheets("Dossier").Cells(Fin2, 2) > > Worksheets("Trame").Cells(i, 2)
Worksheets("Dossier").Cells(Fin2, 6) = "NF"
Next i
Merci d'avance
Je le mettrais ce soir (actuellement le proxy de mon travail m'empêche
d'y accéder).
Merci bien.Bonjour à tous,
A première lecture, il n'y a pas d'erreur ;-)
La boucle pourrait être optimisée mais cela ne changerait rien à ton
problème.
J'ai l'intuition que le problème réside dans l'état actuel de ton
dossier et
te suggère d'essayer ta macro dans un nouveau fichier car il doit y
avoir un
parasite quelque part dans ton fichier.
Pour t'aider plus ou tester, il faudrait mettre ton fichier sur Cjoint.
A+
PaulV
a écrit dans le message de news:
Tout d'abord salut à tous :)
Voici maintenant 2 jours que je cherche à résoudre une erreure dans
mon code. Pour information, la partie qui bugg marchait très bien
auparavant et maintenant ne veut plus marcher alors que je n'ai pas
changé de post. J'ai essayé de rajouter le workbooks en instruction,
d'enlever le worksheets, rien n'y fait. J'ai même rajouté l'argument
Across (qui est pourtant facultatif) en lui donnant sa valeur de base.
Alors si quelqu'un pouvait regarder si il apercevait l'erreur ca serait
grandement sympa :)
Les lignes qui buggent sont les instructions de fusions de cellules :
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
Voici le début de mon code :
Private Sub jalon_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Fin As Integer
Dim Fin2 As Integer
Fin = Worksheets("Trame").Range("A65536").End(xlUp).Row
Fin2 = Worksheets("Dossier").Range("F65536").End(xlUp).Row
Debut = 11
'On demande à l'utilisateur de confirmer son choix
Avertissement = MsgBox("Êtes vous sûr de vouloir générer les
tâches standardes? Ceci effacera toutes les tâches en cours", 308,
"Génération des tâches standardes")
If Avertissement = 6 Then
'Si la date de prise en charge du dossier est vide on la remplit
If Worksheets("Dossier").Cells(1, 4) = "" Then
Worksheets("Dossier").Cells(1, 4) = Date
'On efface tout si il y a au moins une valeur
If Range("A13") <> "" Then Worksheets("Dossier").Range("A" & Debut
& ":I" & Fin2).Delete Shift:=xlShiftUp
'On parcourt le tableau des tâches standardes du début à la fin
For i = Debut To Fin
'On récupère la valeur de la dernière ligne remplie
Fin2 > > Worksheets("Dossier").Range("A65536").End(xlUp).Offset(1, 0).Row
'On insère une nouvelle ligne
Worksheets("Dossier").Range("A" & Fin2 + 1 & ":I" & Fin2 +
1).Insert Shift:=xlShiftDown
'On fusionne les cellules qu'il faut
Worksheets("Dossier").Range("B" & Fin2 + 1 & ":C" & Fin2 +
1).Merge
Worksheets("Dossier").Range("D" & Fin2 + 1 & ":E" & Fin2 +
1).Merge
'On copie la valeur
Worksheets("Dossier").Cells(Fin2, 1) > > Worksheets("Trame").Cells(i, 1)
Worksheets("Dossier").Cells(Fin2, 2) > > Worksheets("Trame").Cells(i, 2)
Worksheets("Dossier").Cells(Fin2, 6) = "NF"
Next i
Merci d'avance
rassure-toi, escoune, tu n'es pas tout seul dans ce cas...oserais-je
ajouter que la plupart des cas le sont?
jps
a écrit dans le message de news:
Il y a vraiment des choses que je comprendrai jamais ^^
rassure-toi, escoune, tu n'es pas tout seul dans ce cas...oserais-je
ajouter que la plupart des cas le sont?
jps
<escoune@gmail.com> a écrit dans le message de news:
1150893630.867290.270410@m73g2000cwd.googlegroups.com...
Il y a vraiment des choses que je comprendrai jamais ^^
rassure-toi, escoune, tu n'es pas tout seul dans ce cas...oserais-je
ajouter que la plupart des cas le sont?
jps
a écrit dans le message de news:
Il y a vraiment des choses que je comprendrai jamais ^^