Bonjour et merci beaucoup François !!
Le code est hyper intéressant et je vais le potasser pour le comprendre.
Malheureusement, il ne répond qu'à la première partie du problème, celle que
j'avais réussi à résoudre.
En effet en mettant colonne C, ca marche ca groupe bien les lignes entre l es
comptes de niv2. Par conter, si je mets colonne D, là, ca ne résoud pa s le
fameux problème des comptes de Niv2 qui sse trouvent entre les comptes d e
Niv3.
Pour ta question sur le code ActiveSheet.Outline.ShowLevels RowLevels:=1 ,
ColumnLevels:=1, c'est juste qu'à la fin je ferme le plan afin d'offri r une
visibilité dus les comptes de Niv2 (mais vraiment c'est un détail de l a
macro, il s'agit de mettre ça uniquement à la fin...).
Si tu as la réponse pour mon pb des colonnes D & E, je suis preneur...
A+
JF
a écrit dans le message de news:
Salut Jean François
Essaies ce code en adaptant le paramètre Colonne en fonction de la
colonne à traiter :
Colonne = "D"
Range(Colonne & Range("A65535").End(xlUp).Row).Select
Do While ActiveCell.Row > 3
If ActiveCell = "" Then
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1,
0)).EntireRow.Activate
Selection.Group
Else
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.End(xlUp).Activate
End If
End If
Range(Colonne & ActiveCell.Offset(-1, 0).Row).Activate
Loop
Répètes le code à la suite pour chaque colonne en n'oubliant pas
d'actualiser le paramètre Colonne
Si ton code aboutissait à un regroupement de lignes c'est en raison de
l'instruction en fin :
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
Je ne l'ai pas utilisé dans ma proposition ne sachant pas ce que tu
recherchais avec
Fais des essais et dis moi !!!!
Bonjour et merci beaucoup François !!
Le code est hyper intéressant et je vais le potasser pour le comprendre.
Malheureusement, il ne répond qu'à la première partie du problème, celle que
j'avais réussi à résoudre.
En effet en mettant colonne C, ca marche ca groupe bien les lignes entre l es
comptes de niv2. Par conter, si je mets colonne D, là, ca ne résoud pa s le
fameux problème des comptes de Niv2 qui sse trouvent entre les comptes d e
Niv3.
Pour ta question sur le code ActiveSheet.Outline.ShowLevels RowLevels:=1 ,
ColumnLevels:=1, c'est juste qu'à la fin je ferme le plan afin d'offri r une
visibilité dus les comptes de Niv2 (mais vraiment c'est un détail de l a
macro, il s'agit de mettre ça uniquement à la fin...).
Si tu as la réponse pour mon pb des colonnes D & E, je suis preneur...
A+
JF
<francois.for...@wanadoo.fr> a écrit dans le message de news:
60de1805-5a8e-4b29-8058-a49e49e48...@z17g2000hsg.googlegroups.com...
Salut Jean François
Essaies ce code en adaptant le paramètre Colonne en fonction de la
colonne à traiter :
Colonne = "D"
Range(Colonne & Range("A65535").End(xlUp).Row).Select
Do While ActiveCell.Row > 3
If ActiveCell = "" Then
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1,
0)).EntireRow.Activate
Selection.Group
Else
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.End(xlUp).Activate
End If
End If
Range(Colonne & ActiveCell.Offset(-1, 0).Row).Activate
Loop
Répètes le code à la suite pour chaque colonne en n'oubliant pas
d'actualiser le paramètre Colonne
Si ton code aboutissait à un regroupement de lignes c'est en raison de
l'instruction en fin :
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
Je ne l'ai pas utilisé dans ma proposition ne sachant pas ce que tu
recherchais avec
Fais des essais et dis moi !!!!
Bonjour et merci beaucoup François !!
Le code est hyper intéressant et je vais le potasser pour le comprendre.
Malheureusement, il ne répond qu'à la première partie du problème, celle que
j'avais réussi à résoudre.
En effet en mettant colonne C, ca marche ca groupe bien les lignes entre l es
comptes de niv2. Par conter, si je mets colonne D, là, ca ne résoud pa s le
fameux problème des comptes de Niv2 qui sse trouvent entre les comptes d e
Niv3.
Pour ta question sur le code ActiveSheet.Outline.ShowLevels RowLevels:=1 ,
ColumnLevels:=1, c'est juste qu'à la fin je ferme le plan afin d'offri r une
visibilité dus les comptes de Niv2 (mais vraiment c'est un détail de l a
macro, il s'agit de mettre ça uniquement à la fin...).
Si tu as la réponse pour mon pb des colonnes D & E, je suis preneur...
A+
JF
a écrit dans le message de news:
Salut Jean François
Essaies ce code en adaptant le paramètre Colonne en fonction de la
colonne à traiter :
Colonne = "D"
Range(Colonne & Range("A65535").End(xlUp).Row).Select
Do While ActiveCell.Row > 3
If ActiveCell = "" Then
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1,
0)).EntireRow.Activate
Selection.Group
Else
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.End(xlUp).Activate
End If
End If
Range(Colonne & ActiveCell.Offset(-1, 0).Row).Activate
Loop
Répètes le code à la suite pour chaque colonne en n'oubliant pas
d'actualiser le paramètre Colonne
Si ton code aboutissait à un regroupement de lignes c'est en raison de
l'instruction en fin :
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
Je ne l'ai pas utilisé dans ma proposition ne sachant pas ce que tu
recherchais avec
Fais des essais et dis moi !!!!
Bonjour et merci beaucoup François !!
Le code est hyper intéressant et je vais le potasser pour le comprendre.
Malheureusement, il ne répond qu'à la première partie du problème, celle
que
j'avais réussi à résoudre.
En effet en mettant colonne C, ca marche ca groupe bien les lignes entre
les
comptes de niv2. Par conter, si je mets colonne D, là, ca ne résoud pas le
fameux problème des comptes de Niv2 qui sse trouvent entre les comptes de
Niv3.
Pour ta question sur le code ActiveSheet.Outline.ShowLevels RowLevels:=1,
ColumnLevels:=1, c'est juste qu'à la fin je ferme le plan afin d'offrir
une
visibilité dus les comptes de Niv2 (mais vraiment c'est un détail de la
macro, il s'agit de mettre ça uniquement à la fin...).
Si tu as la réponse pour mon pb des colonnes D & E, je suis preneur...
A+
JF
a écrit dans le message de news:
Salut Jean François
Essaies ce code en adaptant le paramètre Colonne en fonction de la
colonne à traiter :
Colonne = "D"
Range(Colonne & Range("A65535").End(xlUp).Row).Select
Do While ActiveCell.Row > 3
If ActiveCell = "" Then
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1,
0)).EntireRow.Activate
Selection.Group
Else
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.End(xlUp).Activate
End If
End If
Range(Colonne & ActiveCell.Offset(-1, 0).Row).Activate
Loop
Répètes le code à la suite pour chaque colonne en n'oubliant pas
d'actualiser le paramètre Colonne
Si ton code aboutissait à un regroupement de lignes c'est en raison de
l'instruction en fin :
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
Je ne l'ai pas utilisé dans ma proposition ne sachant pas ce que tu
recherchais avec
Fais des essais et dis moi !!!!
Bonjour et merci beaucoup François !!
Le code est hyper intéressant et je vais le potasser pour le comprendre.
Malheureusement, il ne répond qu'à la première partie du problème, celle
que
j'avais réussi à résoudre.
En effet en mettant colonne C, ca marche ca groupe bien les lignes entre
les
comptes de niv2. Par conter, si je mets colonne D, là, ca ne résoud pas le
fameux problème des comptes de Niv2 qui sse trouvent entre les comptes de
Niv3.
Pour ta question sur le code ActiveSheet.Outline.ShowLevels RowLevels:=1,
ColumnLevels:=1, c'est juste qu'à la fin je ferme le plan afin d'offrir
une
visibilité dus les comptes de Niv2 (mais vraiment c'est un détail de la
macro, il s'agit de mettre ça uniquement à la fin...).
Si tu as la réponse pour mon pb des colonnes D & E, je suis preneur...
A+
JF
<francois.for...@wanadoo.fr> a écrit dans le message de news:
60de1805-5a8e-4b29-8058-a49e49e48...@z17g2000hsg.googlegroups.com...
Salut Jean François
Essaies ce code en adaptant le paramètre Colonne en fonction de la
colonne à traiter :
Colonne = "D"
Range(Colonne & Range("A65535").End(xlUp).Row).Select
Do While ActiveCell.Row > 3
If ActiveCell = "" Then
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1,
0)).EntireRow.Activate
Selection.Group
Else
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.End(xlUp).Activate
End If
End If
Range(Colonne & ActiveCell.Offset(-1, 0).Row).Activate
Loop
Répètes le code à la suite pour chaque colonne en n'oubliant pas
d'actualiser le paramètre Colonne
Si ton code aboutissait à un regroupement de lignes c'est en raison de
l'instruction en fin :
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
Je ne l'ai pas utilisé dans ma proposition ne sachant pas ce que tu
recherchais avec
Fais des essais et dis moi !!!!
Bonjour et merci beaucoup François !!
Le code est hyper intéressant et je vais le potasser pour le comprendre.
Malheureusement, il ne répond qu'à la première partie du problème, celle
que
j'avais réussi à résoudre.
En effet en mettant colonne C, ca marche ca groupe bien les lignes entre
les
comptes de niv2. Par conter, si je mets colonne D, là, ca ne résoud pas le
fameux problème des comptes de Niv2 qui sse trouvent entre les comptes de
Niv3.
Pour ta question sur le code ActiveSheet.Outline.ShowLevels RowLevels:=1,
ColumnLevels:=1, c'est juste qu'à la fin je ferme le plan afin d'offrir
une
visibilité dus les comptes de Niv2 (mais vraiment c'est un détail de la
macro, il s'agit de mettre ça uniquement à la fin...).
Si tu as la réponse pour mon pb des colonnes D & E, je suis preneur...
A+
JF
a écrit dans le message de news:
Salut Jean François
Essaies ce code en adaptant le paramètre Colonne en fonction de la
colonne à traiter :
Colonne = "D"
Range(Colonne & Range("A65535").End(xlUp).Row).Select
Do While ActiveCell.Row > 3
If ActiveCell = "" Then
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1,
0)).EntireRow.Activate
Selection.Group
Else
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.End(xlUp).Activate
End If
End If
Range(Colonne & ActiveCell.Offset(-1, 0).Row).Activate
Loop
Répètes le code à la suite pour chaque colonne en n'oubliant pas
d'actualiser le paramètre Colonne
Si ton code aboutissait à un regroupement de lignes c'est en raison de
l'instruction en fin :
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
Je ne l'ai pas utilisé dans ma proposition ne sachant pas ce que tu
recherchais avec
Fais des essais et dis moi !!!!
Bonjour et merci beaucoup François !!
Le code est hyper intéressant et je vais le potasser pour le comprendre.
Malheureusement, il ne répond qu'à la première partie du problème, celle
que
j'avais réussi à résoudre.
En effet en mettant colonne C, ca marche ca groupe bien les lignes entre
les
comptes de niv2. Par conter, si je mets colonne D, là, ca ne résoud pas le
fameux problème des comptes de Niv2 qui sse trouvent entre les comptes de
Niv3.
Pour ta question sur le code ActiveSheet.Outline.ShowLevels RowLevels:=1,
ColumnLevels:=1, c'est juste qu'à la fin je ferme le plan afin d'offrir
une
visibilité dus les comptes de Niv2 (mais vraiment c'est un détail de la
macro, il s'agit de mettre ça uniquement à la fin...).
Si tu as la réponse pour mon pb des colonnes D & E, je suis preneur...
A+
JF
a écrit dans le message de news:
Salut Jean François
Essaies ce code en adaptant le paramètre Colonne en fonction de la
colonne à traiter :
Colonne = "D"
Range(Colonne & Range("A65535").End(xlUp).Row).Select
Do While ActiveCell.Row > 3
If ActiveCell = "" Then
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1,
0)).EntireRow.Activate
Selection.Group
Else
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.End(xlUp).Activate
End If
End If
Range(Colonne & ActiveCell.Offset(-1, 0).Row).Activate
Loop
Répètes le code à la suite pour chaque colonne en n'oubliant pas
d'actualiser le paramètre Colonne
Si ton code aboutissait à un regroupement de lignes c'est en raison de
l'instruction en fin :
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
Je ne l'ai pas utilisé dans ma proposition ne sachant pas ce que tu
recherchais avec
Fais des essais et dis moi !!!!
Bonjour et merci beaucoup François !!
Le code est hyper intéressant et je vais le potasser pour le comprendre.
Malheureusement, il ne répond qu'à la première partie du problème, celle
que
j'avais réussi à résoudre.
En effet en mettant colonne C, ca marche ca groupe bien les lignes entre
les
comptes de niv2. Par conter, si je mets colonne D, là, ca ne résoud pas le
fameux problème des comptes de Niv2 qui sse trouvent entre les comptes de
Niv3.
Pour ta question sur le code ActiveSheet.Outline.ShowLevels RowLevels:=1,
ColumnLevels:=1, c'est juste qu'à la fin je ferme le plan afin d'offrir
une
visibilité dus les comptes de Niv2 (mais vraiment c'est un détail de la
macro, il s'agit de mettre ça uniquement à la fin...).
Si tu as la réponse pour mon pb des colonnes D & E, je suis preneur...
A+
JF
<francois.for...@wanadoo.fr> a écrit dans le message de news:
60de1805-5a8e-4b29-8058-a49e49e48...@z17g2000hsg.googlegroups.com...
Salut Jean François
Essaies ce code en adaptant le paramètre Colonne en fonction de la
colonne à traiter :
Colonne = "D"
Range(Colonne & Range("A65535").End(xlUp).Row).Select
Do While ActiveCell.Row > 3
If ActiveCell = "" Then
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1,
0)).EntireRow.Activate
Selection.Group
Else
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.End(xlUp).Activate
End If
End If
Range(Colonne & ActiveCell.Offset(-1, 0).Row).Activate
Loop
Répètes le code à la suite pour chaque colonne en n'oubliant pas
d'actualiser le paramètre Colonne
Si ton code aboutissait à un regroupement de lignes c'est en raison de
l'instruction en fin :
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
Je ne l'ai pas utilisé dans ma proposition ne sachant pas ce que tu
recherchais avec
Fais des essais et dis moi !!!!
Bonjour et merci beaucoup François !!
Le code est hyper intéressant et je vais le potasser pour le comprendre.
Malheureusement, il ne répond qu'à la première partie du problème, celle
que
j'avais réussi à résoudre.
En effet en mettant colonne C, ca marche ca groupe bien les lignes entre
les
comptes de niv2. Par conter, si je mets colonne D, là, ca ne résoud pas le
fameux problème des comptes de Niv2 qui sse trouvent entre les comptes de
Niv3.
Pour ta question sur le code ActiveSheet.Outline.ShowLevels RowLevels:=1,
ColumnLevels:=1, c'est juste qu'à la fin je ferme le plan afin d'offrir
une
visibilité dus les comptes de Niv2 (mais vraiment c'est un détail de la
macro, il s'agit de mettre ça uniquement à la fin...).
Si tu as la réponse pour mon pb des colonnes D & E, je suis preneur...
A+
JF
a écrit dans le message de news:
Salut Jean François
Essaies ce code en adaptant le paramètre Colonne en fonction de la
colonne à traiter :
Colonne = "D"
Range(Colonne & Range("A65535").End(xlUp).Row).Select
Do While ActiveCell.Row > 3
If ActiveCell = "" Then
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1,
0)).EntireRow.Activate
Selection.Group
Else
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.End(xlUp).Activate
End If
End If
Range(Colonne & ActiveCell.Offset(-1, 0).Row).Activate
Loop
Répètes le code à la suite pour chaque colonne en n'oubliant pas
d'actualiser le paramètre Colonne
Si ton code aboutissait à un regroupement de lignes c'est en raison de
l'instruction en fin :
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
Je ne l'ai pas utilisé dans ma proposition ne sachant pas ce que tu
recherchais avec
Fais des essais et dis moi !!!!