Bonjour Fredo J'ai corrigé l'erreur (il ne fallait pas de parenthèses a la fin du nom de la macro) mais l'ensemble ne fonctionne toujours pas. Pour mettre ton programme j'ai ouvert Visual basic je suis allé dans la feuille qui me concernait. en haut a gauche il y avait Worksheet et a droite selectionchange
cela ne fonctionne pas quand je mets 1 dans $A$1 !!?? -- bede
Déterminer l'endroit de l'erreur, il est probable que cela ne vienne pas du code ci-dessous, si tu nous publiait ta macro, l'on pourrait sans doute voir le pb. "bede" a écrit dans le message de news:
MERCI FREDO on doit etre sur la bonne piste mais a la place de ta_macro j'ai mis TRANSFERT_rest_chb() c'est ma MACRO mais j'ai une erreur de compilation ..ou est le pb -- bede
Oups!! voila la bonne Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Selection.Count = 1 Then If Target.Address = "$a$1" Then Ta_Macro End If End If Application.EnableEvents = True End Sub
Bonjour Fredo
J'ai corrigé l'erreur (il ne fallait pas de parenthèses a la fin du nom de
la macro)
mais l'ensemble ne fonctionne toujours pas.
Pour mettre ton programme j'ai ouvert Visual basic je suis allé dans la
feuille qui me concernait.
en haut a gauche il y avait Worksheet et a droite selectionchange
cela ne fonctionne pas quand je mets 1 dans $A$1 !!??
--
bede
Déterminer l'endroit de l'erreur, il est probable que cela ne vienne pas du
code ci-dessous, si tu nous publiait ta macro, l'on pourrait sans doute voir
le pb.
"bede" <dispotbernard@discussions.microsoft.com> a écrit dans le message de
news: 23D22602-F1CB-4965-8F80-1AE587B3265A@microsoft.com...
MERCI FREDO on doit etre sur la bonne piste mais a la place de ta_macro
j'ai
mis
TRANSFERT_rest_chb() c'est ma MACRO
mais j'ai une erreur de compilation ..ou est le pb
--
bede
Oups!! voila la bonne
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Selection.Count = 1 Then
If Target.Address = "$a$1" Then
Ta_Macro
End If
End If
Application.EnableEvents = True
End Sub
Bonjour Fredo J'ai corrigé l'erreur (il ne fallait pas de parenthèses a la fin du nom de la macro) mais l'ensemble ne fonctionne toujours pas. Pour mettre ton programme j'ai ouvert Visual basic je suis allé dans la feuille qui me concernait. en haut a gauche il y avait Worksheet et a droite selectionchange
cela ne fonctionne pas quand je mets 1 dans $A$1 !!?? -- bede
Déterminer l'endroit de l'erreur, il est probable que cela ne vienne pas du code ci-dessous, si tu nous publiait ta macro, l'on pourrait sans doute voir le pb. "bede" a écrit dans le message de news:
MERCI FREDO on doit etre sur la bonne piste mais a la place de ta_macro j'ai mis TRANSFERT_rest_chb() c'est ma MACRO mais j'ai une erreur de compilation ..ou est le pb -- bede
Oups!! voila la bonne Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Selection.Count = 1 Then If Target.Address = "$a$1" Then Ta_Macro End If End If Application.EnableEvents = True End Sub
Fredo P.
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Selection.Count = 1 Then If Target.Address = "$a$1" Then TRANSFERT_rest_chb End If End If Application.EnableEvents = True End Sub
"bede" a écrit dans le message de news:
Bonjour Fredo J'ai corrigé l'erreur (il ne fallait pas de parenthèses a la fin du nom de la macro) mais l'ensemble ne fonctionne toujours pas. Pour mettre ton programme j'ai ouvert Visual basic je suis allé dans la feuille qui me concernait. en haut a gauche il y avait Worksheet et a droite selectionchange
cela ne fonctionne pas quand je mets 1 dans $A$1 !!?? -- bede
Déterminer l'endroit de l'erreur, il est probable que cela ne vienne pas du code ci-dessous, si tu nous publiait ta macro, l'on pourrait sans doute voir le pb. "bede" a écrit dans le message de news:
MERCI FREDO on doit etre sur la bonne piste mais a la place de ta_macro j'ai mis TRANSFERT_rest_chb() c'est ma MACRO mais j'ai une erreur de compilation ..ou est le pb -- bede
Oups!! voila la bonne Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Selection.Count = 1 Then If Target.Address = "$a$1" Then Ta_Macro End If End If Application.EnableEvents = True End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Selection.Count = 1 Then
If Target.Address = "$a$1" Then
TRANSFERT_rest_chb
End If
End If
Application.EnableEvents = True
End Sub
"bede" <dispotbernard@discussions.microsoft.com> a écrit dans le message de
news: 52C8A9E5-64D9-4003-8109-0F33A9CAB059@microsoft.com...
Bonjour Fredo
J'ai corrigé l'erreur (il ne fallait pas de parenthèses a la fin du nom de
la macro)
mais l'ensemble ne fonctionne toujours pas.
Pour mettre ton programme j'ai ouvert Visual basic je suis allé dans la
feuille qui me concernait.
en haut a gauche il y avait Worksheet et a droite selectionchange
cela ne fonctionne pas quand je mets 1 dans $A$1 !!??
--
bede
Déterminer l'endroit de l'erreur, il est probable que cela ne vienne pas
du
code ci-dessous, si tu nous publiait ta macro, l'on pourrait sans doute
voir
le pb.
"bede" <dispotbernard@discussions.microsoft.com> a écrit dans le message
de
news: 23D22602-F1CB-4965-8F80-1AE587B3265A@microsoft.com...
MERCI FREDO on doit etre sur la bonne piste mais a la place de ta_macro
j'ai
mis
TRANSFERT_rest_chb() c'est ma MACRO
mais j'ai une erreur de compilation ..ou est le pb
--
bede
Oups!! voila la bonne
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Selection.Count = 1 Then
If Target.Address = "$a$1" Then
Ta_Macro
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Selection.Count = 1 Then If Target.Address = "$a$1" Then TRANSFERT_rest_chb End If End If Application.EnableEvents = True End Sub
"bede" a écrit dans le message de news:
Bonjour Fredo J'ai corrigé l'erreur (il ne fallait pas de parenthèses a la fin du nom de la macro) mais l'ensemble ne fonctionne toujours pas. Pour mettre ton programme j'ai ouvert Visual basic je suis allé dans la feuille qui me concernait. en haut a gauche il y avait Worksheet et a droite selectionchange
cela ne fonctionne pas quand je mets 1 dans $A$1 !!?? -- bede
Déterminer l'endroit de l'erreur, il est probable que cela ne vienne pas du code ci-dessous, si tu nous publiait ta macro, l'on pourrait sans doute voir le pb. "bede" a écrit dans le message de news:
MERCI FREDO on doit etre sur la bonne piste mais a la place de ta_macro j'ai mis TRANSFERT_rest_chb() c'est ma MACRO mais j'ai une erreur de compilation ..ou est le pb -- bede
Oups!! voila la bonne Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Selection.Count = 1 Then If Target.Address = "$a$1" Then Ta_Macro End If End If Application.EnableEvents = True End Sub
FFO
Salut à toi J'ai essayé le code il fonctionne trés bien avec la ligne :
If Target.Address = "$A$1" Then
au lieu de
If Target.Address = "$a$1" Then
Par contre il n'a d'effet que si seule la cellule A1 est modifiée
Si tu souhaites étendre ces cellules à la 1° colonne il faut mettre :
If Target.Column = Range("$A$1").Column Then
Si tu souhaites étendre ces cellules à la 1° ligne il faut mettre :
If Target.Row = Range("$A$1").Row Then
Si tu souhaites étendre ces cellules à la 1° colonne et à la 1° ligne il faut mettre :
If Target.Column = Range("$A$1").Column Or Target.Row = Range("$A$1").Row Then
Si tu souhaites étendre ces cellules à la feuille entière enlève la ligne
If Target.Address = "$a$1" Then
et une ligne :
End If
Espérant que tu puisses trouver ton bonheur dans ces quelques propositions
Bonjour Fredo J'ai corrigé l'erreur (il ne fallait pas de parenthèses a la fin du nom de la macro) mais l'ensemble ne fonctionne toujours pas. Pour mettre ton programme j'ai ouvert Visual basic je suis allé dans la feuille qui me concernait. en haut a gauche il y avait Worksheet et a droite selectionchange
cela ne fonctionne pas quand je mets 1 dans $A$1 !!?? -- bede
Déterminer l'endroit de l'erreur, il est probable que cela ne vienne pas du code ci-dessous, si tu nous publiait ta macro, l'on pourrait sans doute voir le pb. "bede" a écrit dans le message de news:
MERCI FREDO on doit etre sur la bonne piste mais a la place de ta_macro j'ai mis TRANSFERT_rest_chb() c'est ma MACRO mais j'ai une erreur de compilation ..ou est le pb -- bede
Oups!! voila la bonne Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Selection.Count = 1 Then If Target.Address = "$a$1" Then Ta_Macro End If End If Application.EnableEvents = True End Sub
Salut à toi
J'ai essayé le code il fonctionne trés bien avec la ligne :
If Target.Address = "$A$1" Then
au lieu de
If Target.Address = "$a$1" Then
Par contre il n'a d'effet que si seule la cellule A1 est modifiée
Si tu souhaites étendre ces cellules à la 1° colonne il faut mettre :
If Target.Column = Range("$A$1").Column Then
Si tu souhaites étendre ces cellules à la 1° ligne il faut mettre :
If Target.Row = Range("$A$1").Row Then
Si tu souhaites étendre ces cellules à la 1° colonne et à la 1° ligne il
faut mettre :
If Target.Column = Range("$A$1").Column Or Target.Row = Range("$A$1").Row Then
Si tu souhaites étendre ces cellules à la feuille entière enlève la ligne
If Target.Address = "$a$1" Then
et une ligne :
End If
Espérant que tu puisses trouver ton bonheur dans ces quelques propositions
Bonjour Fredo
J'ai corrigé l'erreur (il ne fallait pas de parenthèses a la fin du nom de
la macro)
mais l'ensemble ne fonctionne toujours pas.
Pour mettre ton programme j'ai ouvert Visual basic je suis allé dans la
feuille qui me concernait.
en haut a gauche il y avait Worksheet et a droite selectionchange
cela ne fonctionne pas quand je mets 1 dans $A$1 !!??
--
bede
Déterminer l'endroit de l'erreur, il est probable que cela ne vienne pas du
code ci-dessous, si tu nous publiait ta macro, l'on pourrait sans doute voir
le pb.
"bede" <dispotbernard@discussions.microsoft.com> a écrit dans le message de
news: 23D22602-F1CB-4965-8F80-1AE587B3265A@microsoft.com...
MERCI FREDO on doit etre sur la bonne piste mais a la place de ta_macro
j'ai
mis
TRANSFERT_rest_chb() c'est ma MACRO
mais j'ai une erreur de compilation ..ou est le pb
--
bede
Oups!! voila la bonne
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Selection.Count = 1 Then
If Target.Address = "$a$1" Then
Ta_Macro
End If
End If
Application.EnableEvents = True
End Sub
Salut à toi J'ai essayé le code il fonctionne trés bien avec la ligne :
If Target.Address = "$A$1" Then
au lieu de
If Target.Address = "$a$1" Then
Par contre il n'a d'effet que si seule la cellule A1 est modifiée
Si tu souhaites étendre ces cellules à la 1° colonne il faut mettre :
If Target.Column = Range("$A$1").Column Then
Si tu souhaites étendre ces cellules à la 1° ligne il faut mettre :
If Target.Row = Range("$A$1").Row Then
Si tu souhaites étendre ces cellules à la 1° colonne et à la 1° ligne il faut mettre :
If Target.Column = Range("$A$1").Column Or Target.Row = Range("$A$1").Row Then
Si tu souhaites étendre ces cellules à la feuille entière enlève la ligne
If Target.Address = "$a$1" Then
et une ligne :
End If
Espérant que tu puisses trouver ton bonheur dans ces quelques propositions
Bonjour Fredo J'ai corrigé l'erreur (il ne fallait pas de parenthèses a la fin du nom de la macro) mais l'ensemble ne fonctionne toujours pas. Pour mettre ton programme j'ai ouvert Visual basic je suis allé dans la feuille qui me concernait. en haut a gauche il y avait Worksheet et a droite selectionchange
cela ne fonctionne pas quand je mets 1 dans $A$1 !!?? -- bede
Déterminer l'endroit de l'erreur, il est probable que cela ne vienne pas du code ci-dessous, si tu nous publiait ta macro, l'on pourrait sans doute voir le pb. "bede" a écrit dans le message de news:
MERCI FREDO on doit etre sur la bonne piste mais a la place de ta_macro j'ai mis TRANSFERT_rest_chb() c'est ma MACRO mais j'ai une erreur de compilation ..ou est le pb -- bede
Oups!! voila la bonne Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Selection.Count = 1 Then If Target.Address = "$a$1" Then Ta_Macro End If End If Application.EnableEvents = True End Sub
