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
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
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
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
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
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
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
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
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
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
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
Daniel
Non. Mais je sais qu'il arrive que des classeurs soient "corrompus" comme ils disent chez M$. Je suppose que le classeur est composé des feuilles et d'une (au moins) autre partie qui, elle, est corrompue. Donc tu recopies tes feuilles et tu élimines la partie corrompue. ( c'est comme ça que je me le représente, ça n'engage que moi ) Daniel "christian" a écrit dans le message de news:
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
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
Non. Mais je sais qu'il arrive que des classeurs soient "corrompus" comme
ils disent chez M$. Je suppose que le classeur est composé des feuilles et
d'une (au moins) autre partie qui, elle, est corrompue. Donc tu recopies tes
feuilles et tu élimines la partie corrompue. ( c'est comme ça que je me le
représente, ça n'engage que moi )
Daniel
"christian" <christian@discussions.microsoft.com> a écrit dans le message de
news: A901CD05-EAA0-4FA0-B6FD-DC3CB692C97F@microsoft.com...
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
Non. Mais je sais qu'il arrive que des classeurs soient "corrompus" comme ils disent chez M$. Je suppose que le classeur est composé des feuilles et d'une (au moins) autre partie qui, elle, est corrompue. Donc tu recopies tes feuilles et tu élimines la partie corrompue. ( c'est comme ça que je me le représente, ça n'engage que moi ) Daniel "christian" a écrit dans le message de news:
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
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