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
michdenis
Bonjour Érico,
Adapte le nom de la feuille
'------------------------------ Sub MasquerSelonCouleur()
With worksheets("Feuil1") For Each c In .Rows(3).Cells If c.Interior.Color = vbRed Then c.EntireColumn.Hidden = True End If Next End with
End Sub '------------------------------
Salutations!
"Érico" a écrit dans le message de news: Est-ce possible de faire une macro pour masquer des colonnes sur la ligne 3, dont l les cellules sont rouge/orange?
Merci
Bonjour Érico,
Adapte le nom de la feuille
'------------------------------
Sub MasquerSelonCouleur()
With worksheets("Feuil1")
For Each c In .Rows(3).Cells
If c.Interior.Color = vbRed Then
c.EntireColumn.Hidden = True
End If
Next
End with
End Sub
'------------------------------
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news: eEg0emJuFHA.2076@TK2MSFTNGP14.phx.gbl...
Est-ce possible de faire une macro pour masquer des colonnes sur la ligne 3,
dont l les cellules sont rouge/orange?
'------------------------------ Sub MasquerSelonCouleur()
With worksheets("Feuil1") For Each c In .Rows(3).Cells If c.Interior.Color = vbRed Then c.EntireColumn.Hidden = True End If Next End with
End Sub '------------------------------
Salutations!
"Érico" a écrit dans le message de news: Est-ce possible de faire une macro pour masquer des colonnes sur la ligne 3, dont l les cellules sont rouge/orange?
Merci
Érico
Merci, ça fonctionné
Si mettons, je remplace la ligne 3 par un nom "ligne3", comment je le remplace dans la macro? For Each c In .Rows(ligne3).Cells ???
Merci beaucoup pour ton aide.
"michdenis" a écrit dans le message de news:
Bonjour Érico,
Adapte le nom de la feuille
'------------------------------ Sub MasquerSelonCouleur()
With worksheets("Feuil1") For Each c In .Rows(3).Cells If c.Interior.Color = vbRed Then c.EntireColumn.Hidden = True End If Next End with
End Sub '------------------------------
Salutations!
"Érico" a écrit dans le message de news:
Est-ce possible de faire une macro pour masquer des colonnes sur la ligne 3, dont l les cellules sont rouge/orange?
Merci
Merci, ça fonctionné
Si mettons, je remplace la ligne 3 par un nom "ligne3", comment je le
remplace dans la macro?
For Each c In .Rows(ligne3).Cells ???
Merci beaucoup pour ton aide.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ewtUCuJuFHA.2504@tk2msftngp13.phx.gbl...
Bonjour Érico,
Adapte le nom de la feuille
'------------------------------
Sub MasquerSelonCouleur()
With worksheets("Feuil1")
For Each c In .Rows(3).Cells
If c.Interior.Color = vbRed Then
c.EntireColumn.Hidden = True
End If
Next
End with
End Sub
'------------------------------
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
eEg0emJuFHA.2076@TK2MSFTNGP14.phx.gbl...
Est-ce possible de faire une macro pour masquer des colonnes sur la ligne
3,
dont l les cellules sont rouge/orange?
Si mettons, je remplace la ligne 3 par un nom "ligne3", comment je le remplace dans la macro? For Each c In .Rows(ligne3).Cells ???
Merci beaucoup pour ton aide.
"michdenis" a écrit dans le message de news:
Bonjour Érico,
Adapte le nom de la feuille
'------------------------------ Sub MasquerSelonCouleur()
With worksheets("Feuil1") For Each c In .Rows(3).Cells If c.Interior.Color = vbRed Then c.EntireColumn.Hidden = True End If Next End with
End Sub '------------------------------
Salutations!
"Érico" a écrit dans le message de news:
Est-ce possible de faire une macro pour masquer des colonnes sur la ligne 3, dont l les cellules sont rouge/orange?
Merci
michdenis
Bonjour Érico,
Si "Ligne3" représente une plage nommée de cellules (insertion/nom/définir) et que son étendue est la ligne 3,
For Each c In range("Ligne3").Cells
Salutations!
"Érico" a écrit dans le message de news: % Merci, ça fonctionné
Si mettons, je remplace la ligne 3 par un nom "ligne3", comment je le remplace dans la macro? For Each c In .Rows(ligne3).Cells ???
Merci beaucoup pour ton aide.
"michdenis" a écrit dans le message de news:
Bonjour Érico,
Adapte le nom de la feuille
'------------------------------ Sub MasquerSelonCouleur()
With worksheets("Feuil1") For Each c In .Rows(3).Cells If c.Interior.Color = vbRed Then c.EntireColumn.Hidden = True End If Next End with
End Sub '------------------------------
Salutations!
"Érico" a écrit dans le message de news:
Est-ce possible de faire une macro pour masquer des colonnes sur la ligne 3, dont l les cellules sont rouge/orange?
Merci
Bonjour Érico,
Si "Ligne3" représente une plage nommée de cellules (insertion/nom/définir) et que son étendue est la ligne 3,
For Each c In range("Ligne3").Cells
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news: %23i9zkLTuFHA.664@tk2msftngp13.phx.gbl...
Merci, ça fonctionné
Si mettons, je remplace la ligne 3 par un nom "ligne3", comment je le
remplace dans la macro?
For Each c In .Rows(ligne3).Cells ???
Merci beaucoup pour ton aide.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ewtUCuJuFHA.2504@tk2msftngp13.phx.gbl...
Bonjour Érico,
Adapte le nom de la feuille
'------------------------------
Sub MasquerSelonCouleur()
With worksheets("Feuil1")
For Each c In .Rows(3).Cells
If c.Interior.Color = vbRed Then
c.EntireColumn.Hidden = True
End If
Next
End with
End Sub
'------------------------------
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
eEg0emJuFHA.2076@TK2MSFTNGP14.phx.gbl...
Est-ce possible de faire une macro pour masquer des colonnes sur la ligne
3,
dont l les cellules sont rouge/orange?
Si "Ligne3" représente une plage nommée de cellules (insertion/nom/définir) et que son étendue est la ligne 3,
For Each c In range("Ligne3").Cells
Salutations!
"Érico" a écrit dans le message de news: % Merci, ça fonctionné
Si mettons, je remplace la ligne 3 par un nom "ligne3", comment je le remplace dans la macro? For Each c In .Rows(ligne3).Cells ???
Merci beaucoup pour ton aide.
"michdenis" a écrit dans le message de news:
Bonjour Érico,
Adapte le nom de la feuille
'------------------------------ Sub MasquerSelonCouleur()
With worksheets("Feuil1") For Each c In .Rows(3).Cells If c.Interior.Color = vbRed Then c.EntireColumn.Hidden = True End If Next End with
End Sub '------------------------------
Salutations!
"Érico" a écrit dans le message de news:
Est-ce possible de faire une macro pour masquer des colonnes sur la ligne 3, dont l les cellules sont rouge/orange?
Merci
Érico
ça fonctionne michdenis! Merci Dis moi, c'est quoi tu fais dans vie pour être bon et vite? Travailles-tu pour Microsoft?
Érico
"michdenis" a écrit dans le message de news:
Bonjour Érico,
Si "Ligne3" représente une plage nommée de cellules (insertion/nom/définir) et que son étendue est la ligne 3,
For Each c In range("Ligne3").Cells
Salutations!
"Érico" a écrit dans le message de news: % Merci, ça fonctionné
Si mettons, je remplace la ligne 3 par un nom "ligne3", comment je le remplace dans la macro? For Each c In .Rows(ligne3).Cells ???
Merci beaucoup pour ton aide.
"michdenis" a écrit dans le message de news:
Bonjour Érico,
Adapte le nom de la feuille
'------------------------------ Sub MasquerSelonCouleur()
With worksheets("Feuil1") For Each c In .Rows(3).Cells If c.Interior.Color = vbRed Then c.EntireColumn.Hidden = True End If Next End with
End Sub '------------------------------
Salutations!
"Érico" a écrit dans le message de news:
Est-ce possible de faire une macro pour masquer des colonnes sur la ligne 3, dont l les cellules sont rouge/orange?
Merci
ça fonctionne michdenis!
Merci
Dis moi, c'est quoi tu fais dans vie pour être bon et vite?
Travailles-tu pour Microsoft?
Érico
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
O4N7WQTuFHA.1256@TK2MSFTNGP09.phx.gbl...
Bonjour Érico,
Si "Ligne3" représente une plage nommée de cellules
(insertion/nom/définir) et que son étendue est la ligne 3,
For Each c In range("Ligne3").Cells
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
%23i9zkLTuFHA.664@tk2msftngp13.phx.gbl...
Merci, ça fonctionné
Si mettons, je remplace la ligne 3 par un nom "ligne3", comment je le
remplace dans la macro?
For Each c In .Rows(ligne3).Cells ???
Merci beaucoup pour ton aide.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ewtUCuJuFHA.2504@tk2msftngp13.phx.gbl...
Bonjour Érico,
Adapte le nom de la feuille
'------------------------------
Sub MasquerSelonCouleur()
With worksheets("Feuil1")
For Each c In .Rows(3).Cells
If c.Interior.Color = vbRed Then
c.EntireColumn.Hidden = True
End If
Next
End with
End Sub
'------------------------------
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
eEg0emJuFHA.2076@TK2MSFTNGP14.phx.gbl...
Est-ce possible de faire une macro pour masquer des colonnes sur la ligne
3,
dont l les cellules sont rouge/orange?
ça fonctionne michdenis! Merci Dis moi, c'est quoi tu fais dans vie pour être bon et vite? Travailles-tu pour Microsoft?
Érico
"michdenis" a écrit dans le message de news:
Bonjour Érico,
Si "Ligne3" représente une plage nommée de cellules (insertion/nom/définir) et que son étendue est la ligne 3,
For Each c In range("Ligne3").Cells
Salutations!
"Érico" a écrit dans le message de news: % Merci, ça fonctionné
Si mettons, je remplace la ligne 3 par un nom "ligne3", comment je le remplace dans la macro? For Each c In .Rows(ligne3).Cells ???
Merci beaucoup pour ton aide.
"michdenis" a écrit dans le message de news:
Bonjour Érico,
Adapte le nom de la feuille
'------------------------------ Sub MasquerSelonCouleur()
With worksheets("Feuil1") For Each c In .Rows(3).Cells If c.Interior.Color = vbRed Then c.EntireColumn.Hidden = True End If Next End with
End Sub '------------------------------
Salutations!
"Érico" a écrit dans le message de news:
Est-ce possible de faire une macro pour masquer des colonnes sur la ligne 3, dont l les cellules sont rouge/orange?
Merci
michdenis
Bonsoir Érico,
Tous les répondants sur ce forum sont bénévoles.
Salutations!
"Érico" a écrit dans le message de news: ça fonctionne michdenis! Merci Dis moi, c'est quoi tu fais dans vie pour être bon et vite? Travailles-tu pour Microsoft?
Érico
"michdenis" a écrit dans le message de news:
Bonjour Érico,
Si "Ligne3" représente une plage nommée de cellules (insertion/nom/définir) et que son étendue est la ligne 3,
For Each c In range("Ligne3").Cells
Salutations!
"Érico" a écrit dans le message de news: % Merci, ça fonctionné
Si mettons, je remplace la ligne 3 par un nom "ligne3", comment je le remplace dans la macro? For Each c In .Rows(ligne3).Cells ???
Merci beaucoup pour ton aide.
"michdenis" a écrit dans le message de news:
Bonjour Érico,
Adapte le nom de la feuille
'------------------------------ Sub MasquerSelonCouleur()
With worksheets("Feuil1") For Each c In .Rows(3).Cells If c.Interior.Color = vbRed Then c.EntireColumn.Hidden = True End If Next End with
End Sub '------------------------------
Salutations!
"Érico" a écrit dans le message de news:
Est-ce possible de faire une macro pour masquer des colonnes sur la ligne 3, dont l les cellules sont rouge/orange?
Merci
Bonsoir Érico,
Tous les répondants sur ce forum sont bénévoles.
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news: uMl2MfTuFHA.1028@TK2MSFTNGP12.phx.gbl...
ça fonctionne michdenis!
Merci
Dis moi, c'est quoi tu fais dans vie pour être bon et vite?
Travailles-tu pour Microsoft?
Érico
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
O4N7WQTuFHA.1256@TK2MSFTNGP09.phx.gbl...
Bonjour Érico,
Si "Ligne3" représente une plage nommée de cellules
(insertion/nom/définir) et que son étendue est la ligne 3,
For Each c In range("Ligne3").Cells
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
%23i9zkLTuFHA.664@tk2msftngp13.phx.gbl...
Merci, ça fonctionné
Si mettons, je remplace la ligne 3 par un nom "ligne3", comment je le
remplace dans la macro?
For Each c In .Rows(ligne3).Cells ???
Merci beaucoup pour ton aide.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ewtUCuJuFHA.2504@tk2msftngp13.phx.gbl...
Bonjour Érico,
Adapte le nom de la feuille
'------------------------------
Sub MasquerSelonCouleur()
With worksheets("Feuil1")
For Each c In .Rows(3).Cells
If c.Interior.Color = vbRed Then
c.EntireColumn.Hidden = True
End If
Next
End with
End Sub
'------------------------------
Salutations!
"Érico" <hahaha@videotron.ca> a écrit dans le message de news:
eEg0emJuFHA.2076@TK2MSFTNGP14.phx.gbl...
Est-ce possible de faire une macro pour masquer des colonnes sur la ligne
3,
dont l les cellules sont rouge/orange?
"Érico" a écrit dans le message de news: ça fonctionne michdenis! Merci Dis moi, c'est quoi tu fais dans vie pour être bon et vite? Travailles-tu pour Microsoft?
Érico
"michdenis" a écrit dans le message de news:
Bonjour Érico,
Si "Ligne3" représente une plage nommée de cellules (insertion/nom/définir) et que son étendue est la ligne 3,
For Each c In range("Ligne3").Cells
Salutations!
"Érico" a écrit dans le message de news: % Merci, ça fonctionné
Si mettons, je remplace la ligne 3 par un nom "ligne3", comment je le remplace dans la macro? For Each c In .Rows(ligne3).Cells ???
Merci beaucoup pour ton aide.
"michdenis" a écrit dans le message de news:
Bonjour Érico,
Adapte le nom de la feuille
'------------------------------ Sub MasquerSelonCouleur()
With worksheets("Feuil1") For Each c In .Rows(3).Cells If c.Interior.Color = vbRed Then c.EntireColumn.Hidden = True End If Next End with
End Sub '------------------------------
Salutations!
"Érico" a écrit dans le message de news:
Est-ce possible de faire une macro pour masquer des colonnes sur la ligne 3, dont l les cellules sont rouge/orange?
