VBA rechercheV resultats multiples et variable

Résolu/Fermé
titeufdu89
Messages postés
371
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
4 mars 2019
- 3 juil. 2017 à 16:13
f894009
Messages postés
16490
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mai 2022
- 4 juil. 2017 à 10:58
Bonjour,

J'ai un fichier de planning avec différents onglets :
- planning général
- planning par collaborateur
- planning pas magasin
Les 2 derniers onglet étant censés se mettre à jour automatiquement depuis le planning général, puis d'autres onglet sans importance ici.

Je ne parviens pas à mettre à jour mon onglet planning par magasin, j'ai créé un code (ci-dessous), qui fonctionne a moitié, car il m'affiche effectivement un collaborateur planifié sur le magasin seulement lorsqu'il y en a plusieurs, il ne mes les affiche pas... Une idée de l'endroit ou mon code ne joue pas?

Ci-joint mon fichier si ça peut aider a comprendre l'objet de ma demande
Par avance merci!

Option Explicit
Option Compare Text

Sub maj()

Dim plage As Range
Dim c As Range
Dim p As Object
Dim b As Object
Dim i As Long
Dim r As Long
Dim col As Long
Dim valrech As String
Dim l_max As Long

Set p = Sheets("Planning par magasin")
Set b = Sheets("Planning")
l_max = b.Range("A1:A65536").Find("Totaux", lookat:=xlWhole).Row - 1

Set plage = p.Range("C3,C8,C13,C18,C23,C28,C33,C38,C43,C48,C53,C58,D3,D8,D13,D18,D23,D28,D33,D38")

For Each c In plage
r = c.Row
col = c.Column
valrech = p.Cells(r, 2).Value

For i = 4 To l_max Step 1
If b.Cells(i, col) Like valrech Then
b.Cells(i, 2).Copy c

End If

Next i
Next c
End Sub



https://www.cjoint.com/c/GGdodiaV4tS

Jc

1 réponse

f894009
Messages postés
16490
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mai 2022
1 633
3 juil. 2017 à 17:06
Bonjour,

Votre fichier modifie, si j'ai bien compris, manquait le decalage pour ecrire la ou les personnes suivantes pour le meme magasin

https://www.cjoint.com/c/GGdpgglbaMf
0
titeufdu89
Messages postés
371
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
4 mars 2019
36
3 juil. 2017 à 17:24
Fabuleux!!!! Un grand merci! C'est exactement ce que je souhaitais faire!

Si je peux me permettre une dernière petite question...?! dans ma plage j'ai déclaré qu'une partie des cellules, mais lorsque je les ajoute toutes, ca me sort une erreur 1004, une idée de la raison?

Encore merci pour tout!
0
f894009
Messages postés
16490
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mai 2022
1 633 > titeufdu89
Messages postés
371
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
4 mars 2019

3 juil. 2017 à 17:25
Re,

Je regarde la chose

A+
0
titeufdu89
Messages postés
371
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
4 mars 2019
36
3 juil. 2017 à 18:45
Merci,

J'ai tenté d'utiliser votre code pour faire une mise a jour automatique de chacune des cellules du planning mais il y a quelque chose que je dois faire de travers car la marco s'execute sans message d'erreur, mais aucune des données ne s'affiche :-/

https://www.cjoint.com/c/GGdqRw0iBhS
0
f894009
Messages postés
16490
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mai 2022
1 633 > titeufdu89
Messages postés
371
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
4 mars 2019

Modifié le 3 juil. 2017 à 19:01
Re,

Votre premier fichier avec toutes les colonnes jours, avec une facon de faire un peu differente de la votre, mais pas si eloignee

https://www.cjoint.com/c/GGdq7G84rSf
0
titeufdu89
Messages postés
371
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
4 mars 2019
36
3 juil. 2017 à 20:02
Wahou! C'est bluffant! Et surtout si rapidement! Un grand merci!
Où peut-on apprendre a programmer comme ça?
0