VBA changer hauteur de ligne en fonction de contenu cellule

**barbeaua** · 21/07/2016, 12h02

Bonjour à tous et à toutes,

J'ai un léger problème pour un bout de code VBA... Je possède plusieurs tableaux sur une feuille "bon de commande" avec plein de cellules qui contiennent des 0 dans la ligne j-3 de chaque tableau.

J'aimerais en appuyant sur un bouton qu'une procédure se lance et n'affiche que les cases des tableaux avec une valeur.

J'ai donc fait le code suivant:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub Affichercommande()
 
Dim i, j, bascule As Integer
 
j = 5 * Sheets("Bon de commande").Range("A55").Value + 2 'j prend en compte le nombre de tableaux à traiter
bascule = Sheets("Bon de commande").Range("A57").Value
 
 
If bascule = 0 Then
Sheets("Bon de commande").Range("A57").Value = 1
While j > 2 'boucle qui permet de parcourir chaque tableau 1 à 1
For i = 3 To 1677
If Sheets("Bon de commande").Cells(i, j - 3) = 0 Then 'si la cellule est vide alors
Sheets("Bon de commande").Cells(i, j - 3).RowHeight = 0 'mettre la taille de ligne à 0
End If
Next i
j = j - 5
Wend
 
Else
Sheets("Bon de commande").Range("A57").Value = 0
While j > 2
For i = 3 To 1677
Sheets("Bon de commande").Cells(i, j - 3).RowHeight = 17
Next i
j = j - 5
Wend
 
End If
End Sub

Le problème, c'est que comme le tableau est long (1667 lignes), la procédure est beaucoup trop longue...

Je ne peux pas utiliser les filtres Excel car il y a plusieurs tableaux sur une même feuille... Du coup en mettant des filtres sur un des tableaux tous les autres sont modifiés de la même manière :/

J'espère avoir été clair et que vous pourrez m'aider

Merci d'avoir pris le temps de lire ma demande,
Antoine

**casefayere** · 21/07/2016, 12h21

Bonjour,
avant de voir comment augmenter la rapidité du traitement, tu écris

Code :

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

1
2
3
....
While j > 2
...

ensuite

Code :

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

If Sheets("Bon de commande").Cells(i, j - 3)

et si j = 3 ? 3-3 = 0, que représente Cells(3, 0)

**barbeaua** · 21/07/2016, 14h12

Bonjour Dom,

Merci pour ta réponse.

J correspond à un "curseur", c'est à dire qu'il est placé à 5 cases d'intervalles à chaque fois (7-12-17 etc...)
Je laisse 2 colonnes vides au départ pour la place du bouton lançant la procédure.

Il me permet d'éviter 2 tableaux de s'entre croiser. Je crée un nouveau tableau à chaque onglet créé.

Le tableau est composé de 4 cases, c'est pourquoi j s'incrémente de 5 cases, pour éviter le croisement de 2 tableaux correspondant à 2 onglets.

J'espère avoir été clair, n'hésitez pas à me poser d'autres questions si nécessaire.

Antoine

**casefayere** · 21/07/2016, 14h17

au temps pour moi, j'ai répondu trop vite sans faire attention à cette ligne

Code :

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

j = 5 * Sheets("Bon de commande").Range("A55").Value + 2

je ne promets rien mais je vais regarder de plus près ton code pour éventuellement proposer quelque chose (sans garantie) suivant le temps dont je dispose ou mes maigres connaissances

**barbeaua** · 21/07/2016, 14h20

merci beaucoup, cependant, je suis en train de me poser une question concernant la faisabilité du projet...

Exemple:
Tableau 1: ligne 5=1 et 1654 = 2

Tableau 2: ligne 6 =3 et 1320 = 4

Il faudrait alors que la feuille n'affiche que la ligne 5 et 1654 pour la tableau 1, alors qu'elle devrait n'afficher que la ligne 6 et 1320...

Je doute que ce soit possible sur une même feuille Excel de n'afficher que certaines lignes sur une colonne et d'autres lignes sur une autre colonne...

**casefayere** · 21/07/2016, 14h25

