Transfert de données

sten83 · 8 Décembre 2015

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 · 8 Décembre 2015

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 · 8 Décembre 2015

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 · 8 Décembre 2015

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.

Transfert de données

sten83

XLDnaute Occasionnel

Pièces jointes

bbb38

XLDnaute Accro

Pièces jointes

gosselien

XLDnaute Barbatruc

sten83

XLDnaute Occasionnel

Discussions similaires

Transfert de données

sten83

XLDnaute Occasionnel

Pièces jointes

bbb38

XLDnaute Accro

Pièces jointes

gosselien

XLDnaute Barbatruc

sten83

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency