Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 macros sur excel web 365 "masquer des colonnes sous condition"

jefbi

XLDnaute Nouveau
Bonjour

J'ai besoin de votre aide

Macro pour masquer toutes les colonnes contenant 1 sur la ligne 2 et de laisser afficher les colonnes contenant 0 toujours sur cette ligne 2
via un bouton.
Celui ci permet d'exécuter cette fonction ou en ré appuyant dessus d'annuler cette fonction.
En résumé dans cet exemple faire disparaître les colonnes ABCFH et ne laisser que les colonnes DEGIJ.


Private Sub Masquer_Démasquer()
Dim rng As Range
For Each rng In [A2:J2]
If rng.Value = 1 Then rng.EntireColumn.Hidden = Not rng.EntireColumn.Hidden
Next rng
End Sub

Private Sub Bouton1_Click()
Masquer_Démasquer
End Sub


cette macro ne fonctionne pas sur Excel pour le Web qui ne prend pas en charge l’exécution ou l’interaction avec Contrôles ActiveX. Sauriez vous convertir cette macro
Merci d'avance pour votre réponse

Cordialement
 

Staple1600

XLDnaute Barbatruc
Bonjour @jefbi, @BrunoM45 , le fil

@jefbi
Accessoirement, il semblerait que le résultat soit le même
(Pour ceux pour qui est le SI n'appartient qu'à Romy, surtout si on le double )
VB:
Private Sub Masquer_Démasquer_NO_IF()
Dim r As Range
For Each r In [A2:J2]
r.EntireColumn.Hidden = r.Value = 1 = Not r.EntireColumn.Hidden
Next r
End Sub

NB: Quand tu dis automatiser, si tu parles de ceci
Rien à voir avec le VBA
Et pas pour masquer des colonnes.
 

Wayki

XLDnaute Impliqué
Bonjour le fil,
Une automation existe sur Excel Web tout comme sur sheet.
Mais c'est du script, langage C+ ou Java je sais pas, ça s'approche beaucoup plus du développement pur que du langage VBA.
Éventuellement, regarder par ici.
Aucune idée des possibilités avec ces derniers.
A +
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…