renvoi la donnée si trouve la meme date

olive323 · 21 Novembre 2012

Bonjour à tous,

Je souhaiterais que les données soient copiées en face de la meme date ex: dans l'onglet S1 , si dans la zone B1:i107 je trouve une date identique qui se trouve dans l'onglet congés alors la valeur de la colonne i (cp,am,ect...) se reportent en dessous de cette date et en face du chiffre correspondant

Vba en gras à modifier
Merci de votre aide

ate

Sub majlundi()
Dim NomSem As String
Dim P As Variant
Dim c As Range
NomSem = "S1" 'ActiveSheet.Name
Sheets(NomSem).Activate
Sheets("congés").Select
Application.ScreenUpdating = False
For Each c In [A5:A54]
P = Application.Match(c, Application.Index(Sheets("S1").Range("b4:i107"), , 1), 0)
If Not IsError(P) Then
Sheets(NomSem).Range("b4:i107").Cells(P, 8).copy
Sheets("congés").Select
c.Offset(0, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone
End If
Next c
Application.ScreenUpdating = True
Sheets(NomSem).Activate
Application.CutCopyMode = False
End Sub

olive323 · 24 Novembre 2012

Re : renvoi la donnée si trouve la meme date

personne pour mon probleme???

Staple1600 · 24 Novembre 2012

Re : renvoi la donnée si trouve la meme date

Bonjour à tous

olive323
Commences, stp, par ne pas multiplier les fils pour la même question, et peut-être alors plus de monde passera t'aider
(De plus, cela rends la charte du forum neurasthénique )
Pourquoi ne pas avoir continué ici?
https://www.excel-downloads.com/threads/ne-pas-faire-reference-a-un-nom-de-zone.196037/

olive323 · 24 Novembre 2012

Re : renvoi la donnée si trouve la meme date

Bonjour

Ok chose faite,

Comme c’était pas la même demande j'ai ré-ouvert un fil, mais pourquoi pas sur le meme.

Cordialement

Staple1600 · 24 Novembre 2012

Re : renvoi la donnée si trouve la meme date

Bonjour à tous
Re olive323

olive323 à dit:
...mais pourquoi pas sur le meme.

La réponse à ton pourquoi est ici, Lien supprimé

PS: C'est pourtant le même classeur, non ?

olive323 · 24 Novembre 2012

Re : renvoi la donnée si trouve la meme date

Merci

J'avais déjà lu

Cordialement

renvoi la donnée si trouve la meme date

olive323

XLDnaute Occasionnel

Pièces jointes

olive323

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

olive323

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

olive323

XLDnaute Occasionnel

Discussions similaires