Tableaux déduits d'un tableau initial

[PATOU]

Bonjour tout le monde,
Quelqu'un pourrait-il me donner la ou les macros qui permet(tent) une fois le tableau 1 constitué à la main d'obtenir en automatique les tableaux 2 et 3 (cf fichier en PJ).
A noter que l'exemple donné est simple mais que dans la réalité le tableau 1 comporte plus de 600 lignes.....
Merci beaucoup

NB: dans le message précédent, on ne pevait ouvrir la PJ

 

[Robert]

Bonsoir Patou, bonsoir le forum,

Il est tard et je suis trop crevé pour continuer sur ton projet. Voici une macro pour le tableau 2 sur une autre feuille. J'ai considéré que le tableau 1 commençait en A1 et qu'il n'y avait rien d'autre au départ.

Public Sub tab2()
'copie la feuil1, la renomme "Tableau 2" et supprime les colonnes inutiles
Sheets("Feuil1").Select
Sheets("Feuil1").Copy Before:=Sheets(2)
ActiveSheet.Name = "Tableau 2"
For x = 4 To 6
Columns(x).Delete
Next
'détermine la dernière ligne du tableau
Dim lin As Integer
lin = Range("A65536").End(xlUp).Row
Cells(lin + 1, 1).Value = "fin" 'évite la boucle sans fin (voir condition)
For y = 2 To lin
If Cells(y, 1).Value = "fin" Then 'condition
Cells(y, 1).EntireRow.Delete 'de la boucle
Exit Sub 'sans
End If 'fin
'supprime les lignes vides
If Cells(y, 1).Value = "" Then
Cells(y, 1).EntireRow.Delete
y = y - 1
End If
Next
End Sub

À plus,

Robert

 

[Robert]

Re bonsoir Patou, Bonsoir le forum

En pièce jointe les deux macros qui déduisent deux tableaux à partir de l'original. En fin de macro "tab2 ", la macro "tab3" est lancée automatiquement mais tu peux désactiver cette ligne et lancer les deux macros "tab2" et "tab3" séparément.

À plus,

Robert