Macro dans excel - paste special

Question

Bonjour !

Je bloque sur le code ci-dessous.

Le code fonctionne. Mais j'ai besoin de faire un "PasteSpecial". Or dès que j'effectue un "Paste" tout simple au lien du "Insert", le code ne fonctionne plus...

Pouvez-vous m'aider à trouver la solution ?

Merci d'avance !
Tam

Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
  
  Sheets("Feuil2").Activate 'feuille de destination
  
  Col = "e"
  NumLig = 4
  With Sheets("Feuil1")     'feuille source
  
  NbrLig = .Cells(65536, Col).End(xlUp).Row
 
  
  For Lig = 4 To NbrLig             'n° de la 1ere ligne de données
    If .Cells(Lig, Col).Value <> "" Then
      .Cells(Lig, Col).EntireRow.Copy



      NumLig = NumLig + 1
      Sheets("Feuil2").Cells(NumLig, 1).Insert Shift:=xlDown
            'ici pour insérer ou  .Paste pour coller
    End If
  Next
  End With

cs_bouf · Answer

Le code n'est pas très simple mais il doit fonctionner sans paste pour coller car le fait de selectionner toute une ligne, de la copier et d'inserer une nouvelle ligne, Excel "insere" automatiquement ta selection dedans.
Maintenant si tu veux vraiment faire un paste special (pour une copie des valeur ou format...) essaie de faire le contraire : insere d'abord une ligne la ou tu veux dans la destination puis tu y fera un copier coler/paste
a+
Cliff le bouffeur

cs_MPi · Answer

Et si tu regardes l'aide sous Copy, tu verras que tu peux définir la destination dans le même appel que Copy

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Macro dans excel - paste special

2 réponses

Votre réponse

Discussions similaires