Copier/coller de manière conditionelle

Résolu/Fermé
lucas_maracas Messages postés 6 Date d'inscription lundi 9 mai 2016 Statut Membre Dernière intervention 12 mai 2016 - 9 mai 2016 à 15:02
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 9 mai 2016 à 20:32
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
A voir également:

3 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
9 mai 2016 à 15:06
Bonjour,

Et où est le problème ???

Tu peux copier et coller ce que tu veux et où tu veux !!!
0
lucas_maracas Messages postés 6 Date d'inscription lundi 9 mai 2016 Statut Membre Dernière intervention 12 mai 2016
9 mai 2016 à 15:18
Le problème est que j'ai énormément de valeurs donc ce n'est pas jouable manuellement, ce serait beaucoup trop long
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
9 mai 2016 à 15:30
Bonjour,

Une proposition a adapter
https://www.cjoint.com/c/FEjnDZ3FfRO

A+
0
lucas_maracas Messages postés 6 Date d'inscription lundi 9 mai 2016 Statut Membre Dernière intervention 12 mai 2016
9 mai 2016 à 15:41
Dans le mille !

Je vais adapter ça à ma sauce,

Merci beaucoup pour la réactivité !!!
0
lucas_maracas Messages postés 6 Date d'inscription lundi 9 mai 2016 Statut Membre Dernière intervention 12 mai 2016
9 mai 2016 à 18:48
Re !

J'ai un nouveau soucis ... En fait la colonne que je souhaite copier contient une formule donc lorsque j'applique le code cela ne fonctionne pas. Je souhaiterais pouvoir copier uniquement les valeurs.

Pourrais-tu m'aider ?

Merci d'avance
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
Modifié par Patrice33740 le 9/05/2016 à 19:23
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
0
lucas_maracas Messages postés 6 Date d'inscription lundi 9 mai 2016 Statut Membre Dernière intervention 12 mai 2016
9 mai 2016 à 20:01
Merci beaucoup, le code fonctionne :)
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
9 mai 2016 à 20:32
De rien, mets le post en résolu.

Patrice
0