Macro pour copier/coller sous conditons...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide à l"écriture d'une macro afin de copier/coller des données ciblées, dans une autre feuille d'un même classeur...

voir fichier joint avec explications plus précises...enfin j'espère...lol

Merci pour votre aide.

Bien à vous.
Christian

 

[Christian0258]

Re : Macro pour copier/coller sous conditons...

Re, le forum,
Bonjour à toutes et à tous,

N'ayant pas de solution, je reviens vers vous...j'ai réessayé de mon côté mais trop compliqué pour moi..lol

voir nouveau fichier avec résultats attendus.

Bien amicalement,
Christian

 

[job75]

Re : Macro pour copier/coller sous conditons...

Bonjour Christian,

Sub Copie()
Dim jour As Byte, i As Byte
jour = Weekday(Feuil1.[F10], 2)
For i = 0 To 10
  Feuil1.[F11].Offset(13 * i).Resize(12, 35).Copy _
    Feuil2.[F10].Offset(132 * jour + 12 * i - 132)
Next
Feuil2.[F10].Offset(132 * jour - 132).Resize(132) = Feuil1.[F10]
End Sub

Il faudrait peut-être enlever tous ces zéros des cellules "vides" en Feuil1, non ?

A+

 

[job75]

Re : Macro pour copier/coller sous conditons...

Re,

S'il y a des formules partout, bien sûr ne copier que les valeurs :

Sub Copie()
Dim jour As Byte, i As Byte
jour = Weekday(Feuil1.[F10], 2)
For i = 0 To 10
  Feuil2.[F10].Offset(132 * jour + 12 * i - 132).Resize(12, 35) _
    = Feuil1.[F11].Offset(13 * i).Resize(12, 35).Value
Next
End Sub

A+

 

[Christian0258]

Re : Macro pour copier/coller sous conditons...

Re, le froum, job75,

Un grand merci à toi.
Ok pour les zéros (post3)

6 lignes de codes, et hop circuler...
Encore merci, salut l'artiste.

Bien à toi,
Christian

 

[job75]

Re : Macro pour copier/coller sous conditons...

Re,

6 lignes de codes, et hop circuler...

Bah on peut tout faire en une seule ligne :

Sub Copie1()
Feuil1.[F11:AN22,F24:AN35,F37:AN48,F50:AN61,F63:AN74,F76:AN87,F89:AN100,F102:AN113,F115:AN126,F128:AN139,F141:AN152].Copy Feuil2.[F10].Offset(132 * Weekday(Feuil1.[F10], 2) - 132)
End Sub

Les valeurs et les formats sont copiés.

A+

 

[Christian0258]

Re : Macro pour copier/coller sous conditons...

Re, le forum, job75,

Pas vu cette version, ok ça m'intéresse...impec

Merci
A+
Christian