Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Masquer colonne et valeur

Masquer colonne et valeur

13 réponses
Avatar
JEAN
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.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
ru-th
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 deplace
vers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0

merci de votre aide.



Avatar
AV
et on fait quoi des réponses à tes autres questions ?
Allo ? Mr testou ?

Pfffff...
AV
Avatar
michdenis
Bonjour Jean,

En supposant que tu veuilles masquer seulement ces 2 colonnes (tu peux toujours en ajouter...) de la feuil1

'-----------------------------
Sub Masquer_Colonnes()

With Worksheets("Feuil1") 'à déterminer
.Columns("E:F").Hidden = True
.Range("A15") = .Range("E15")
.Range("B15") = .Range("F15")
.Range("E15:F15") = 0
End With

End Sub
'-----------------------------

'Pour afficher les colonnes
'----------------------------
Sub Affichier_Colonnes()

With Worksheets("Feuil1")
.Columns("E:F").Hidden = False
End With

End Sub
'-----------------------------


Salutations!




"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 deplace
vers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0

merci de votre aide.
Avatar
ru-th
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
deplace


vers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0

merci de votre aide.







Avatar
JEAN
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
deplace


vers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0

merci de votre aide.












Avatar
ru-th
Tu as bien pris la version 2 (le correctif) ?

ou peut-être faut-il changer la pile ?
;-))

a+
rural thierry

"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
deplace


vers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur
de 0





merci de votre aide.














Avatar
michdenis
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" 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
deplace


vers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0

merci de votre aide.












Avatar
JEAN
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" 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
deplace


vers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0

merci de votre aide.

















Avatar
JEAN
ce programme marche pour une cellule

mais si je veux ecrire pour une plage:

If Columns("E:F").Hidden = True Then
If Range("E15:E25") <> 0 Then
Range("A15:A25") = Range("E15")
End If
If Range("F15:F25") <> 0 Then
Range("B15:B25") = Range("F15")
End If
Range("E15:F25") = 0
Application.EnableEvents = True
End If

End Sub

cela me genere quelque erreurs??????????


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" 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
deplace


vers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0

merci de votre aide.

















Avatar
michdenis
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 à 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" 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
deplace


vers A15 et B15, il faut ensuite Que E15 et F15 prennent la valeur de 0

merci de votre aide.

















1 2