Récap plusieurs tableaux en fonction lignes et colonnes

[bomagicmusic]

Bonjour à tous,

J'utilise le code ci-dessous pour copier un tableau en fonction du nombre de lignes. J'aimerai faire de même pour d'autres tableaux et qu'ils viennent se placer en dessous ou à côté du tableau précédent dans la feuille test. L'idéal serait que l'utilisateur puisse choisir les tableaux qu'il veut imprimer en cochant un formulaire, il clique sur actualiser et les tableaux sont sur la feuille récap Test. Quelqu'un a t'il déjà rencontré ce genre de problématique?

Merci beaucoup

Private Sub CommandButton1_Click()

Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Application.ScreenUpdating = False
Sheets("Test").Activate ' feuille de destination

Col = "A" ' colonne de la donnée non vide à tester
NumLig = 0
With Sheets("Historique") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig '
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(NumLig, 1).Select
ActiveSheet.Paste
End If
Next
End With
Application.ScreenUpdating = True
End Sub

 

[vbacrumble]

Re : Récap plusieurs tableaux en fonction lignes et colonnes

Bonjour tous


Je te propose une autre façon pour copier tes données

Sub macrorecopie()
Dim source As Worksheet
Dim destin As Worksheet
Set source = Worksheets("Historique")
Set destin = Worksheets("Test")
source.UsedRange.SpecialCells(xlCellTypeConstants, 23).Copy _
destin.Range("A65536").End(xlUp).Offset(1, 0)
End Sub

A+

 

[bomagicmusic]

Re : Récap plusieurs tableaux en fonction lignes et colonnes

Merci, ça me semble pas mal.
Que signifie le 23?
source.UsedRange.SpecialCells(xlCellTypeConstants, 23).Copy
Et comment puis-je appliquer ça à plusieurs tableaux pour ne pas qu'ils se superposent?

 

[vbacrumble]

Re : Récap plusieurs tableaux en fonction lignes et colonnes

Re

Plus de détails dans l'aide de VBA

SpecialCells, méthode
Renvoie un objet Range qui représente toutes les cellules correspondant au type et à la valeur spécifiés.
Syntaxe
expression.SpecialCells(Type, Value)
expression Obligatoire. Expression qui renvoie un objet Range.
Type Argument de type Long obligatoire. Les cellules à inclure.
Value Argument de type Variant facultatif. Si l'argument Type a la valeur xlCellTypeConstants ou xlCellTypeFormulas, cet argument permet de déterminer les types de cellules à inclure dans le résultat. Ces valeurs peuvent être additionnées pour renvoyer plusieurs types. Par défaut, toutes les constantes ou formules sont sélectionnées, quel que soit leur type. Il peut s'agir de l'une des constantes XlSpecialCellsValue suivantes : xlErrors, xlLogical, xlNumbers, xlTextValues.

Peux-tu poster un exemple de tes tableaux, s'il te plait ?


A+

 

[bomagicmusic]

Re : Récap plusieurs tableaux en fonction lignes et colonnes

Ci-joint un exemple. Merci

 

[bomagicmusic]

Re : Récap plusieurs tableaux en fonction lignes et colonnes

Personne pour m'aider?

 

[vbacrumble]

Re : Récap plusieurs tableaux en fonction lignes et colonnes

Re



Voir PJ


Cliques sur le bouton pour lancer l'userform

Ensuite teste en cliquant sur les checkbox et différents boutons.


A+

 

[bomagicmusic]

Re : Récap plusieurs tableaux en fonction lignes et colonnes

Je n'ai rien à dire de plus que WAOUH!!! c'est exactement ce que je cherchais.
Je sais pas commment on met résolu g plus qu'à comprendre le code