Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une
cellule sur fond gris soient masquer automatiquement. Je ne sais pas
comment faire mon code en VBA.
Merci de m'aider
Marc
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une
cellule sur fond gris soient masquer automatiquement. Je ne sais pas
comment faire mon code en VBA.
Merci de m'aider
Marc
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une
cellule sur fond gris soient masquer automatiquement. Je ne sais pas
comment faire mon code en VBA.
Merci de m'aider
Marc
bonjour Marc,
la couleur est appliquée par quel méthode, Format ou Mise en forme
conditionnel ?
isabelle
marc a écrit :Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur fond gris soient masquer automatiquement. Je ne sais pas comment
faire mon code en VBA.
Merci de m'aider
Marc
bonjour Marc,
la couleur est appliquée par quel méthode, Format ou Mise en forme
conditionnel ?
isabelle
marc a écrit :
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur fond gris soient masquer automatiquement. Je ne sais pas comment
faire mon code en VBA.
Merci de m'aider
Marc
bonjour Marc,
la couleur est appliquée par quel méthode, Format ou Mise en forme
conditionnel ?
isabelle
marc a écrit :Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur fond gris soient masquer automatiquement. Je ne sais pas comment
faire mon code en VBA.
Merci de m'aider
Marc
Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" a écrit dans le message de groupe de
discussion :
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire mon
code en VBA.
Merci de m'aider
Marc
Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" <marcus.marucs.1@hotmail.com> a écrit dans le message de groupe de
discussion :
32C3E977-68F0-4A32-89CB-70BC6D976E93@microsoft.com...
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire mon
code en VBA.
Merci de m'aider
Marc
Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" a écrit dans le message de groupe de
discussion :
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire mon
code en VBA.
Merci de m'aider
Marc
Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" a écrit dans le message de groupe de
discussion :
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire mon
code en VBA.
Merci de m'aider
Marc
Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" <marcus.marucs.1@hotmail.com> a écrit dans le message de groupe de
discussion :
32C3E977-68F0-4A32-89CB-70BC6D976E93@microsoft.com...
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire mon
code en VBA.
Merci de m'aider
Marc
Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" a écrit dans le message de groupe de
discussion :
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire mon
code en VBA.
Merci de m'aider
Marc
Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" a écrit dans le message de groupe de
discussion :
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire mon
code en VBA.
Merci de m'aider
Marc
Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" <marcus.marucs.1@hotmail.com> a écrit dans le message de groupe de
discussion :
32C3E977-68F0-4A32-89CB-70BC6D976E93@microsoft.com...
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire mon
code en VBA.
Merci de m'aider
Marc
Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" a écrit dans le message de groupe de
discussion :
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire mon
code en VBA.
Merci de m'aider
Marc
Oui, tu utilises cet événement du ThisWorkbook de ton classeur
à chaque fois que tu vas enregistrer ton classeur, juste avant
cette procédure va appeler la macro et l'exécuter
'-----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
'Tu entres le nom de ta macro
End Sub
'-----------------------------
"marc" a écrit dans le message de groupe de discussion :
#
Bonjour Michdenis
Est-il possible que la macro s'exécuter automatiquement dès que je
sauvegarde le document?
merci
"michdenis" a écrit dans le message de news:Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" a écrit dans le message de groupe de
discussion :
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire
mon
code en VBA.
Merci de m'aider
Marc
Oui, tu utilises cet événement du ThisWorkbook de ton classeur
à chaque fois que tu vas enregistrer ton classeur, juste avant
cette procédure va appeler la macro et l'exécuter
'-----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
'Tu entres le nom de ta macro
End Sub
'-----------------------------
"marc" <test@test.com> a écrit dans le message de groupe de discussion :
#opP2MRjJHA.5812@TK2MSFTNGP06.phx.gbl...
Bonjour Michdenis
Est-il possible que la macro s'exécuter automatiquement dès que je
sauvegarde le document?
merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
6C0A6D91-57F9-4B60-B8C9-B88ABECEBC33@microsoft.com...
Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" <marcus.marucs.1@hotmail.com> a écrit dans le message de groupe de
discussion :
32C3E977-68F0-4A32-89CB-70BC6D976E93@microsoft.com...
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire
mon
code en VBA.
Merci de m'aider
Marc
Oui, tu utilises cet événement du ThisWorkbook de ton classeur
à chaque fois que tu vas enregistrer ton classeur, juste avant
cette procédure va appeler la macro et l'exécuter
'-----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
'Tu entres le nom de ta macro
End Sub
'-----------------------------
"marc" a écrit dans le message de groupe de discussion :
#
Bonjour Michdenis
Est-il possible que la macro s'exécuter automatiquement dès que je
sauvegarde le document?
merci
"michdenis" a écrit dans le message de news:Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" a écrit dans le message de groupe de
discussion :
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire
mon
code en VBA.
Merci de m'aider
Marc
Oui, tu utilises cet événement du ThisWorkbook de ton classeur
à chaque fois que tu vas enregistrer ton classeur, juste avant
cette procédure va appeler la macro et l'exécuter
'-----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
'Tu entres le nom de ta macro
End Sub
'-----------------------------
"marc" a écrit dans le message de groupe de discussion :
#
Bonjour Michdenis
Est-il possible que la macro s'exécuter automatiquement dès que je
sauvegarde le document?
merci
"michdenis" a écrit dans le message de news:Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" a écrit dans le message de groupe de
discussion :
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire
mon
code en VBA.
Merci de m'aider
Marc
Oui, tu utilises cet événement du ThisWorkbook de ton classeur
à chaque fois que tu vas enregistrer ton classeur, juste avant
cette procédure va appeler la macro et l'exécuter
'-----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
'Tu entres le nom de ta macro
End Sub
'-----------------------------
"marc" <test@test.com> a écrit dans le message de groupe de discussion :
#opP2MRjJHA.5812@TK2MSFTNGP06.phx.gbl...
Bonjour Michdenis
Est-il possible que la macro s'exécuter automatiquement dès que je
sauvegarde le document?
merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
6C0A6D91-57F9-4B60-B8C9-B88ABECEBC33@microsoft.com...
Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" <marcus.marucs.1@hotmail.com> a écrit dans le message de groupe de
discussion :
32C3E977-68F0-4A32-89CB-70BC6D976E93@microsoft.com...
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire
mon
code en VBA.
Merci de m'aider
Marc
Oui, tu utilises cet événement du ThisWorkbook de ton classeur
à chaque fois que tu vas enregistrer ton classeur, juste avant
cette procédure va appeler la macro et l'exécuter
'-----------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
'Tu entres le nom de ta macro
End Sub
'-----------------------------
"marc" a écrit dans le message de groupe de discussion :
#
Bonjour Michdenis
Est-il possible que la macro s'exécuter automatiquement dès que je
sauvegarde le document?
merci
"michdenis" a écrit dans le message de news:Sous Excel 2007, j'ai utilisé ceci pour la recherche
VbYellow fait parti des constantes couleurs d'excel
il ya aussi VBRed, vbblack, vbwhite, vbgreen, vbblue, vbmagenta, vbCya
.Interior.Color = vbYellow
Si tu as utilisé les index des couleurs, tu devras modifier
la ligne de code de la lprocédure .Interior.Color = vbYellow
par Interior.ColorIndex = 6 ou l'index approprié.
'--------------------------------------------
Sub Test()
Dim DerLig As Long, DerCol As Integer
Dim Rg As Range, LeCellFormat As CellFormat
Dim C As Range, Adr As String
With Feuil1
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByRows, _
SearchDirection:=xlPrevious).Row
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
searchorder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
'Plage sur laquelle se fait la recherche
Set Rg = .Range("A1", .Cells(DerLig,
DerCol)).SpecialCells(xlCellTypeVisible)
Set LeCellFormat = Application.FindFormat
'Détermine les caractéristiques
'du format de cellule recherché.
With LeCellFormat
.Clear 'S'assurer d'effacer les critères
'des anciennes recherches
.Interior.Color = vbYellow
'La liste pourrait être plus longue ...
End With
End With
'Détermine la plage de cellules où s'effectue
'Trouve la cellule ayant le bon format pour
'y effectuer une ou des opérations quelconques...
With Rg
Set C = .Find(What:="", searchorder:=xlByRows, SearchFormat:=True)
If Not C Is Nothing Then
Adr = C.Address
Do
'Le code que tu veux exécuter avec la cellule trouvée
C.EntireRow.Hidden = True
'pour passer à la cellule suivante ...
Set C = .Find(What:="", after:=C(1, 1), SearchFormat:=True)
Loop Until C.Address = Adr
End If
End With
End Sub
'--------------------------------------------
"marc" a écrit dans le message de groupe de
discussion :
Bonjour à vous tous
J'aimerais, que dans un fichier, les lignes qui ont au moins une cellule
sur
fond gris soient masquer automatiquement. Je ne sais pas comment faire
mon
code en VBA.
Merci de m'aider
Marc