Bonjour Jean,
Selon la donne initiale de ton problème, ce n'est pas à partir du contenu des cellules en colonne A ou B mais du contenu
des cellules des colonnes masquées E et F .
Est-ce que la plage de cellules est fixe et est connue ? Si oui, quelle est-elle ?
L'autre aspect, si tes plages de cellules sont importantes, ce type de truc risque de boucler pour un bon moment et cela
va se reproduire à chaque fois que tu vas sélectionner une nouvelle cellule. Ça va vite devenir un "enfer".
Il serait de loin souhaitable que tu utilises la macro que je t'ai soumise dans mon premier message qui au moment de
masquer les colonnes désirées, modifies la valeur des cellules.
Dans la macro en question : Ajoute en première ligne : Application.EnableEvents = True et en dernière ligne :
Application.EnableEvents = False
P.S. Attention : peut-être es-tu pressé par le temps pour terminer ton application.... mais tu dois te souvenir qu'ici
c'est un service de bénévolat .... et il faut laisser le temps aux répondeurs de s'exécuter (répondre) s'ils en ont
envie.
Salutations!
"JEAN" a écrit dans le message de news:
ok mais si c'est une plage, le programme serait ecrit comment
pour une plage de B15 à B25Bonjour Jean,
Dans la feuille module où l'action se déroule, tu peux copier et tester ceci ...
'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("E:F").Hidden = True Then
If Range("E15") <> 0 Then
Range("A15") = Range("E15")
End If
If Range("F15") <> 0 Then
Range("B15") = Range("F15")
End If
Range("E15:F15") = 0
Application.EnableEvents = True
End If
End Sub
'-----------------------
Salutations!
"JEAN" a écrit dans le message de news:
du coup quand j'execute ton programme, la valeur dans A n'est pas affiché
directemnt, en plus ca arrete pas de tourner et ca me met ensuite espace pile
insuffisant
quest ce que je peux faire
merci de ton aide
"ru-th" wrote:correctif !
si cela ne se limite pas à e15 mais à l'ensemble de la colonne, on pourrait
modifier
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA(Columns("e")) = 0 Then Exit Sub
Range("a:a").Value = Range("e:e").Value
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"ru-th" a écrit dans le message de news:Salut
à mettre dans le module de la feuille concernée et à compléter pour la
colonne F
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA("e:e") = 0 Then Exit Sub
For i = 1 To [e65536].End(xlUp).Row
Range("a" & i).Value = Range("e" & i).Value
Next
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"JEAN" a écrit dans le message de news:Bonjour,
J'ai des valeur dans la colonne E15 et F15
et je voudrai a chaque fois que je masque les colonnes E et F
les valeurs viennent se mettre en A et B pour E15 je décalerai de 4
pour F15 je decalerai aussi de 4.
Donc j'aurai dans A15 et B15 la valeur que j'avais dans E15 et F15
a savoir qu'il faut quand je masque la valeur de E15 et F15 et la
deplacevers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0
merci de votre aide.
Bonjour Jean,
Selon la donne initiale de ton problème, ce n'est pas à partir du contenu des cellules en colonne A ou B mais du contenu
des cellules des colonnes masquées E et F .
Est-ce que la plage de cellules est fixe et est connue ? Si oui, quelle est-elle ?
L'autre aspect, si tes plages de cellules sont importantes, ce type de truc risque de boucler pour un bon moment et cela
va se reproduire à chaque fois que tu vas sélectionner une nouvelle cellule. Ça va vite devenir un "enfer".
Il serait de loin souhaitable que tu utilises la macro que je t'ai soumise dans mon premier message qui au moment de
masquer les colonnes désirées, modifies la valeur des cellules.
Dans la macro en question : Ajoute en première ligne : Application.EnableEvents = True et en dernière ligne :
Application.EnableEvents = False
P.S. Attention : peut-être es-tu pressé par le temps pour terminer ton application.... mais tu dois te souvenir qu'ici
c'est un service de bénévolat .... et il faut laisser le temps aux répondeurs de s'exécuter (répondre) s'ils en ont
envie.
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
89E4C108-B96C-4C63-A6D7-6F035098C837@microsoft.com...
ok mais si c'est une plage, le programme serait ecrit comment
pour une plage de B15 à B25
Bonjour Jean,
Dans la feuille module où l'action se déroule, tu peux copier et tester ceci ...
'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("E:F").Hidden = True Then
If Range("E15") <> 0 Then
Range("A15") = Range("E15")
End If
If Range("F15") <> 0 Then
Range("B15") = Range("F15")
End If
Range("E15:F15") = 0
Application.EnableEvents = True
End If
End Sub
'-----------------------
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
B53D31D7-63D0-4A42-B420-CD96BD589E14@microsoft.com...
du coup quand j'execute ton programme, la valeur dans A n'est pas affiché
directemnt, en plus ca arrete pas de tourner et ca me met ensuite espace pile
insuffisant
quest ce que je peux faire
merci de ton aide
"ru-th" wrote:
correctif !
si cela ne se limite pas à e15 mais à l'ensemble de la colonne, on pourrait
modifier
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA(Columns("e")) = 0 Then Exit Sub
Range("a:a").Value = Range("e:e").Value
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"ru-th" <ailleurs@nowhere.fr> a écrit dans le message de news:
eccOout1EHA.2804@TK2MSFTNGP15.phx.gbl...
Salut
à mettre dans le module de la feuille concernée et à compléter pour la
colonne F
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA("e:e") = 0 Then Exit Sub
For i = 1 To [e65536].End(xlUp).Row
Range("a" & i).Value = Range("e" & i).Value
Next
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
C7462FE4-EA92-47EC-BE7E-55808869584F@microsoft.com...
Bonjour,
J'ai des valeur dans la colonne E15 et F15
et je voudrai a chaque fois que je masque les colonnes E et F
les valeurs viennent se mettre en A et B pour E15 je décalerai de 4
pour F15 je decalerai aussi de 4.
Donc j'aurai dans A15 et B15 la valeur que j'avais dans E15 et F15
a savoir qu'il faut quand je masque la valeur de E15 et F15 et la
deplace
vers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0
merci de votre aide.
Bonjour Jean,
Selon la donne initiale de ton problème, ce n'est pas à partir du contenu des cellules en colonne A ou B mais du contenu
des cellules des colonnes masquées E et F .
Est-ce que la plage de cellules est fixe et est connue ? Si oui, quelle est-elle ?
L'autre aspect, si tes plages de cellules sont importantes, ce type de truc risque de boucler pour un bon moment et cela
va se reproduire à chaque fois que tu vas sélectionner une nouvelle cellule. Ça va vite devenir un "enfer".
Il serait de loin souhaitable que tu utilises la macro que je t'ai soumise dans mon premier message qui au moment de
masquer les colonnes désirées, modifies la valeur des cellules.
Dans la macro en question : Ajoute en première ligne : Application.EnableEvents = True et en dernière ligne :
Application.EnableEvents = False
P.S. Attention : peut-être es-tu pressé par le temps pour terminer ton application.... mais tu dois te souvenir qu'ici
c'est un service de bénévolat .... et il faut laisser le temps aux répondeurs de s'exécuter (répondre) s'ils en ont
envie.
Salutations!
"JEAN" a écrit dans le message de news:
ok mais si c'est une plage, le programme serait ecrit comment
pour une plage de B15 à B25Bonjour Jean,
Dans la feuille module où l'action se déroule, tu peux copier et tester ceci ...
'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("E:F").Hidden = True Then
If Range("E15") <> 0 Then
Range("A15") = Range("E15")
End If
If Range("F15") <> 0 Then
Range("B15") = Range("F15")
End If
Range("E15:F15") = 0
Application.EnableEvents = True
End If
End Sub
'-----------------------
Salutations!
"JEAN" a écrit dans le message de news:
du coup quand j'execute ton programme, la valeur dans A n'est pas affiché
directemnt, en plus ca arrete pas de tourner et ca me met ensuite espace pile
insuffisant
quest ce que je peux faire
merci de ton aide
"ru-th" wrote:correctif !
si cela ne se limite pas à e15 mais à l'ensemble de la colonne, on pourrait
modifier
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA(Columns("e")) = 0 Then Exit Sub
Range("a:a").Value = Range("e:e").Value
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"ru-th" a écrit dans le message de news:Salut
à mettre dans le module de la feuille concernée et à compléter pour la
colonne F
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA("e:e") = 0 Then Exit Sub
For i = 1 To [e65536].End(xlUp).Row
Range("a" & i).Value = Range("e" & i).Value
Next
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"JEAN" a écrit dans le message de news:Bonjour,
J'ai des valeur dans la colonne E15 et F15
et je voudrai a chaque fois que je masque les colonnes E et F
les valeurs viennent se mettre en A et B pour E15 je décalerai de 4
pour F15 je decalerai aussi de 4.
Donc j'aurai dans A15 et B15 la valeur que j'avais dans E15 et F15
a savoir qu'il faut quand je masque la valeur de E15 et F15 et la
deplacevers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0
merci de votre aide.
Bonjour Jean,
Selon la donne initiale de ton problème, ce n'est pas à partir du contenu des cellules en colonne A ou B mais du
contenu
des cellules des colonnes masquées E et F .
Est-ce que la plage de cellules est fixe et est connue ? Si oui, quelle est-elle ?
L'autre aspect, si tes plages de cellules sont importantes, ce type de truc risque de boucler pour un bon moment et
cela
va se reproduire à chaque fois que tu vas sélectionner une nouvelle cellule. Ça va vite devenir un "enfer".
Il serait de loin souhaitable que tu utilises la macro que je t'ai soumise dans mon premier message qui au moment de
masquer les colonnes désirées, modifies la valeur des cellules.
Dans la macro en question : Ajoute en première ligne : Application.EnableEvents = True et en dernière ligne :
Application.EnableEvents = False
P.S. Attention : peut-être es-tu pressé par le temps pour terminer ton application.... mais tu dois te souvenir qu'ici
c'est un service de bénévolat .... et il faut laisser le temps aux répondeurs de s'exécuter (répondre) s'ils en ont
envie.
Salutations!
"JEAN" a écrit dans le message de news:
ok mais si c'est une plage, le programme serait ecrit comment
pour une plage de B15 à B25Bonjour Jean,
Dans la feuille module où l'action se déroule, tu peux copier et tester ceci ...
'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("E:F").Hidden = True Then
If Range("E15") <> 0 Then
Range("A15") = Range("E15")
End If
If Range("F15") <> 0 Then
Range("B15") = Range("F15")
End If
Range("E15:F15") = 0
Application.EnableEvents = True
End If
End Sub
'-----------------------
Salutations!
"JEAN" a écrit dans le message de news:
du coup quand j'execute ton programme, la valeur dans A n'est pas affiché
directemnt, en plus ca arrete pas de tourner et ca me met ensuite espace pile
insuffisant
quest ce que je peux faire
merci de ton aide
"ru-th" wrote:correctif !
si cela ne se limite pas à e15 mais à l'ensemble de la colonne, on pourrait
modifier
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA(Columns("e")) = 0 Then Exit Sub
Range("a:a").Value = Range("e:e").Value
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"ru-th" a écrit dans le message de news:Salut
à mettre dans le module de la feuille concernée et à compléter pour la
colonne F
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA("e:e") = 0 Then Exit Sub
For i = 1 To [e65536].End(xlUp).Row
Range("a" & i).Value = Range("e" & i).Value
Next
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"JEAN" a écrit dans le message de news:Bonjour,
J'ai des valeur dans la colonne E15 et F15
et je voudrai a chaque fois que je masque les colonnes E et F
les valeurs viennent se mettre en A et B pour E15 je décalerai de 4
pour F15 je decalerai aussi de 4.
Donc j'aurai dans A15 et B15 la valeur que j'avais dans E15 et F15
a savoir qu'il faut quand je masque la valeur de E15 et F15 et la
deplacevers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0
merci de votre aide.
Bonjour Jean,
Selon la donne initiale de ton problème, ce n'est pas à partir du contenu des cellules en colonne A ou B mais du
contenu
des cellules des colonnes masquées E et F .
Est-ce que la plage de cellules est fixe et est connue ? Si oui, quelle est-elle ?
L'autre aspect, si tes plages de cellules sont importantes, ce type de truc risque de boucler pour un bon moment et
cela
va se reproduire à chaque fois que tu vas sélectionner une nouvelle cellule. Ça va vite devenir un "enfer".
Il serait de loin souhaitable que tu utilises la macro que je t'ai soumise dans mon premier message qui au moment de
masquer les colonnes désirées, modifies la valeur des cellules.
Dans la macro en question : Ajoute en première ligne : Application.EnableEvents = True et en dernière ligne :
Application.EnableEvents = False
P.S. Attention : peut-être es-tu pressé par le temps pour terminer ton application.... mais tu dois te souvenir qu'ici
c'est un service de bénévolat .... et il faut laisser le temps aux répondeurs de s'exécuter (répondre) s'ils en ont
envie.
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
89E4C108-B96C-4C63-A6D7-6F035098C837@microsoft.com...
ok mais si c'est une plage, le programme serait ecrit comment
pour une plage de B15 à B25
Bonjour Jean,
Dans la feuille module où l'action se déroule, tu peux copier et tester ceci ...
'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("E:F").Hidden = True Then
If Range("E15") <> 0 Then
Range("A15") = Range("E15")
End If
If Range("F15") <> 0 Then
Range("B15") = Range("F15")
End If
Range("E15:F15") = 0
Application.EnableEvents = True
End If
End Sub
'-----------------------
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
B53D31D7-63D0-4A42-B420-CD96BD589E14@microsoft.com...
du coup quand j'execute ton programme, la valeur dans A n'est pas affiché
directemnt, en plus ca arrete pas de tourner et ca me met ensuite espace pile
insuffisant
quest ce que je peux faire
merci de ton aide
"ru-th" wrote:
correctif !
si cela ne se limite pas à e15 mais à l'ensemble de la colonne, on pourrait
modifier
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA(Columns("e")) = 0 Then Exit Sub
Range("a:a").Value = Range("e:e").Value
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"ru-th" <ailleurs@nowhere.fr> a écrit dans le message de news:
eccOout1EHA.2804@TK2MSFTNGP15.phx.gbl...
Salut
à mettre dans le module de la feuille concernée et à compléter pour la
colonne F
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA("e:e") = 0 Then Exit Sub
For i = 1 To [e65536].End(xlUp).Row
Range("a" & i).Value = Range("e" & i).Value
Next
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
C7462FE4-EA92-47EC-BE7E-55808869584F@microsoft.com...
Bonjour,
J'ai des valeur dans la colonne E15 et F15
et je voudrai a chaque fois que je masque les colonnes E et F
les valeurs viennent se mettre en A et B pour E15 je décalerai de 4
pour F15 je decalerai aussi de 4.
Donc j'aurai dans A15 et B15 la valeur que j'avais dans E15 et F15
a savoir qu'il faut quand je masque la valeur de E15 et F15 et la
deplace
vers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0
merci de votre aide.
Bonjour Jean,
Selon la donne initiale de ton problème, ce n'est pas à partir du contenu des cellules en colonne A ou B mais du
contenu
des cellules des colonnes masquées E et F .
Est-ce que la plage de cellules est fixe et est connue ? Si oui, quelle est-elle ?
L'autre aspect, si tes plages de cellules sont importantes, ce type de truc risque de boucler pour un bon moment et
cela
va se reproduire à chaque fois que tu vas sélectionner une nouvelle cellule. Ça va vite devenir un "enfer".
Il serait de loin souhaitable que tu utilises la macro que je t'ai soumise dans mon premier message qui au moment de
masquer les colonnes désirées, modifies la valeur des cellules.
Dans la macro en question : Ajoute en première ligne : Application.EnableEvents = True et en dernière ligne :
Application.EnableEvents = False
P.S. Attention : peut-être es-tu pressé par le temps pour terminer ton application.... mais tu dois te souvenir qu'ici
c'est un service de bénévolat .... et il faut laisser le temps aux répondeurs de s'exécuter (répondre) s'ils en ont
envie.
Salutations!
"JEAN" a écrit dans le message de news:
ok mais si c'est une plage, le programme serait ecrit comment
pour une plage de B15 à B25Bonjour Jean,
Dans la feuille module où l'action se déroule, tu peux copier et tester ceci ...
'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("E:F").Hidden = True Then
If Range("E15") <> 0 Then
Range("A15") = Range("E15")
End If
If Range("F15") <> 0 Then
Range("B15") = Range("F15")
End If
Range("E15:F15") = 0
Application.EnableEvents = True
End If
End Sub
'-----------------------
Salutations!
"JEAN" a écrit dans le message de news:
du coup quand j'execute ton programme, la valeur dans A n'est pas affiché
directemnt, en plus ca arrete pas de tourner et ca me met ensuite espace pile
insuffisant
quest ce que je peux faire
merci de ton aide
"ru-th" wrote:correctif !
si cela ne se limite pas à e15 mais à l'ensemble de la colonne, on pourrait
modifier
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA(Columns("e")) = 0 Then Exit Sub
Range("a:a").Value = Range("e:e").Value
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"ru-th" a écrit dans le message de news:Salut
à mettre dans le module de la feuille concernée et à compléter pour la
colonne F
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA("e:e") = 0 Then Exit Sub
For i = 1 To [e65536].End(xlUp).Row
Range("a" & i).Value = Range("e" & i).Value
Next
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"JEAN" a écrit dans le message de news:Bonjour,
J'ai des valeur dans la colonne E15 et F15
et je voudrai a chaque fois que je masque les colonnes E et F
les valeurs viennent se mettre en A et B pour E15 je décalerai de 4
pour F15 je decalerai aussi de 4.
Donc j'aurai dans A15 et B15 la valeur que j'avais dans E15 et F15
a savoir qu'il faut quand je masque la valeur de E15 et F15 et la
deplacevers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0
merci de votre aide.
Bonjour Jean,
A ) Publie ma réponse ... la procédure en question... moi, Outlook express ne m'affiche plus mes réponses !!!
B ) Si ta colonne est masquée, comment fais-tu pour inscrire des données dedans ? Tu as des formules ?
Salutations!
"JEAN" a écrit dans le message de news:
la page de cellule c'est E15 à E25
ton pregramme
est bon , mais si j'ecrit une valeur dans E16,et que la colonne est masqué
je voudrai qu'elle vienne en A16
tu vois
qu'est ce qui faut donc rajouter dans le programme
merciBonjour Jean,
Selon la donne initiale de ton problème, ce n'est pas à partir du contenu des cellules en colonne A ou B mais du
contenu
des cellules des colonnes masquées E et F .
Est-ce que la plage de cellules est fixe et est connue ? Si oui, quelle est-elle ?
L'autre aspect, si tes plages de cellules sont importantes, ce type de truc risque de boucler pour un bon moment et
cela
va se reproduire à chaque fois que tu vas sélectionner une nouvelle cellule. Ça va vite devenir un "enfer".
Il serait de loin souhaitable que tu utilises la macro que je t'ai soumise dans mon premier message qui au moment de
masquer les colonnes désirées, modifies la valeur des cellules.
Dans la macro en question : Ajoute en première ligne : Application.EnableEvents = True et en dernière ligne :
Application.EnableEvents = False
P.S. Attention : peut-être es-tu pressé par le temps pour terminer ton application.... mais tu dois te souvenir qu'ici
c'est un service de bénévolat .... et il faut laisser le temps aux répondeurs de s'exécuter (répondre) s'ils en ont
envie.
Salutations!
"JEAN" a écrit dans le message de news:
ok mais si c'est une plage, le programme serait ecrit comment
pour une plage de B15 à B25Bonjour Jean,
Dans la feuille module où l'action se déroule, tu peux copier et tester ceci ...
'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("E:F").Hidden = True Then
If Range("E15") <> 0 Then
Range("A15") = Range("E15")
End If
If Range("F15") <> 0 Then
Range("B15") = Range("F15")
End If
Range("E15:F15") = 0
Application.EnableEvents = True
End If
End Sub
'-----------------------
Salutations!
"JEAN" a écrit dans le message de news:
du coup quand j'execute ton programme, la valeur dans A n'est pas affiché
directemnt, en plus ca arrete pas de tourner et ca me met ensuite espace pile
insuffisant
quest ce que je peux faire
merci de ton aide
"ru-th" wrote:correctif !
si cela ne se limite pas à e15 mais à l'ensemble de la colonne, on pourrait
modifier
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA(Columns("e")) = 0 Then Exit Sub
Range("a:a").Value = Range("e:e").Value
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"ru-th" a écrit dans le message de news:Salut
à mettre dans le module de la feuille concernée et à compléter pour la
colonne F
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA("e:e") = 0 Then Exit Sub
For i = 1 To [e65536].End(xlUp).Row
Range("a" & i).Value = Range("e" & i).Value
Next
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"JEAN" a écrit dans le message de news:Bonjour,
J'ai des valeur dans la colonne E15 et F15
et je voudrai a chaque fois que je masque les colonnes E et F
les valeurs viennent se mettre en A et B pour E15 je décalerai de 4
pour F15 je decalerai aussi de 4.
Donc j'aurai dans A15 et B15 la valeur que j'avais dans E15 et F15
a savoir qu'il faut quand je masque la valeur de E15 et F15 et la
deplacevers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0
merci de votre aide.
Bonjour Jean,
A ) Publie ma réponse ... la procédure en question... moi, Outlook express ne m'affiche plus mes réponses !!!
B ) Si ta colonne est masquée, comment fais-tu pour inscrire des données dedans ? Tu as des formules ?
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
685EC78F-C9F7-447F-BDB4-8A25EBBAA21B@microsoft.com...
la page de cellule c'est E15 à E25
ton pregramme
est bon , mais si j'ecrit une valeur dans E16,et que la colonne est masqué
je voudrai qu'elle vienne en A16
tu vois
qu'est ce qui faut donc rajouter dans le programme
merci
Bonjour Jean,
Selon la donne initiale de ton problème, ce n'est pas à partir du contenu des cellules en colonne A ou B mais du
contenu
des cellules des colonnes masquées E et F .
Est-ce que la plage de cellules est fixe et est connue ? Si oui, quelle est-elle ?
L'autre aspect, si tes plages de cellules sont importantes, ce type de truc risque de boucler pour un bon moment et
cela
va se reproduire à chaque fois que tu vas sélectionner une nouvelle cellule. Ça va vite devenir un "enfer".
Il serait de loin souhaitable que tu utilises la macro que je t'ai soumise dans mon premier message qui au moment de
masquer les colonnes désirées, modifies la valeur des cellules.
Dans la macro en question : Ajoute en première ligne : Application.EnableEvents = True et en dernière ligne :
Application.EnableEvents = False
P.S. Attention : peut-être es-tu pressé par le temps pour terminer ton application.... mais tu dois te souvenir qu'ici
c'est un service de bénévolat .... et il faut laisser le temps aux répondeurs de s'exécuter (répondre) s'ils en ont
envie.
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
89E4C108-B96C-4C63-A6D7-6F035098C837@microsoft.com...
ok mais si c'est une plage, le programme serait ecrit comment
pour une plage de B15 à B25
Bonjour Jean,
Dans la feuille module où l'action se déroule, tu peux copier et tester ceci ...
'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("E:F").Hidden = True Then
If Range("E15") <> 0 Then
Range("A15") = Range("E15")
End If
If Range("F15") <> 0 Then
Range("B15") = Range("F15")
End If
Range("E15:F15") = 0
Application.EnableEvents = True
End If
End Sub
'-----------------------
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
B53D31D7-63D0-4A42-B420-CD96BD589E14@microsoft.com...
du coup quand j'execute ton programme, la valeur dans A n'est pas affiché
directemnt, en plus ca arrete pas de tourner et ca me met ensuite espace pile
insuffisant
quest ce que je peux faire
merci de ton aide
"ru-th" wrote:
correctif !
si cela ne se limite pas à e15 mais à l'ensemble de la colonne, on pourrait
modifier
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA(Columns("e")) = 0 Then Exit Sub
Range("a:a").Value = Range("e:e").Value
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"ru-th" <ailleurs@nowhere.fr> a écrit dans le message de news:
eccOout1EHA.2804@TK2MSFTNGP15.phx.gbl...
Salut
à mettre dans le module de la feuille concernée et à compléter pour la
colonne F
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA("e:e") = 0 Then Exit Sub
For i = 1 To [e65536].End(xlUp).Row
Range("a" & i).Value = Range("e" & i).Value
Next
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
C7462FE4-EA92-47EC-BE7E-55808869584F@microsoft.com...
Bonjour,
J'ai des valeur dans la colonne E15 et F15
et je voudrai a chaque fois que je masque les colonnes E et F
les valeurs viennent se mettre en A et B pour E15 je décalerai de 4
pour F15 je decalerai aussi de 4.
Donc j'aurai dans A15 et B15 la valeur que j'avais dans E15 et F15
a savoir qu'il faut quand je masque la valeur de E15 et F15 et la
deplace
vers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0
merci de votre aide.
Bonjour Jean,
A ) Publie ma réponse ... la procédure en question... moi, Outlook express ne m'affiche plus mes réponses !!!
B ) Si ta colonne est masquée, comment fais-tu pour inscrire des données dedans ? Tu as des formules ?
Salutations!
"JEAN" a écrit dans le message de news:
la page de cellule c'est E15 à E25
ton pregramme
est bon , mais si j'ecrit une valeur dans E16,et que la colonne est masqué
je voudrai qu'elle vienne en A16
tu vois
qu'est ce qui faut donc rajouter dans le programme
merciBonjour Jean,
Selon la donne initiale de ton problème, ce n'est pas à partir du contenu des cellules en colonne A ou B mais du
contenu
des cellules des colonnes masquées E et F .
Est-ce que la plage de cellules est fixe et est connue ? Si oui, quelle est-elle ?
L'autre aspect, si tes plages de cellules sont importantes, ce type de truc risque de boucler pour un bon moment et
cela
va se reproduire à chaque fois que tu vas sélectionner une nouvelle cellule. Ça va vite devenir un "enfer".
Il serait de loin souhaitable que tu utilises la macro que je t'ai soumise dans mon premier message qui au moment de
masquer les colonnes désirées, modifies la valeur des cellules.
Dans la macro en question : Ajoute en première ligne : Application.EnableEvents = True et en dernière ligne :
Application.EnableEvents = False
P.S. Attention : peut-être es-tu pressé par le temps pour terminer ton application.... mais tu dois te souvenir qu'ici
c'est un service de bénévolat .... et il faut laisser le temps aux répondeurs de s'exécuter (répondre) s'ils en ont
envie.
Salutations!
"JEAN" a écrit dans le message de news:
ok mais si c'est une plage, le programme serait ecrit comment
pour une plage de B15 à B25Bonjour Jean,
Dans la feuille module où l'action se déroule, tu peux copier et tester ceci ...
'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("E:F").Hidden = True Then
If Range("E15") <> 0 Then
Range("A15") = Range("E15")
End If
If Range("F15") <> 0 Then
Range("B15") = Range("F15")
End If
Range("E15:F15") = 0
Application.EnableEvents = True
End If
End Sub
'-----------------------
Salutations!
"JEAN" a écrit dans le message de news:
du coup quand j'execute ton programme, la valeur dans A n'est pas affiché
directemnt, en plus ca arrete pas de tourner et ca me met ensuite espace pile
insuffisant
quest ce que je peux faire
merci de ton aide
"ru-th" wrote:correctif !
si cela ne se limite pas à e15 mais à l'ensemble de la colonne, on pourrait
modifier
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA(Columns("e")) = 0 Then Exit Sub
Range("a:a").Value = Range("e:e").Value
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"ru-th" a écrit dans le message de news:Salut
à mettre dans le module de la feuille concernée et à compléter pour la
colonne F
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Columns("e").Hidden = True Then
If Application.CountA("e:e") = 0 Then Exit Sub
For i = 1 To [e65536].End(xlUp).Row
Range("a" & i).Value = Range("e" & i).Value
Next
Columns("e").ClearContents
End If
End Sub
a+
rural thierry
"JEAN" a écrit dans le message de news:Bonjour,
J'ai des valeur dans la colonne E15 et F15
et je voudrai a chaque fois que je masque les colonnes E et F
les valeurs viennent se mettre en A et B pour E15 je décalerai de 4
pour F15 je decalerai aussi de 4.
Donc j'aurai dans A15 et B15 la valeur que j'avais dans E15 et F15
a savoir qu'il faut quand je masque la valeur de E15 et F15 et la
deplacevers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0
merci de votre aide.
