Copier/coller de manière conditionelle Résolu

Question

Bonjour, 
Voilà mon problème qui ne devrait pas être trop compliqué pour des initiés: 
J'ai une colonne de valeurs (date et heure mais peu importe) et je voudrais copier/coller certaines valeurs de cette colonne dans une autre colonne avec toujours la même fréquence qui est la suivante: 
Je colle les 30 premières valeurs, ensuite je ne copie pas les 15 suivantes puis je recopie les 30 valeurs et ainsi de suite ... 
J'aimerais ne pas avoir de lignes vides lorsque je ne copie pas les 15 valeurs dont je ne veux pas. 
Merci d'avance

Patrice33740 · Answer

Bonjour,

Et où est le problème ???

Tu peux copier et coller ce que tu veux et où tu veux !!!

Gyrus · Answer

Bonjour,

Une proposition a adapter
https://www.cjoint.com/c/FEjnDZ3FfRO

A+

Patrice33740 · Answer

Bonjour,

Pour copier les valeurs essaies ce code:
Option Explicit
Sub test()
Dim s As Range
Dim c As Range
  Set c = Worksheets("Feuil2").Range("A1") 'Cellule cible
  With Worksheets("Feuil1")
    Set s = .Range("A1").Resize(30)        'Plage source
    Do While s.Row <= .Cells(.Rows.Count, "A").End(xlUp).Row
      c.Resize(30).Value = s.Value
      Set s = s.Offset(45)
      Set c = c.Offset(30)
    Loop
  End With
End Sub
 
 
Cordialement
Patrice

Copier/coller de manière conditionelle

3 réponses

Discussions similaires

Newsletters