Inserer une ligne vide lors de la copie de plusieur cellule Fermé

Question

Bonjour, 

Je souhaiterais copier sur une nouvelle feuille (disons TAB), une liste de noms reportés sur une colonne (de A1 à A70 par exemple) d'une autre feuille (disons BASE) .
 Mais je souhaiterais que lorsque je les colle, ça donne ceci sur la nouvelle feuille(TAB):
A1 de BASE en A1 de TAB
A2 de BASE en A3 de TAB
A3 de BASE en A5 de TAB
ect....
Sur la nouvelle feuille (TAB) j'ai déjà un tableau mis en place, donc je pense qu'il ne faut pas que j’insère de nouvelle ligne lors de cette étape.

Si quelqu’un à une idée, pas trop compliquée, une formule ou une "macro" que je peux copié collé.... parce que je ne comprends pas grand chose à Excel!!!

Merci beaucoup.

Configuration: Windows 7 / Firefox 49.0

Utilisateur anonyme · Answer

Bonjour Jalysca,

Je te propose ce code VBA, à copier / coller dans Module1 :

Option Explicit

Sub Essai()
  Dim dlig As Long, lig As Long, i As Long
  Worksheets("TAB").Select: Application.ScreenUpdating = False
  With Worksheets("BASE")
    dlig = .Range("A" & Rows.Count).End(xlUp).Row
    lig = Range("A" & Rows.Count).End(xlUp).Row + 1
    For i = 1 To dlig
      Cells(lig, 1) = .Cells(i, 1): lig = lig + 2
    Next i
  End With
End Sub

Attention : Si ton tableau mis en place sur la feuille "TAB" commence
en colonne C (par exemple), alors modifie la lettre de la ligne #10 :

lig = Range("C" & Rows.Count).End(xlUp).Row + 1

Dis-moi ce que tu en penses, et si ça te convient.

Cordialement.  &#x1F60A;

Jalysca · Answer

Bonjour Albkan

Merci beaucoup pour ton aide, J'ai bien placé ta "formule" dans le module 1,
sur le même classeur, j'ai donc mon onglet TAB avec mon tableau vide et ma mise en page, et un autre onglet BASE avec mon listing.

Quand je choisi la macro que tu m'a indiquée une fenêtre d 'erreur me dit
"impossible d exécuter le code en mode arrêt"
Que dois-je faire...
Merci..

Utilisateur anonyme · Answer

Bonjour Jalysca,

Tu dois faire < Alt >< F11 > pour être sur Microsoft Visual Basic ; ensuite :
menu Exécution / Réinitialiser (dont le petit carré est le même que celui
de la barre d'outils en-dessous : tu peux le voir sous le mot Format et à
gauche de l'équerre). Ensuite, fais de nouveau < Alt >< F11 > pour
revenir sur la feuille Excel, et relance la macro.

Mais si ça ne marche pas, regardes avec ce fichier Excel 2007.

Sur la feuille BASE, tu verras A1 à A10 ; sur la feuille TAB, il y a déjà A à F ;
fais < Ctrl >< e > : ça lance la macro Essai, qui ajoute ce qu'il faut sous
le F ; car dans ton énoncé initial, tu avais écris : « Sur la nouvelle feuille
(TAB) j'ai déjà un tableau mis en place ».

Je te laisse adapter, mais tu pourras me demander si tu as besoin d'aide.

Cordialement. 😊

Inserer une ligne vide lors de la copie de plusieur cellule

3 réponses

Discussions similaires