Copie collé avec conditions

17 réponses

sgattellan

14/05/2015 à 19:51

Bonjour,
je vais essaye d’être clair dans les explications.

1)Feuil1(Janv), 2)feuil2(Base)

feuil1 en b7:b45 la date avec le jour (critère déjà enregistre)
d7:d45 mettre le critère recherche.

Quand ont enregistre le critère en d7 il faudrait qu'il recherche dans la feuil2 en a4(le jour) et en c4 (le critère enregistre en feuil1) si les 2 conditions correspond alors il copy de la feuil2 (d4:i4) et les coller dans la feuil1 en (e7:j7).

il existe 12 feuil(Jan, Fev etc.. et 1 feuil2( base).
Merci a tous

10 réponses

1 2

merguez07

16/05/2015 à 10:07

Bonjour,
rien compris

un petit ci joint serait le bienvenu
xavier

Le 14/05/2015 19:51, sgattellan a écrit :

---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com

sgattellan

16/05/2015 à 12:24

Le jeudi 14 Mai 2015 à 19:51 par sgattellan :

Bonjour,
comment faut il faire pour joindre un fichier exemple.
merci
Samuel

Jacquouille

16/05/2015 à 12:29

Bonjour
Tu fermes ton doc.
Ensuite, tu vas sur internet, tu cherches "CJOINT.COM", tu l'ouvres... puis
tu suis les indications;
C'est très facile.

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"sgattellan" a écrit dans le message de groupe de discussion :

Le jeudi 14 Mai 2015 à 19:51 par sgattellan :

Bonjour,
comment faut il faire pour joindre un fichier exemple.
merci
Samuel

---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com

sgattellan

16/05/2015 à 17:26

Le jeudi 14 Mai 2015 à 19:51 par sgattellan :

Bonjour,
je vais de trouve comme fallait faire pour joindre un fichier.

http://cjoint.com/?EEqrMJoHV79

merci encore
Samuel

Jacquouille

16/05/2015 à 19:20

C'est presque dommage d'avoir perdu 5 hr à chercher.
A quoi ça sert que Ducro il se décarcasse ? -))

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"sgattellan" a écrit dans le message de groupe de discussion :

Le jeudi 14 Mai 2015 à 19:51 par sgattellan :

Bonjour,
je vais de trouve comme fallait faire pour joindre un fichier.

http://cjoint.com/?EEqrMJoHV79

merci encore
Samuel

---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com

Jacky

16/05/2015 à 22:37

Bonsoir,

J'ai pas compris la logique,... mais essaye ceci
En E7

=SI(OU($D7="";ESTNA(EQUIV(JOURSEM($B7;2)&$D7;'Base '!$B$4:$B$11&'Base '!$C$4:$C$11;0)));0;INDEX('Base
'!D$4:D$11;EQUIV(JOURSEM($B7;2)&$D7;'Base '!$B$4:$B$11&'Base '!$C$4:$C$11;0)))

Validation matricielle (Ctrl+Alt+Entée)
Recopier à droite et vers le bas aussi loin que besoin

--
Salutations
JJ

"sgattellan" a écrit dans le message de news:

sgattellan

17/05/2015 à 13:53

Le jeudi 14 Mai 2015 à 19:51 par sgattellan :

Bonjour Jacky,
Merci tout d'abord pour avoir regarde mon problème.

désolé j'aurai du préciser que j'avais déjà cette formule mais qui ne convenait pas a ce que je souhaite.

il est bien sauf quand je modifie les données dans la base, ça modifie dans la feuil Jan.
ces la formule, si ça peut intéresse quelqu'un.

=SI(ET($B4<>"e;e;"e;e;;$D4<>"e;e;"e;e;);SI(ESTNUM(INDEX(Base!D$1:D$9;MAX(SI((JOURSEM($B4;2)�se!$B$2:$B$9)*(Horaire!$D4�se!$C$2:$C$9);LIGNE(Base!$B$2:$B$9);"e;e;oups"e;e;))));INDEX(Base!D$1:D$9;MAX(SI((JOURSEM($B4;2)�se!$B$2:$B$9)*(Horaire!$D4�se!$C$2:$C$9);LIGNE(Base!$B$2:$B$9);"oups")));"");"")

il vaudrai pouvoir faire un copie coller avec les mêmes critères. peut être en macro.

la logique c'est quand j'enregistre mon service STI01 qu'il copie les horaires (base) selon le jour et le service.

la base est enregistre et elle est modifier plusieurs fois pas mois, d’où ce qui ont était enregistre ne soit plus modifie.

Cdtl
Samuel

Jacky

17/05/2015 à 16:53

Re..
Ton classeur fait plus de 4 MO :o((((
Attention dans ton classeur le nom de la feuill "Base" a un espace à la fin

Ok! en vba alors
La recherche se fait sur entrée ou modification de la colonne "Sce"

Ceci dans le ThisWorkbook (pour tenir compte de toutes les feuilles, feuille exclue dans l'exemple="Base")
'-------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [d7:d13]) Is Nothing Then Exit Sub
If Sh.Name = "Base" Then Exit Sub ' ici le nom des feuilles à exclure
If Target = "" Then Range(Cells(Target.Row, 5), Cells(Target.Row, 10)) = 0
Call MAJ(ActiveSheet.Name, Target.Address)
End Sub
'--------------------

Ceci dans un module simple
'---------------------
Sub MAJ(LaFeuille, LaCellule)
Dim d As Range
With Sheets("Base")
For Each d In .Range("b4:b" & Cells(Rows.Count, 1).End(xlUp).Row)
If Weekday(Sheets(LaFeuille).Range(LaCellule).Offset(, -2).Value, 2) = d And
Sheets(LaFeuille).Range(LaCellule) = d.Offset(, 1) Then
.Range("D" & d.Row & ":" & "i" & d.Row).Copy Sheets(LaFeuille).Range(LaCellule).Offset(, 1)
End If
Next
End With
End Sub
'----------------------
Le classeur ici avec une cure d'amaigrissement
http://cjoint.com/?EErq5UQMrBe

--
Salutations
JJ

sgattellan

17/05/2015 à 23:12

Le jeudi 14 Mai 2015 à 19:51 par sgattellan :

Bonsoir,

c'est super exactement ce que je voulais, merci beaucoup.

j'ai recopier les 2 macros comme tu la indique ça fonctionne bien, sauf
qu'il ne va pas cherche les infos au delà de la ligne 14 de la base.

La base peux aller a plus de 500 lignes.
Cdtl
Samuel

Jacky

18/05/2015 à 00:05

Re...

Comment est complétée la feuille Base ?
Donne un exemple d'une feuille base plus complète.

--
Salutations
JJ

"sgattellan" a écrit dans le message de news:

1 2

Copie collé avec conditions

10 réponses

Veuillez sélectionner un problème