Discussion :

[solorac]

Bonjour la Communauté,

Je dois présenter des chiffres lors d'une réunion vendredi et j'aimerai savoir si il existe un moyen de faire apparaitre uniquement qu'une ligne après l'autre.

je vous explique plus précisément :

J'ai un tableau excel de 120 lignes.
La première ligne est le nom des 4 colonnes (Fournisseurs - Ca 2009 - Prévi 2010 - Obs).

Je voudrais afficher la première lignes, donc titre des colonnes et les fournisseurs les uns après les autres.

Le problème c'est que je fige la première ligne mais les fournisseurs apparaissent tous en dessus lorsque je positionne mon curseur sur le premier d'entre-eux. Comment faire pour avoir la ligne 1 (figée) et le fournisseur de mon choix et en-dessous des cellules vides ?

Merci pour votre aide.

[Didier Gonard]

bonsoir,

avec du VBA ?

cordialement,

Didier

[solorac]

Bonjour,

Ben... si ce n'est pas possible autrement, oui.

[Didier Gonard]

Bonjour,

une piste à adapter...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Option Explicit
 
' dans module 1
Public I

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_Open()
Worksheets(1).Rows("2:120").EntireRow.Hidden = True
I = 2
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Rows(I).EntireRow.Hidden = False 'dbcliquer n'importe où en changeant de cell à chaque fois
I = I + 1
End Sub
 
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
End ' prévoir une sortie ou CTRL+ Pause
End Sub

cordialement,

Didier

[Philippe Tulliez]

Bonjour,
Si j'ai bien tout compris, la combinaison de Figer les volets et le filtre automatique devrait répondre à tes besoins.

[Didier Gonard]

Bonjour,
Si j'ai bien tout compris, la combinaison de Figer les volets et le filtre automatique devrait répondre à tes besoins.

oui Philippe, mais au niveau ergonomie sur quelque chose qui doit se rapprocher d'un PPT, il n'y a pas photo, la manip des filtres est lourde en visuel et un clic hasardeux = pas la bonne ligne, sans parler de l'ordre de tri

cordialement,
Didier

[Philippe Tulliez]

Bonjour Didier,

oui Philippe, mais au niveau ergonomie sur quelque chose qui doit se rapprocher d'un PPT, il n'y a pas photo, la manip des filtres est lourde en visuel et un clic hasardeux = pas la bonne ligne, sans parler de l'ordre de tri
cordialement,
Didier

Entièrement d'accord avec toi.
J'essaye le plus possible de privilégier les fonctions et/ou outils d'Excel avant de proposer du VBA parce-que d'une part le produit est très riche et mal utilisé et puis tout le monde n'a peut-être pas envie ou la compétence pour aborder le VBA.

[tedo01]

Bonjour,
J'ai une autre piste qui peut rendre la manipulation plus facile : l'affichage en grille.
Avant Excel 2007 il était disponible directement dans le menu, maintenant il faut aller le chercher la première fois dans la personnalisation de la barre d'outils Accès rapide : Personnaliser la barre d'outils Accès rapide / Autres commandes
Dans la liste déroulante Choisir les commandes dans les catégories suivantes, sélectionner "Toutes les commandes"
Choisir ensuite dans la liste "Formulaires..."
En se plaçant dans le tableau et en cliquant sur ce nouveau bouton, on affiche chaque ligne sous la forme d'une grille avec des boutons de navigation.

[solorac]

Merci pour votre aide.
Je vais essayer les deux solutions.
Je vous tiens informé.

Pouvez-vous me détailler un peu plus le code, la ou je dois le mettre car c'est une des première fois que j'utilise du VBA ?

Merci encore

[Didier Gonard]

A noter que tu devrais tester la solution de tedo01, je trouve que ce puisse être la meilleure pour toi sauf si le visuel te pose problème

Sinon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Option Explicit
 
' dans module 1
Public I

Le 1 tu le mets dans un module standard

Insertion / module, ça te déclare une variable publique qui est une visibilité au niveau projet.
On crée donc une variable publique de compteur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Option Explicit
 
Private Sub Workbook_Open()
Worksheets(1).Rows("2:120").EntireRow.Hidden = True
I = 2
End Sub

Le 2 tu le mets dans le Thisworkbook , il s’exécute du coup à l’ouverture du classeur
Dans le module du classeur, en évènementiel on utilise Open, et du coup à l’ouverture on masque les lignes 2 à 120, on donne à I la valeur 2 car elle est à 0 à l’initialisation et on veut commencer à la ligne 2.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Dim drap As Boolean
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If drap = False Then
   Rows(I).EntireRow.Hidden = False 'dbcliquer n'importe où en changeant de cell à chaque fois
   I = I + 1
End If
End Sub
 
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
drap = True
Worksheets(1).Rows("2:120").EntireRow.Hidden = False
End Sub

Le 3 tu le mets dans Feuil1 si c’est elle qui est concernée ou dans le module de la bonne feuille


Ensuite à chaque fois qu’on double-clic sur la feuille, on déclenche l’évènementiel beforedoubleclik à qui on demande de rendre visible la ligne (I) et on incrémente I par pas de 1 pour traiter la ligne suivante la fois prochaine.
J'ai changé la "porte de sortie" car c'était juste pour signaler, mais trop hard sinon etc..

On ajoute donc une variable drapeau boolean en niveau module (elle est visible dans tout le module) et si on veut cesser le traitement l'évènementiel clic droit la passe à true rendant le double clic inactif et de plus affiche toutes les lignes...

Ps : ne pas cliquer droit par accident ou ajouter un filtre

cordialement,

Didier

[solorac]

Merci Ormonth pour ta patience.
Je teste cela demain matin.