Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [C6:C36]) Is Nothing Then
Cancel = True
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub
ca me sert à faire un cumul automatique d'une cellule
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB
On 26 août, 18:06, christian <christ...@discussions.microsoft.com>
wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [C6:C36]) Is Nothing Then
Cancel = True
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub
ca me sert à faire un cumul automatique d'une cellule
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
Daniel
Bonjour. Essaie dans un classseur neuf. Cordialement. Daniel "christian" a écrit dans le message de news:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
Bonjour.
Essaie dans un classseur neuf.
Cordialement.
Daniel
"christian" <christian@discussions.microsoft.com> a écrit dans le message de
news: E36ECC35-838F-43C1-A59E-F8BA84BE86E2@microsoft.com...
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [C6:C36]) Is Nothing Then
Cancel = True
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub
ca me sert à faire un cumul automatique d'une cellule
Bonjour. Essaie dans un classseur neuf. Cordialement. Daniel "christian" a écrit dans le message de news:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
christian
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le mien qui compte +- 120 pages et ce macro est presque partout que dois je faire pour qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB On 26 août, 18:06, christian wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le mien qui
compte +- 120 pages et ce macro est presque partout que dois je faire pour
qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB
On 26 août, 18:06, christian <christ...@discussions.microsoft.com>
wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [C6:C36]) Is Nothing Then
Cancel = True
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub
ca me sert à faire un cumul automatique d'une cellule
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le mien qui compte +- 120 pages et ce macro est presque partout que dois je faire pour qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB On 26 août, 18:06, christian wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
Daniel
Copie tes feuilles dans un classeur vierge. Daniel "christian" a écrit dans le message de news:
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le mien qui compte +- 120 pages et ce macro est presque partout que dois je faire pour qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB On 26 août, 18:06, christian wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
Copie tes feuilles dans un classeur vierge.
Daniel
"christian" <christian@discussions.microsoft.com> a écrit dans le message de
news: 5D81418E-7FA2-4CC2-A3D5-0536009E40D0@microsoft.com...
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le mien
qui
compte +- 120 pages et ce macro est presque partout que dois je faire pour
qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB
On 26 août, 18:06, christian <christ...@discussions.microsoft.com>
wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [C6:C36]) Is Nothing Then
Cancel = True
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub
ca me sert à faire un cumul automatique d'une cellule
Copie tes feuilles dans un classeur vierge. Daniel "christian" a écrit dans le message de news:
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le mien qui compte +- 120 pages et ce macro est presque partout que dois je faire pour qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB On 26 août, 18:06, christian wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
Hervé
Bonjour Christian, Peut être as tu désactivé accidentellement les procédures événementielles ? Mets ceci dans un module et exécute là : Sub Activer() Application.EnableEvents = True End Sub
Hervé.
"christian" a écrit dans le message de news:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
Bonjour Christian,
Peut être as tu désactivé accidentellement les procédures événementielles ?
Mets ceci dans un module et exécute là :
Sub Activer()
Application.EnableEvents = True
End Sub
Hervé.
"christian" <christian@discussions.microsoft.com> a écrit dans le message de
news: E36ECC35-838F-43C1-A59E-F8BA84BE86E2@microsoft.com...
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [C6:C36]) Is Nothing Then
Cancel = True
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub
ca me sert à faire un cumul automatique d'une cellule
Bonjour Christian, Peut être as tu désactivé accidentellement les procédures événementielles ? Mets ceci dans un module et exécute là : Sub Activer() Application.EnableEvents = True End Sub
Hervé.
"christian" a écrit dans le message de news:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
christian
excuse mon ignorance mais comment je l'incère ce code
Bonjour Christian, Peut être as tu désactivé accidentellement les procédures événementielles ? Mets ceci dans un module et exécute là : Sub Activer() Application.EnableEvents = True End Sub
Hervé.
"christian" a écrit dans le message de news:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
excuse mon ignorance mais comment je l'incère ce code
Bonjour Christian,
Peut être as tu désactivé accidentellement les procédures événementielles ?
Mets ceci dans un module et exécute là :
Sub Activer()
Application.EnableEvents = True
End Sub
Hervé.
"christian" <christian@discussions.microsoft.com> a écrit dans le message de
news: E36ECC35-838F-43C1-A59E-F8BA84BE86E2@microsoft.com...
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [C6:C36]) Is Nothing Then
Cancel = True
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub
ca me sert à faire un cumul automatique d'une cellule
excuse mon ignorance mais comment je l'incère ce code
Bonjour Christian, Peut être as tu désactivé accidentellement les procédures événementielles ? Mets ceci dans un module et exécute là : Sub Activer() Application.EnableEvents = True End Sub
Hervé.
"christian" a écrit dans le message de news:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
christian
quand je sélectionne mes feuilles pour les copier il me dit impossible de copier ou déplacer des feuilles contenant un tableau je ne me souviens pas avoir mis un tableau dedans et si c'était le cas comment je fais pour savoir ou il est dans toute ces feuilles merci
Copie tes feuilles dans un classeur vierge. Daniel "christian" a écrit dans le message de news:
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le mien qui compte +- 120 pages et ce macro est presque partout que dois je faire pour qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB On 26 août, 18:06, christian wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
quand je sélectionne mes feuilles pour les copier il me dit impossible de
copier ou déplacer des feuilles contenant un tableau je ne me souviens pas
avoir mis un tableau dedans et si c'était le cas comment je fais pour savoir
ou il est dans toute ces feuilles merci
Copie tes feuilles dans un classeur vierge.
Daniel
"christian" <christian@discussions.microsoft.com> a écrit dans le message de
news: 5D81418E-7FA2-4CC2-A3D5-0536009E40D0@microsoft.com...
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le mien
qui
compte +- 120 pages et ce macro est presque partout que dois je faire pour
qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB
On 26 août, 18:06, christian <christ...@discussions.microsoft.com>
wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [C6:C36]) Is Nothing Then
Cancel = True
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub
ca me sert à faire un cumul automatique d'une cellule
quand je sélectionne mes feuilles pour les copier il me dit impossible de copier ou déplacer des feuilles contenant un tableau je ne me souviens pas avoir mis un tableau dedans et si c'était le cas comment je fais pour savoir ou il est dans toute ces feuilles merci
Copie tes feuilles dans un classeur vierge. Daniel "christian" a écrit dans le message de news:
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le mien qui compte +- 120 pages et ce macro est presque partout que dois je faire pour qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB On 26 août, 18:06, christian wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
Daniel
C'est super bizarre. Essaie de refaire fonctionner ta macro après avoir fermé Excel. Ensuite, redémarre ton poste, on ne sait jamais. Sinon, fais une copie de ton classeur, efface les données confidentielles et télécharge-le sur www.cjoint.com . Sinon, s'il est trop gros, envoie-le à mon adresse perso : en enlevant les Z de mon adresse (sauf si tu es sous XL2007). Daniel "christian" a écrit dans le message de news:
quand je sélectionne mes feuilles pour les copier il me dit impossible de copier ou déplacer des feuilles contenant un tableau je ne me souviens pas avoir mis un tableau dedans et si c'était le cas comment je fais pour savoir ou il est dans toute ces feuilles merci
Copie tes feuilles dans un classeur vierge. Daniel "christian" a écrit dans le message de news:
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le mien qui compte +- 120 pages et ce macro est presque partout que dois je faire pour qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB On 26 août, 18:06, christian wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
C'est super bizarre. Essaie de refaire fonctionner ta macro après avoir
fermé Excel. Ensuite, redémarre ton poste, on ne sait jamais. Sinon, fais
une copie de ton classeur, efface les données confidentielles et
télécharge-le sur www.cjoint.com . Sinon, s'il est trop gros, envoie-le à
mon adresse perso : dZZZcolardelle@free.fr en enlevant les Z de mon adresse
(sauf si tu es sous XL2007).
Daniel
"christian" <christian@discussions.microsoft.com> a écrit dans le message de
news: 9E945D55-B1BC-4171-B5D3-C3ADD3ED7E86@microsoft.com...
quand je sélectionne mes feuilles pour les copier il me dit impossible de
copier ou déplacer des feuilles contenant un tableau je ne me souviens pas
avoir mis un tableau dedans et si c'était le cas comment je fais pour
savoir
ou il est dans toute ces feuilles merci
Copie tes feuilles dans un classeur vierge.
Daniel
"christian" <christian@discussions.microsoft.com> a écrit dans le message
de
news: 5D81418E-7FA2-4CC2-A3D5-0536009E40D0@microsoft.com...
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le
mien
qui
compte +- 120 pages et ce macro est presque partout que dois je faire
pour
qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB
On 26 août, 18:06, christian <christ...@discussions.microsoft.com>
wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [C6:C36]) Is Nothing Then
Cancel = True
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub
ca me sert à faire un cumul automatique d'une cellule
C'est super bizarre. Essaie de refaire fonctionner ta macro après avoir fermé Excel. Ensuite, redémarre ton poste, on ne sait jamais. Sinon, fais une copie de ton classeur, efface les données confidentielles et télécharge-le sur www.cjoint.com . Sinon, s'il est trop gros, envoie-le à mon adresse perso : en enlevant les Z de mon adresse (sauf si tu es sous XL2007). Daniel "christian" a écrit dans le message de news:
quand je sélectionne mes feuilles pour les copier il me dit impossible de copier ou déplacer des feuilles contenant un tableau je ne me souviens pas avoir mis un tableau dedans et si c'était le cas comment je fais pour savoir ou il est dans toute ces feuilles merci
Copie tes feuilles dans un classeur vierge. Daniel "christian" a écrit dans le message de news:
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le mien qui compte +- 120 pages et ce macro est presque partout que dois je faire pour qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB On 26 août, 18:06, christian wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
LSteph
Bonsoir, ferme excel et rouvre puis le classeur en activant les macros.
Cordialement.
lSteph
excuse mon ignorance mais comment je l'incère ce code
Bonjour Christian, Peut être as tu désactivé accidentellement les procédures événementielles ? Mets ceci dans un module et exécute là : Sub Activer() Application.EnableEvents = True End Sub
Hervé.
"christian" a écrit dans le message de news:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
Bonsoir,
ferme excel et rouvre
puis le classeur en activant les macros.
Cordialement.
lSteph
excuse mon ignorance mais comment je l'incère ce code
Bonjour Christian,
Peut être as tu désactivé accidentellement les procédures événementielles ?
Mets ceci dans un module et exécute là :
Sub Activer()
Application.EnableEvents = True
End Sub
Hervé.
"christian" <christian@discussions.microsoft.com> a écrit dans le message de
news: E36ECC35-838F-43C1-A59E-F8BA84BE86E2@microsoft.com...
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [C6:C36]) Is Nothing Then
Cancel = True
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub
ca me sert à faire un cumul automatique d'une cellule
Bonsoir, ferme excel et rouvre puis le classeur en activant les macros.
Cordialement.
lSteph
excuse mon ignorance mais comment je l'incère ce code
Bonjour Christian, Peut être as tu désactivé accidentellement les procédures événementielles ? Mets ceci dans un module et exécute là : Sub Activer() Application.EnableEvents = True End Sub
Hervé.
"christian" a écrit dans le message de news:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
christian
merci de ta proposition j'ai finalement recopier toute mes feuilles dans un nouveau classeur et ca refonctionne peux tu me dire pourqoui ca plante dans un classeur et que ca fonctionne dans un autre vierge sans avoir fait de modification
merci encore
C'est super bizarre. Essaie de refaire fonctionner ta macro après avoir fermé Excel. Ensuite, redémarre ton poste, on ne sait jamais. Sinon, fais une copie de ton classeur, efface les données confidentielles et télécharge-le sur www.cjoint.com . Sinon, s'il est trop gros, envoie-le à mon adresse perso : en enlevant les Z de mon adresse (sauf si tu es sous XL2007). Daniel "christian" a écrit dans le message de news:
quand je sélectionne mes feuilles pour les copier il me dit impossible de copier ou déplacer des feuilles contenant un tableau je ne me souviens pas avoir mis un tableau dedans et si c'était le cas comment je fais pour savoir ou il est dans toute ces feuilles merci
Copie tes feuilles dans un classeur vierge. Daniel "christian" a écrit dans le message de news:
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le mien qui compte +- 120 pages et ce macro est presque partout que dois je faire pour qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB On 26 août, 18:06, christian wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule
merci de ta proposition j'ai finalement recopier toute mes feuilles dans un
nouveau classeur et ca refonctionne peux tu me dire pourqoui ca plante dans
un classeur et que ca fonctionne dans un autre vierge sans avoir fait de
modification
merci encore
C'est super bizarre. Essaie de refaire fonctionner ta macro après avoir
fermé Excel. Ensuite, redémarre ton poste, on ne sait jamais. Sinon, fais
une copie de ton classeur, efface les données confidentielles et
télécharge-le sur www.cjoint.com . Sinon, s'il est trop gros, envoie-le à
mon adresse perso : dZZZcolardelle@free.fr en enlevant les Z de mon adresse
(sauf si tu es sous XL2007).
Daniel
"christian" <christian@discussions.microsoft.com> a écrit dans le message de
news: 9E945D55-B1BC-4171-B5D3-C3ADD3ED7E86@microsoft.com...
quand je sélectionne mes feuilles pour les copier il me dit impossible de
copier ou déplacer des feuilles contenant un tableau je ne me souviens pas
avoir mis un tableau dedans et si c'était le cas comment je fais pour
savoir
ou il est dans toute ces feuilles merci
Copie tes feuilles dans un classeur vierge.
Daniel
"christian" <christian@discussions.microsoft.com> a écrit dans le message
de
news: 5D81418E-7FA2-4CC2-A3D5-0536009E40D0@microsoft.com...
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le
mien
qui
compte +- 120 pages et ce macro est presque partout que dois je faire
pour
qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB
On 26 août, 18:06, christian <christ...@discussions.microsoft.com>
wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [C6:C36]) Is Nothing Then
Cancel = True
Target.Offset(0, 1) = Target + Target.Offset(0, 1)
End If
End Sub
ca me sert à faire un cumul automatique d'une cellule
merci de ta proposition j'ai finalement recopier toute mes feuilles dans un nouveau classeur et ca refonctionne peux tu me dire pourqoui ca plante dans un classeur et que ca fonctionne dans un autre vierge sans avoir fait de modification
merci encore
C'est super bizarre. Essaie de refaire fonctionner ta macro après avoir fermé Excel. Ensuite, redémarre ton poste, on ne sait jamais. Sinon, fais une copie de ton classeur, efface les données confidentielles et télécharge-le sur www.cjoint.com . Sinon, s'il est trop gros, envoie-le à mon adresse perso : en enlevant les Z de mon adresse (sauf si tu es sous XL2007). Daniel "christian" a écrit dans le message de news:
quand je sélectionne mes feuilles pour les copier il me dit impossible de copier ou déplacer des feuilles contenant un tableau je ne me souviens pas avoir mis un tableau dedans et si c'était le cas comment je fais pour savoir ou il est dans toute ces feuilles merci
Copie tes feuilles dans un classeur vierge. Daniel "christian" a écrit dans le message de news:
oui en effet ca fonctionne dans un nouveau classeur mais pas dans le mien qui compte +- 120 pages et ce macro est presque partout que dois je faire pour qu'il foncionne à nouveau merci de votre aide
Bonjour,
Fonctionne normalement.
http://cjoint.com/?iAskBhQ4tZ
JB On 26 août, 18:06, christian wrote:
désolé voici la macro qui ne fonctionne plus
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [C6:C36]) Is Nothing Then Cancel = True Target.Offset(0, 1) = Target + Target.Offset(0, 1) End If End Sub
ca me sert à faire un cumul automatique d'une cellule