Je doute que ce soit possible sur une même feuille Excel de n'afficher que certaines lignes sur une colonne et d'autres lignes sur une autre colonne...

tu as parfaitement raison si tes tableaux peuvent se suivre à "l'horizontal", il faut peut-être revoir la structure et ne mettre les tableaux qu'en dessous Des uns des autres (en "vertical")

**barbeaua** · 21/07/2016, 14h30

Je suis en train de revoir la structure pour juxtaposer les tableaux verticalement.

Cependant, la procédure reste longue du fait de devoir parcourir les 1677 valeurs pour chaque tableau.

J'essaie de trouver une autre solution,

Merci pour le temps consacré à ma requête

**casefayere** · 21/07/2016, 14h34

non, on devrait résoudre le problème (enfin, j'espère) avec des tableaux disposés verticalement en passant (entre autres) par des variables "tableaux"

**jeanmidudu** · 21/07/2016, 14h57

On peut quand même aller un tout petit peu plus vite.
Tout d'abord en ne parcourant pas plus de lignes que nécessaires : Est-ce qu'il y a TOUJOURS 1667 lignes? Si non, alors regarder range().end(xlUp).row

Et puis une valeur sûre qui fait gagner un peu de temps, c'est l'utilisation d'une variable range qui contiendra l'intégralité du/des tableaux. Ca ne fait pas gagner des dizaines de secondes, mais un peu de temps quand même.

**barbeaua** · 21/07/2016, 15h05

Il y a bien 1677 lignes sur chaque onglet, seulement seuls certaines de ces lignes seront remplies par l'utilisateur. Je voudrais que lorsque celui-ci modifie une des cellules, la ligne associée soit affichée dans le "bon de commande".

Après avoir mis les tableaux en colonne, j'ai une idée à proposer (bien que je n'ai aucune idée de comment la réaliser...)

J'ai plusieurs tableaux de 1677 lignes en colonne, et j'ai donné pour nom à chacun le nom de l'onglet correspondant.

On pourrait alors se dire que lors de la modification d'un des onglets, le tableau correspondant la la feuille "bon de commande" se mettrait à jour en n'affichant que les lignes dont la valeur n'est pas 0 (sur les 1677 existantes)...

Ce n'est qu'une idée et j'avoue ne pas trouver de solution concrète pour le moment

**casefayere** · 21/07/2016, 16h01

tu veux masquer les lignes dont au moins une cellule est à 0 dans n'importe quelle colonne, c'est ça ?

**barbeaua** · 21/07/2016, 16h05

Je voudrais masquer les lignes dont la première colonne du tableau (sur les 5) est à 0.

Cependant, il y a plusieurs tableaux de 1677 lignes sur la feuille concernée ("bon de commande").

Ce qui signifie une boucle de 1677 ligne N fois...

Du coup je pensais dans l'idéal ne modifier que le tableau correspondant à l'onglet qui est en train d'être modifié (chaque onglet a un nom et a un tableau de 1677 lignes dans l'onglet "bon de commande" qui a le même nom)

**casefayere** · 21/07/2016, 16h09

je suis obligé de partir mais si ce n'est pas urgent et si tu n'as pas satisfaction d'ici 1 ou 2 heures, je reviendrai peut-être avec des propositions

**barbeaua** · 21/07/2016, 16h29

Pas d'urgence pour le moment nous pouvons voir cela ce soir ou dans la journée de demain si vous êtes disponible,

Merci d'avoir pris le temps de prendre en compte ma demande,

Antoine

**casefayere** · 21/07/2016, 17h39

il reste pour moi quelque chose d'ambigu, ce sont tous les tableaux auxquels il faut masquer les lignes ou la feuille du bon de commande ?

**barbeaua** · 21/07/2016, 18h00

La feuille "bon de commande" contient les tableaux.

Chaque tableau est lié à un autre onglet, ils sont alignés verticalement (1667 lignes chacun).

C'est donc bien les lignes de chaque tableaux que j'aimerais "cacher" si la première colonne est égale à 0.

N'hésitez pas si vous avez d'autres questions,

Antoine