renvoi la donnée si trouve la meme date

[olive323]

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]

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

personne pour mon probleme???

 

[Staple1600]

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]

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]

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

Bonjour à tous
Re olive323

...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]

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

Merci

J'avais déjà lu🙂

Cordialement