Bonjour,
Quand je suis en groupe de travail et que je déplace ou copie , j'ai le
message suivant, je suis obligé de cliquer sur "Fin" autant de fois que j'ai
de feuilles en groupe de travail.
Erreur d'exécution 1004
La méthode 'Intersect' de l'objet'_Global' à échoué.
"Guy85" a écrit dans le message de groupe de discussion : # Bonjour, Quand je suis en groupe de travail et que je déplace ou copie , j'ai le message suivant, je suis obligé de cliquer sur "Fin" autant de fois que j'ai de feuilles en groupe de travail.
Erreur d'exécution 1004 La méthode 'Intersect' de l'objet'_Global' à échoué.
Merci de votre aide
Cordialement Guy
Bonjour,
Exemple que tu peux utiliser pour déplacer plus d'une feuille
dans la même commande :
"Guy85" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de groupe de discussion :
#5iVzqy9KHA.148@TK2MSFTNGP06.phx.gbl...
Bonjour,
Quand je suis en groupe de travail et que je déplace ou copie , j'ai le
message suivant, je suis obligé de cliquer sur "Fin" autant de fois que j'ai
de feuilles en groupe de travail.
Erreur d'exécution 1004
La méthode 'Intersect' de l'objet'_Global' à échoué.
"Guy85" a écrit dans le message de groupe de discussion : # Bonjour, Quand je suis en groupe de travail et que je déplace ou copie , j'ai le message suivant, je suis obligé de cliquer sur "Fin" autant de fois que j'ai de feuilles en groupe de travail.
Erreur d'exécution 1004 La méthode 'Intersect' de l'objet'_Global' à échoué.
Merci de votre aide
Cordialement Guy
Guy85
Bonjour, Ce n'est pas le problème de déplacer des feuilles. C'est de déplacer une ou des cellules dans une feuille et si c'est dans un groupe de travail, je suis obligé de cliquer autant de fois sur "Fin" pour pouvoir re travailler. Dans "ThisWorkbook" j'ai le code suivant :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Count > 1 Or Intersect(Target, Range("B3:D80")) Is Nothing Then Exit Sub Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).Interior.ColorIndex = xlNone On Error GoTo Fin
If Cells(Target.Row, 5) = "Alimentation" Then Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Interior.ColorIndex = 36 Exit Sub End If
If Cells(Target.Row, 2) = "Leroy Merlin" Then Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Interior.ColorIndex = 43 Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex = 1 Exit Sub End If
etc........etc.....
Fin: End Sub
Peut être que cela viens du code ?
Cordialement Guy
"michdenis" a écrit dans le message de news:
Bonjour,
Exemple que tu peux utiliser pour déplacer plus d'une feuille dans la même commande :
"Guy85" a écrit dans le message de groupe de discussion : # Bonjour, Quand je suis en groupe de travail et que je déplace ou copie , j'ai le message suivant, je suis obligé de cliquer sur "Fin" autant de fois que j'ai de feuilles en groupe de travail.
Erreur d'exécution 1004 La méthode 'Intersect' de l'objet'_Global' à échoué.
Merci de votre aide
Cordialement Guy
Bonjour,
Ce n'est pas le problème de déplacer des feuilles.
C'est de déplacer une ou des cellules dans une feuille et si c'est dans un
groupe de travail, je suis obligé de cliquer autant de fois sur "Fin" pour
pouvoir re travailler.
Dans "ThisWorkbook" j'ai le code suivant :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Or Intersect(Target, Range("B3:D80")) Is Nothing Then
Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).Interior.ColorIndex =
xlNone
On Error GoTo Fin
If Cells(Target.Row, 5) = "Alimentation" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 36
Exit Sub
End If
If Cells(Target.Row, 2) = "Leroy Merlin" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 43
Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex =
1
Exit Sub
End If
etc........etc.....
Fin:
End Sub
Peut être que cela viens du code ?
Cordialement
Guy
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
6182B707-8F44-4687-B047-C9172A6AA29F@microsoft.com...
Bonjour,
Exemple que tu peux utiliser pour déplacer plus d'une feuille
dans la même commande :
"Guy85" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de groupe de
discussion :
#5iVzqy9KHA.148@TK2MSFTNGP06.phx.gbl...
Bonjour,
Quand je suis en groupe de travail et que je déplace ou copie , j'ai le
message suivant, je suis obligé de cliquer sur "Fin" autant de fois que
j'ai
de feuilles en groupe de travail.
Erreur d'exécution 1004
La méthode 'Intersect' de l'objet'_Global' à échoué.
Bonjour, Ce n'est pas le problème de déplacer des feuilles. C'est de déplacer une ou des cellules dans une feuille et si c'est dans un groupe de travail, je suis obligé de cliquer autant de fois sur "Fin" pour pouvoir re travailler. Dans "ThisWorkbook" j'ai le code suivant :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Count > 1 Or Intersect(Target, Range("B3:D80")) Is Nothing Then Exit Sub Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).Interior.ColorIndex = xlNone On Error GoTo Fin
If Cells(Target.Row, 5) = "Alimentation" Then Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Interior.ColorIndex = 36 Exit Sub End If
If Cells(Target.Row, 2) = "Leroy Merlin" Then Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Interior.ColorIndex = 43 Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex = 1 Exit Sub End If
etc........etc.....
Fin: End Sub
Peut être que cela viens du code ?
Cordialement Guy
"michdenis" a écrit dans le message de news:
Bonjour,
Exemple que tu peux utiliser pour déplacer plus d'une feuille dans la même commande :
"Guy85" a écrit dans le message de groupe de discussion : # Bonjour, Quand je suis en groupe de travail et que je déplace ou copie , j'ai le message suivant, je suis obligé de cliquer sur "Fin" autant de fois que j'ai de feuilles en groupe de travail.
Erreur d'exécution 1004 La méthode 'Intersect' de l'objet'_Global' à échoué.
Merci de votre aide
Cordialement Guy
michdenis
| C'est de déplacer une ou des cellules dans une feuille ***Aucune idée de ce que tu veux dire.
Au lieu d'expliquer de me donner le code qui ne fonctionne pas, pourquoi ne pas décrire précisément ce que tu veux faire, mais que tu ne réussis pas à faire.
Tu peux publier toutes les procédures que tu voudras, si aucune d'elles ne fait ce que tu désires, comment je puis déduire ce que tu veux faire.
Si tu veux inclure dans ta question le code que tu utilises, ce n'est pas un problème, mais la publication du code ne peut pas remplacer l'explication de tes attentes d'une procédure qui fonctionnerait.
| C'est de déplacer une ou des cellules dans une feuille
***Aucune idée de ce que tu veux dire.
Au lieu d'expliquer de me donner le code qui ne fonctionne pas,
pourquoi ne pas décrire précisément ce que tu veux faire, mais que
tu ne réussis pas à faire.
Tu peux publier toutes les procédures que tu voudras, si aucune d'elles
ne fait ce que tu désires, comment je puis déduire ce que tu veux faire.
Si tu veux inclure dans ta question le code que tu utilises, ce n'est pas un
problème, mais la publication du code ne peut pas remplacer l'explication
de tes attentes d'une procédure qui fonctionnerait.
| C'est de déplacer une ou des cellules dans une feuille ***Aucune idée de ce que tu veux dire.
Au lieu d'expliquer de me donner le code qui ne fonctionne pas, pourquoi ne pas décrire précisément ce que tu veux faire, mais que tu ne réussis pas à faire.
Tu peux publier toutes les procédures que tu voudras, si aucune d'elles ne fait ce que tu désires, comment je puis déduire ce que tu veux faire.
Si tu veux inclure dans ta question le code que tu utilises, ce n'est pas un problème, mais la publication du code ne peut pas remplacer l'explication de tes attentes d'une procédure qui fonctionnerait.
Guy85
Bonjour, Je vais essayer d'être précis. Dans mon fichier, je veux travailler en groupe de travail. Je sélectionne par exemple 3 onglets. Sur une feuille, je sélectionne les cellules K3:L7. Je les copies en M3. Là apparait mon message en surlignant en jaune la ligne 2, c'est à dire : If Target.Count > 1 Or Intersect(Target, Range("B3:D80")) Is Nothing Then Exit Sub. Que je copie ou efface ou déplace quoique ce soit (une ou plusieurs cellule) en groupe de travail, j'ai le même message.
"michdenis" a écrit dans le message de news:
| C'est de déplacer une ou des cellules dans une feuille ***Aucune idée de ce que tu veux dire.
Au lieu d'expliquer de me donner le code qui ne fonctionne pas, pourquoi ne pas décrire précisément ce que tu veux faire, mais que tu ne réussis pas à faire.
Tu peux publier toutes les procédures que tu voudras, si aucune d'elles ne fait ce que tu désires, comment je puis déduire ce que tu veux faire.
Si tu veux inclure dans ta question le code que tu utilises, ce n'est pas un problème, mais la publication du code ne peut pas remplacer l'explication de tes attentes d'une procédure qui fonctionnerait.
Bonjour,
Je vais essayer d'être précis.
Dans mon fichier, je veux travailler en groupe de travail.
Je sélectionne par exemple 3 onglets.
Sur une feuille, je sélectionne les cellules K3:L7.
Je les copies en M3.
Là apparait mon message en surlignant en jaune la ligne 2, c'est à dire :
If Target.Count > 1 Or Intersect(Target, Range("B3:D80")) Is Nothing Then
Exit Sub.
Que je copie ou efface ou déplace quoique ce soit (une ou plusieurs cellule)
en groupe de travail, j'ai le même message.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
37D484ED-01E5-4AA6-A1BA-98927FDC6998@microsoft.com...
| C'est de déplacer une ou des cellules dans une feuille
***Aucune idée de ce que tu veux dire.
Au lieu d'expliquer de me donner le code qui ne fonctionne pas,
pourquoi ne pas décrire précisément ce que tu veux faire, mais que
tu ne réussis pas à faire.
Tu peux publier toutes les procédures que tu voudras, si aucune d'elles
ne fait ce que tu désires, comment je puis déduire ce que tu veux faire.
Si tu veux inclure dans ta question le code que tu utilises, ce n'est pas
un
problème, mais la publication du code ne peut pas remplacer l'explication
de tes attentes d'une procédure qui fonctionnerait.
Bonjour, Je vais essayer d'être précis. Dans mon fichier, je veux travailler en groupe de travail. Je sélectionne par exemple 3 onglets. Sur une feuille, je sélectionne les cellules K3:L7. Je les copies en M3. Là apparait mon message en surlignant en jaune la ligne 2, c'est à dire : If Target.Count > 1 Or Intersect(Target, Range("B3:D80")) Is Nothing Then Exit Sub. Que je copie ou efface ou déplace quoique ce soit (une ou plusieurs cellule) en groupe de travail, j'ai le même message.
"michdenis" a écrit dans le message de news:
| C'est de déplacer une ou des cellules dans une feuille ***Aucune idée de ce que tu veux dire.
Au lieu d'expliquer de me donner le code qui ne fonctionne pas, pourquoi ne pas décrire précisément ce que tu veux faire, mais que tu ne réussis pas à faire.
Tu peux publier toutes les procédures que tu voudras, si aucune d'elles ne fait ce que tu désires, comment je puis déduire ce que tu veux faire.
Si tu veux inclure dans ta question le code que tu utilises, ce n'est pas un problème, mais la publication du code ne peut pas remplacer l'explication de tes attentes d'une procédure qui fonctionnerait.
michdenis
Tu as oublié de mentionner que l'événement utilisé était dans le ThisWorkbook probablement celui-ci.
Je te propose de modifier ta procédure comme ceci: ATTENTION : les paramètres Sh et Target s'adressent qu'à une feuille et non pas à plusieurs feuilles lorsque plusieurs d'entre elles sont sélectionnées.
'------------------------------------ Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) For Each Sh In Worksheets If Sh.Range(Target.Address).Count > 1 Or _ Intersect(Sh.Range(Target.Address), _ Sh.Range("B3:D80")) Is Nothing Then Exit Sub End If Next End Sub '------------------------------------
"Guy85" a écrit dans le message de groupe de discussion : eb#KQQ# Bonjour, Je vais essayer d'être précis. Dans mon fichier, je veux travailler en groupe de travail. Je sélectionne par exemple 3 onglets. Sur une feuille, je sélectionne les cellules K3:L7. Je les copies en M3. Là apparait mon message en surlignant en jaune la ligne 2, c'est à dire : If Target.Count > 1 Or Intersect(Target, Range("B3:D80")) Is Nothing Then Exit Sub. Que je copie ou efface ou déplace quoique ce soit (une ou plusieurs cellule) en groupe de travail, j'ai le même message.
"michdenis" a écrit dans le message de news:
| C'est de déplacer une ou des cellules dans une feuille ***Aucune idée de ce que tu veux dire.
Au lieu d'expliquer de me donner le code qui ne fonctionne pas, pourquoi ne pas décrire précisément ce que tu veux faire, mais que tu ne réussis pas à faire.
Tu peux publier toutes les procédures que tu voudras, si aucune d'elles ne fait ce que tu désires, comment je puis déduire ce que tu veux faire.
Si tu veux inclure dans ta question le code que tu utilises, ce n'est pas un problème, mais la publication du code ne peut pas remplacer l'explication de tes attentes d'une procédure qui fonctionnerait.
Tu as oublié de mentionner que l'événement utilisé était dans le ThisWorkbook
probablement celui-ci.
Je te propose de modifier ta procédure comme ceci:
ATTENTION : les paramètres Sh et Target s'adressent qu'à une feuille
et non pas à plusieurs feuilles lorsque plusieurs d'entre elles sont
sélectionnées.
'------------------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each Sh In Worksheets
If Sh.Range(Target.Address).Count > 1 Or _
Intersect(Sh.Range(Target.Address), _
Sh.Range("B3:D80")) Is Nothing Then
Exit Sub
End If
Next
End Sub
'------------------------------------
"Guy85" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de groupe de discussion :
eb#KQQ#9KHA.4308@TK2MSFTNGP04.phx.gbl...
Bonjour,
Je vais essayer d'être précis.
Dans mon fichier, je veux travailler en groupe de travail.
Je sélectionne par exemple 3 onglets.
Sur une feuille, je sélectionne les cellules K3:L7.
Je les copies en M3.
Là apparait mon message en surlignant en jaune la ligne 2, c'est à dire :
If Target.Count > 1 Or Intersect(Target, Range("B3:D80")) Is Nothing Then
Exit Sub.
Que je copie ou efface ou déplace quoique ce soit (une ou plusieurs cellule)
en groupe de travail, j'ai le même message.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
37D484ED-01E5-4AA6-A1BA-98927FDC6998@microsoft.com...
| C'est de déplacer une ou des cellules dans une feuille
***Aucune idée de ce que tu veux dire.
Au lieu d'expliquer de me donner le code qui ne fonctionne pas,
pourquoi ne pas décrire précisément ce que tu veux faire, mais que
tu ne réussis pas à faire.
Tu peux publier toutes les procédures que tu voudras, si aucune d'elles
ne fait ce que tu désires, comment je puis déduire ce que tu veux faire.
Si tu veux inclure dans ta question le code que tu utilises, ce n'est pas
un
problème, mais la publication du code ne peut pas remplacer l'explication
de tes attentes d'une procédure qui fonctionnerait.
Tu as oublié de mentionner que l'événement utilisé était dans le ThisWorkbook probablement celui-ci.
Je te propose de modifier ta procédure comme ceci: ATTENTION : les paramètres Sh et Target s'adressent qu'à une feuille et non pas à plusieurs feuilles lorsque plusieurs d'entre elles sont sélectionnées.
'------------------------------------ Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) For Each Sh In Worksheets If Sh.Range(Target.Address).Count > 1 Or _ Intersect(Sh.Range(Target.Address), _ Sh.Range("B3:D80")) Is Nothing Then Exit Sub End If Next End Sub '------------------------------------
"Guy85" a écrit dans le message de groupe de discussion : eb#KQQ# Bonjour, Je vais essayer d'être précis. Dans mon fichier, je veux travailler en groupe de travail. Je sélectionne par exemple 3 onglets. Sur une feuille, je sélectionne les cellules K3:L7. Je les copies en M3. Là apparait mon message en surlignant en jaune la ligne 2, c'est à dire : If Target.Count > 1 Or Intersect(Target, Range("B3:D80")) Is Nothing Then Exit Sub. Que je copie ou efface ou déplace quoique ce soit (une ou plusieurs cellule) en groupe de travail, j'ai le même message.
"michdenis" a écrit dans le message de news:
| C'est de déplacer une ou des cellules dans une feuille ***Aucune idée de ce que tu veux dire.
Au lieu d'expliquer de me donner le code qui ne fonctionne pas, pourquoi ne pas décrire précisément ce que tu veux faire, mais que tu ne réussis pas à faire.
Tu peux publier toutes les procédures que tu voudras, si aucune d'elles ne fait ce que tu désires, comment je puis déduire ce que tu veux faire.
Si tu veux inclure dans ta question le code que tu utilises, ce n'est pas un problème, mais la publication du code ne peut pas remplacer l'explication de tes attentes d'une procédure qui fonctionnerait.
Guy85
Bonjour,
Tu as oublié de mentionner que l'événement utilisé était dans le ThisWorkbook probablement celui-ci.
Je l'avais mis dans le message précédent.
Merci de ton aide. Ça a l'air de fonctionner. Même avec en groupe de travail ?
"michdenis" a écrit dans le message de news:
Tu as oublié de mentionner que l'événement utilisé était dans le ThisWorkbook probablement celui-ci.
Je te propose de modifier ta procédure comme ceci: ATTENTION : les paramètres Sh et Target s'adressent qu'à une feuille et non pas à plusieurs feuilles lorsque plusieurs d'entre elles sont sélectionnées.
'------------------------------------ Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) For Each Sh In Worksheets If Sh.Range(Target.Address).Count > 1 Or _ Intersect(Sh.Range(Target.Address), _ Sh.Range("B3:D80")) Is Nothing Then Exit Sub End If Next End Sub '------------------------------------
"Guy85" a écrit dans le message de groupe de discussion : eb#KQQ# Bonjour, Je vais essayer d'être précis. Dans mon fichier, je veux travailler en groupe de travail. Je sélectionne par exemple 3 onglets. Sur une feuille, je sélectionne les cellules K3:L7. Je les copies en M3. Là apparait mon message en surlignant en jaune la ligne 2, c'est à dire : If Target.Count > 1 Or Intersect(Target, Range("B3:D80")) Is Nothing Then Exit Sub. Que je copie ou efface ou déplace quoique ce soit (une ou plusieurs cellule) en groupe de travail, j'ai le même message.
"michdenis" a écrit dans le message de news:
| C'est de déplacer une ou des cellules dans une feuille ***Aucune idée de ce que tu veux dire.
Au lieu d'expliquer de me donner le code qui ne fonctionne pas, pourquoi ne pas décrire précisément ce que tu veux faire, mais que tu ne réussis pas à faire.
Tu peux publier toutes les procédures que tu voudras, si aucune d'elles ne fait ce que tu désires, comment je puis déduire ce que tu veux faire.
Si tu veux inclure dans ta question le code que tu utilises, ce n'est pas un problème, mais la publication du code ne peut pas remplacer l'explication de tes attentes d'une procédure qui fonctionnerait.
Bonjour,
Tu as oublié de mentionner que l'événement utilisé était dans le
ThisWorkbook
probablement celui-ci.
Je l'avais mis dans le message précédent.
Merci de ton aide.
Ça a l'air de fonctionner.
Même avec en groupe de travail ?
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
5DD16984-2CBB-4756-AB67-673E01260064@microsoft.com...
Tu as oublié de mentionner que l'événement utilisé était dans le
ThisWorkbook
probablement celui-ci.
Je te propose de modifier ta procédure comme ceci:
ATTENTION : les paramètres Sh et Target s'adressent qu'à une feuille
et non pas à plusieurs feuilles lorsque plusieurs d'entre elles sont
sélectionnées.
'------------------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
For Each Sh In Worksheets
If Sh.Range(Target.Address).Count > 1 Or _
Intersect(Sh.Range(Target.Address), _
Sh.Range("B3:D80")) Is Nothing Then
Exit Sub
End If
Next
End Sub
'------------------------------------
"Guy85" <Guy_Excel_2003@bonjour.fr> a écrit dans le message de groupe de
discussion :
eb#KQQ#9KHA.4308@TK2MSFTNGP04.phx.gbl...
Bonjour,
Je vais essayer d'être précis.
Dans mon fichier, je veux travailler en groupe de travail.
Je sélectionne par exemple 3 onglets.
Sur une feuille, je sélectionne les cellules K3:L7.
Je les copies en M3.
Là apparait mon message en surlignant en jaune la ligne 2, c'est à dire :
If Target.Count > 1 Or Intersect(Target, Range("B3:D80")) Is Nothing Then
Exit Sub.
Que je copie ou efface ou déplace quoique ce soit (une ou plusieurs
cellule)
en groupe de travail, j'ai le même message.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
37D484ED-01E5-4AA6-A1BA-98927FDC6998@microsoft.com...
| C'est de déplacer une ou des cellules dans une feuille
***Aucune idée de ce que tu veux dire.
Au lieu d'expliquer de me donner le code qui ne fonctionne pas,
pourquoi ne pas décrire précisément ce que tu veux faire, mais que
tu ne réussis pas à faire.
Tu peux publier toutes les procédures que tu voudras, si aucune d'elles
ne fait ce que tu désires, comment je puis déduire ce que tu veux faire.
Si tu veux inclure dans ta question le code que tu utilises, ce n'est pas
un
problème, mais la publication du code ne peut pas remplacer l'explication
de tes attentes d'une procédure qui fonctionnerait.
Tu as oublié de mentionner que l'événement utilisé était dans le ThisWorkbook probablement celui-ci.
Je l'avais mis dans le message précédent.
Merci de ton aide. Ça a l'air de fonctionner. Même avec en groupe de travail ?
"michdenis" a écrit dans le message de news:
Tu as oublié de mentionner que l'événement utilisé était dans le ThisWorkbook probablement celui-ci.
Je te propose de modifier ta procédure comme ceci: ATTENTION : les paramètres Sh et Target s'adressent qu'à une feuille et non pas à plusieurs feuilles lorsque plusieurs d'entre elles sont sélectionnées.
'------------------------------------ Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) For Each Sh In Worksheets If Sh.Range(Target.Address).Count > 1 Or _ Intersect(Sh.Range(Target.Address), _ Sh.Range("B3:D80")) Is Nothing Then Exit Sub End If Next End Sub '------------------------------------
"Guy85" a écrit dans le message de groupe de discussion : eb#KQQ# Bonjour, Je vais essayer d'être précis. Dans mon fichier, je veux travailler en groupe de travail. Je sélectionne par exemple 3 onglets. Sur une feuille, je sélectionne les cellules K3:L7. Je les copies en M3. Là apparait mon message en surlignant en jaune la ligne 2, c'est à dire : If Target.Count > 1 Or Intersect(Target, Range("B3:D80")) Is Nothing Then Exit Sub. Que je copie ou efface ou déplace quoique ce soit (une ou plusieurs cellule) en groupe de travail, j'ai le même message.
"michdenis" a écrit dans le message de news:
| C'est de déplacer une ou des cellules dans une feuille ***Aucune idée de ce que tu veux dire.
Au lieu d'expliquer de me donner le code qui ne fonctionne pas, pourquoi ne pas décrire précisément ce que tu veux faire, mais que tu ne réussis pas à faire.
Tu peux publier toutes les procédures que tu voudras, si aucune d'elles ne fait ce que tu désires, comment je puis déduire ce que tu veux faire.
Si tu veux inclure dans ta question le code que tu utilises, ce n'est pas un problème, mais la publication du code ne peut pas remplacer l'explication de tes attentes d'une procédure qui fonctionnerait.
