Ecrire une variable tableau sur une feuille avec colonne masquéees

Ecrire une variable tableau sur une feuille avec colonne masquéees - VB/VBA/VBS - Programmation

Marsh Posté le 23-11-2018 à 14:58:30    

Bonjour,  
 
Je dispose d'un tableau à 2 dimensions, constitué de ~ 60 colonnes, et d'une feuille avec ~60 colonnes. Pour faciliter la naviguation, certaines colonnes doivent être masquées.  
 
Lorsque je souhaite écrire le tableau dans ma feuille, à l'aide de la méthode Range("..." ) = Montableau
ou Cells(Row,1).resize(Lbound(montb),Ubound(montb)) = montb
 
Les colonnes masquées crééent un bug : Après chaque colonne masquée le tableau est "réécrit" à partir de sa première colonne.  
 
 
Pour pallier à ceci, pour écrire le tableau dans la feuille :  
 

  • Je stocke quelle colonnes est masquée
  • Je démasque toutes les colonnes
  • J'écris mon tableau
  • Je masque les colonnes initialement masquées.


Cela ralenti considérablement ma macro. Est-il possible d'écrire mon tableau directement, avec la même méthode que Range("..." ) = montableau, malgré les colonnes masquées ?  
 
 
 
 
Voici ce que j'ai codé temporairement pour contourner le problème :

Code :
  1. 'Stock wich column is hided or not, Hidden = True
  2.     ReDim tbvisiblecolumn(lastcolmb)
  3.     For i = 1 To lastcolmb
  4.         If Columns(i).EntireColumn.Hidden = True Then
  5.             tbvisiblecolumn(i) = True
  6.         Else
  7.             tbvisiblecolumn(i) = False
  8.         End If
  9.     Next
  11.     'Unhide all columns
  12.     On Error Resume Next
  13.         For i = 1 To lastcolmb
  14.             If tbvisiblecolumn(i) = True Then
  15.                 Columns(i).EntireColumn.Hidden = False
  16.             End If
  17.         Next
  18.     On Error GoTo 0
  20.     'Write tbwrite()in sheet mb
  21.     If CBOptions = False Or ActiveCell.Value = "" Then
  22.         If nbrow > 1 Then mb.Rows(Arow + 1).Resize(nbrow - 1).EntireRow.Insert Shift:=xlDown
  23.         Range(mb.Cells(Arow, 1), mb.Cells(Arow + nbrow - 1, lastcolmb)) = tbwrite
  24.     Else
  25.         mb.Rows(Arow + 1).Resize(nbrow).EntireRow.Insert Shift:=xlDown
  26.         mb.Cells(Arow, 1).Resize(nbrow + 1, lastcolmbt) = tbwrite
  27.     End If
  29.     'Hide columns wich where hided
  30.     For i = 1 To lastcolmb
  31.         If tbvisiblecolumn(i) = True Then
  32.             Columns(i).EntireColumn.Hidden = True
  33.         End If
  34.     Next
  35.     OptimizeCode_End


 
Merci d'avance !


Message édité par framboize1 le 23-11-2018 à 15:01:53
Reply

Marsh Posté le 23-11-2018 à 14:58:30   

Reply

Marsh Posté le 29-11-2018 à 16:12:28    

Si tu n'as pas désactivé le rafraîchissement de l'affichage en cours de macro, c'est peut être la solution simple.
(Application.ScreenUpdating)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed