Coller un tableau sur une nouvelle feuille [Résolu/Fermé]

 
C'est déjà mieux ! Mais même si ton tableau a un nombre de lignes variables :
quelle en est la 1ère ligne (ligne d'en-têtes comprise) ? Et de quelle colonne
à quelle colonne ? Si nombre de colonne variable également, indiquer quelle
est la 1ère colonne ! A+  😊
 

 
Voici le code VBA :

Option Explicit

Sub Essai()
  ' Au départ, ton classeur a une seule feuille, nommée "Feuil1",
  ' donc tu es forcément dessus quand tu lances cette macro ;
  ' dernière ligne de ton tableau, selon la 1ère colonne H
  Dim dlig As Long: dlig = Range("H" & Rows.Count).End(xlUp).Row
  ' Ajout d'une nouvelle feuille à droite de la 1ère du classeur
  ' (donc Feuil1), qui sera nommée automatiquement Feuil2
  Worksheets.Add , Worksheets(1)
  ' Tu as oublié d'indiquer quelle est la destination sur Feuil2 !
  ' Je vais supposer par exemple que c'est à partir de B2 ; à toi
  ' de changer si nécessaire.
  Worksheets("Feuil1").Range("H2:L" & dlig).Copy [B2]
End Sub

N'hésite pas à me demander plus d'infos si besoin.
Cordialement.  😊

« Pas de nouvelles, bonnes nouvelles » : si tu as réussi et que tu n'as
pas besoin d'autre chose, merci d'aller en haut de page pour cliquer
sur le lien « Marquer comme résolu ». Cordialement.  😊

 
Bonsoir nihadlahit,

La règle sur le site CCM est de se tutoyer, dans le respect et la
courtoisie ; tu peux donc me tutoyer, toi aussi.

Tu ne m'as pas dit si ton tableau à une ligne d'en-têtes ou non.
Je vais supposer que oui, et que c'est la ligne 2.

Si la copie ne s'est faite que pour une seule ligne, je pense que
tu as laissé une ligne vide juste en dessous, alors que tes lignes
de données doivent aller de la ligne 3 à la dernière (variable).

Si tu enlèves la ligne vide, ça doit marcher correctement.

S'il n'y a pas de ligne vide, ajoute cette ligne de code juste après
la ligne #7 de mon code VBA : MsgBox "dlig = " & dlig: Exit Sub

Exécutes la macro, puis dis-moi quel est le nombre affiché
dans la fenêtre du message.

À te lire pour la suite.  😊
 

d'accord,merci pour tes explications.

Nos messages se sont croisés, mais j'ai bien lu tes 2 messages #9 et #10.
Je suis très content que tu aies réussi à faire ton exercice. Merci d'avoir
marqué le sujet comme résolu. Cordialement.  😊

 
Si j'ai bien compris, c'est un autre exercice avec au départ un classeur avec
2 feuilles déjà crées, et il faut créer une 3ème autre feuille.

Il faut copier sur cette 3ème feuille le tableau de la feuille 1 en [A1] et celui
de la feuille 2 en [H1]. Et la plage de chaque tableau est respectivement
"H1:L" et "A5:D". Exact ?

 
Voici le code VBA de ton 2ème exercice :

Option Explicit

Sub Essai()
  ' Un seul dlig suffit : pas besoin de dlig2
  Dim dlig As Long: Application.ScreenUpdating = False
  ' Ajout de Feuil3 (à droite de la 2ème feuille)
  Worksheets.Add , Worksheets(2)
  ' Remarque bien qu'après l'ajout d'une feuille,
  ' on est dessus ; donc ici, on est sur Feuil3
  With Worksheets("Feuil1")
    dlig = .Range("H" & Rows.Count).End(xlUp).Row
    .Range("H1:L" & dlig).Copy [A1]
  End With
  With Worksheets("Feuil2")
    dlig = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A5:D" & dlig).Copy [H1]
  End With
End Sub

N'oublie pas de mettre un point devant les 4 Range !

Ainsi, les 2 premiers .Range dépendent de Feuil1 ;
les 2 .Range suivants dépendent de Feuil2.

La copie en [A1] et [H1] se fait sur la feuille active,
donc sur Feuil3.

----------------------------------------------------------

Si c'est réglé, merci de mettre le sujet en résolu ; si tu veux me demander plus
d'infos pour cet exercice, tu peux le faire ici, pour le même sujet ; si tu veux
me demander quelque chose pour un autre exercice différent, merci de
cliquer sur le bouton vert « Créer un nouveau sujet ».

Je te rappelle que tu as un autre sujet ouvert « Copier Coller Tableaux dans
un nouveau classeur » ; si tu ne veux plus le faire, merci de le marquer
aussi comme résolu.

Cordialement.  😊