XL 2016 VBA avec recherche

CYRIL CAMPAS · 4 Octobre 2021

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

CYRIL CAMPAS · 6 Octobre 2021

sylvanu à dit:
Essayez cette PJ avec :

VB:

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.

Bonjour Sylvanu,

malheureusement je ne m'en sors pas, sur ton fichier tout est parfait et sur le mien cela ne fonctionne pas (j'ai d'autres onglets dans mon fichier que je t'avais supprimé car fichier trop lourd pour être joins, mais je ne pense pas que ça puisse jouer un rôle dans cet issu;

sylvanu · 6 Octobre 2021

Si rien n'est confidentiel, vous pouvez poster avec : https://www.cjoint.com/
Il n'y a pas de raisons pour que ce simple code ne marche pas.

CYRIL CAMPAS · 6 Octobre 2021

sylvanu à dit:
Si rien n'est confidentiel, vous pouvez poster avec : https://www.cjoint.com/
Il n'y a pas de raisons pour que ce simple code ne marche pas.

non rien de confidentiel, ce sont des KPI's pour un groupe agroalimentaire. a ce compte là je joins le fichier complet ce sera plus simple. c'est tellement frustrant de ne pas comprendre !

CYRIL CAMPAS · 6 Octobre 2021

CYRIL CAMPAS à dit:
non rien de confidentiel, ce sont des KPI's pour un groupe agroalimentaire. a ce compte là je joins le fichier complet ce sera plus simple. c'est tellement frustrant de ne pas comprendre !

https://www.cjoint.com/c/KJgmeVkKTcW voici le lien avec le fichier complet

sylvanu · 6 Octobre 2021

Re,
Je n'ai fait que mettre la macro et crée le bouton.
(Attention, j'ai modifié la formule en AM3, because XL2007. La remettre )
Et pour moi ça marche. Où est ce que ça coince chez vous ?

Le fichier :
https://www.cjoint.com/c/KJgmyHnpcNY

CYRIL CAMPAS · 6 Octobre 2021

cela fonctionne à merveille, je ne comprends pas ce qui a déconné...
je vais donc pouvoir dupliqué exactement la même macro pour les autre boutons et sur chaque onglet de perfs de lignes ? (en changeant bien sur les références)

merci réellement

XL 2016 VBA avec recherche

CYRIL CAMPAS

XLDnaute Junior

CYRIL CAMPAS

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

CYRIL CAMPAS

XLDnaute Junior

CYRIL CAMPAS

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

CYRIL CAMPAS

XLDnaute Junior

Discussions similaires