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
Bonjour Bruno
Merci pour cette réponse...et j éviterai la police de couleur . Je suis nouveau sur ce forum.
Concernant 365, il y a des macros possible via "automatiser". Qui saurait programmer dans ce langage ?. Merci
@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
Utilisez les outils Power Automate pour automatiser les processus sur des systèmes, des applications de bureau et des sites web presque illimités à l’aide de l’automatisation des processus IA, numériques et robotiques.
powerautomate.microsoft.com
Rien à voir avec le VBA
Et pas pour masquer des colonnes.
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 +