XL 2016 VBA avec recherche

[CYRIL CAMPAS]

Bonjour à tous ! je fais appel à vos lumières, je suis perdu... je vais tenter d'être clair dans mes explications, avec des screenshot :

je créé un fichier dans lequel je compte des remontés sécurité par exemple. ces remontées (il y a plusieurs item), se font en remplissant toute la semaine des cases (MEFC pour que ce soit coloré en fonction du choix "oui/non/#NA"). ensuite, sur la même feuille excel, je mets en oeuvre NB.VAL pour compter mon nombre de cellule non vides (que je vais modifier pour compter uniquement les valeurs "non" sur ma plage concernée.

voici déjà le screen de ca :

sur cette même feuille, j'ai une cellule qui me dit en quelle semaine on est en fonction de la date du jour .

Tous les vendredis, j'aimerai envoyer cette valeur cumulée de la semaine dans une autre feuille du même classeur. évidement, je souhaite que lorsque j'envoie la valeur cumulée de la semaine 40, cela atterrisse dans la colonne (et la bonne ligne) de ma nouvelle feuille. voici le screen :

j'ignore si je peux faire ça par formule ou si je dois passer par VBA, mais dans les deux cas je sèche.....

Merci chers XLnautes 🙂

si c'est plus simple, j'enverrai le fichier de base

 

[danielco]

Bonjour,

Ca serait plus clair si tu joignais un classeur de test.

Cordialement.

Daniel

 

[CYRIL CAMPAS]

Bonjour,

Ca serait plus clair si tu joignais un classeur de test.

Cordialement.

Daniel

bonjour Danielco, alors je te joins le fichier !

 

[sylvanu]

Bonjour Cyril, Danielco,
En formules vous ne pourrez pas figer des valeurs passées. Le VBA peut le faire facilement.
En PJ un essai avec :

Sub TransfertQRcodesActivés()
    Dim IndexNoSemaine%
    With Sheets("Reporting Data WOR")
        IndexNoSemaine = Application.Match([NoSemaine], .Range("1:1"), 0)
        .Cells(50, IndexNoSemaine) = [QRcodesActivés]
    End With
End Sub

( Attention en AM3 j'ai changé la formule car je ne dispose pas de la fonction Isoweeknum, remettez là correctement. Mais cela ne change rien évidemment au fonctionnement de la macro. )

 

[CYRIL CAMPAS]

Bonjour Cyril, Danielco,
En formules vous ne pourrez pas figer des valeurs passées. Le VBA peut le faire facilement.
En PJ un essai avec :

Sub TransfertQRcodesActivés()
    Dim IndexNoSemaine%
    With Sheets("Reporting Data WOR")
        IndexNoSemaine = Application.Match([NoSemaine], .Range("1:1"), 0)
        .Cells(50, IndexNoSemaine) = [QRcodesActivés]
    End With
End Sub

( Attention en AM3 j'ai changé la formule car je ne dispose pas de la fonction Isoweeknum, remettez là correctement. Mais cela ne change rien évidemment au fonctionnement de la macro. )

Sylvanu, un infini merci pour ton aide, quelle efficacité ! je vais mettre tout ça en place, et vraiment encore, un grand merci !

 

[CYRIL CAMPAS]

Sylvanu, un infini merci pour ton aide, quelle efficacité ! je vais mettre tout ça en place, et vraiment encore, un grand merci !

Mince, je viens d'intégrer la macro à mon fichier original, voici l'erreur que cela me sort : aurais-tu idée de ce que ça peut vouloir dire ?

 

[sylvanu]

Oups!!! Sorry.
J'ai nommé AM3 NoSemaine et Z10 QRcodesActivés.
C'est surement ça. Regardez ds ma PJ.
J'ai l'habitude de nommer les cellules. C'est plus lisible et le VBA devient indépendant des insertions lignes ou colonne.
Ou essayez cela :

Sub TransfertQRcodesActivés()
    Dim IndexNoSemaine%
    With Sheets("Reporting Data WOR")
        IndexNoSemaine = Application.Match([AM3], .Range("1:1"), 0)
        .Cells(50, IndexNoSemaine) = [Z10]
    End With
End Sub

 

[CYRIL CAMPAS]

Oups!!! Sorry.
J'ai nommé AM3 NoSemaine et Z10 QRcodesActivés.
C'est surement ça. Regardez ds ma PJ.
J'ai l'habitude de nommer les cellules. C'est plus lisible et le VBA devient indépendant des insertions lignes ou colonne.
Ou essayez cela :

Sub TransfertQRcodesActivés()
    Dim IndexNoSemaine%
    With Sheets("Reporting Data WOR")
        IndexNoSemaine = Application.Match([AM3], .Range("1:1"), 0)
        .Cells(50, IndexNoSemaine) = [Z10]
    End With
End Sub

j'essaye ça de suite merci !

 

[CYRIL CAMPAS]

j'essaye ça de suite merci !

zut, je retrouve le même défaut. est-ce que la synthaxe doit être changée sur les cellues genre de [Z10] en (Z10) ou pas d'importance ?

 

[sylvanu]

Cela doit être [Z10] ou range("Z10").
Mais au moins est ce que cela marche sur mon fichier ?

ou alors le N° de semaine ne figure pas sur la ligne 1.

 

[CYRIL CAMPAS]

zut, je retrouve le même défaut. est-ce que la synthaxe doit être changée sur les cellues genre de [Z10] en (Z10) ou pas d'importance ?

quand je pointe le curseur sur [AM3] et Z10, voici ce que ça met :

 

[CYRIL CAMPAS]

quand je pointe le curseur sur [AM3] et Z10, voici ce que ça met :
Regarde la pièce jointe 1117387Regarde la pièce jointe 1117387

le numéro de semaine sur l'onglet reporting data wor est bien sur la première ligne

 

[sylvanu]

Ce sont des [ ] et non des ( ).
Mettez des Range("Z10") et Range("AM3") ce sera plus simple.

 

[CYRIL CAMPAS]

Ce sont des [ ] et non des ( ).
Mettez des Range("Z10") et Range("AM3") ce sera plus simple.

et oui je confirme, sur ton fichier cela fonctionne à la perfection !

 

[sylvanu]

Essayez cette PJ avec :

Sub TransfertQRcodesActivés()
    Dim IndexNoSemaine%
    With Sheets("Reporting Data WOR")
        IndexNoSemaine = Application.Match(Range("AM3"), .Range("1:1"), 0)
        .Cells(50, IndexNoSemaine) = Range("Z10")
    End With
End Sub

Des pistes si cela ne marche pas :
1- Le N° de semaine n'est pas en AM3
2- Le bouton de transfert n'est pas sur la feuille Perfs lignes A
sinon je ne vois pas.