Transfert de données

[sten83]

Bonjour a tous je réédite ma demande pour ce petit problème déjà abordé au court d'un fil précedent ([XL 2007] Repport de données) mais don la réponse ne convient pas a ce que je voudrai.
Je joint un petit fichier avec les explications de que je souhaiterai pouvoir faire.
Je vous remercie pour votre aide précieuse.

 

[bbb38]

Re : Transfert de données

Bonjour sten83, le forum,
Une solution à tester. Sur la feuille « MOIS », j’ai modifié la ligne 6, à cause des cellules fusionnées (à éviter).
Cordialement,
Bernard

 

[gosselien]

Re : Transfert de données

Bonjour,

je ne peux que "plussoyer" au sujet des cellules fusionnées à proscrire !!!

essaye ceci :

Sub CopySem()
Dim msem As Long
msem = Sheets("semaine").[D4]
With Sheets("mois").Range("K6:X6")
Set c = .Find(What:=msem, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
Set desti = c.Offset(1, 0)
Sheets("semaine").Range("I7:I13").Copy Destination:=desti
End If
End With
End Sub

 

[sten83]

Re : Transfert de données

Merci a tous les deux la solution de bbb38 qui me convient parfaitement encore merci pour ce joli travail.
Excel-Download je suis fan.