XL 2016 VBA avec recherche

CYRIL CAMPAS

XLDnaute Junior
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 :
1633358426184.png


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 :

1633358731498.png


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
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 :
Code:
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. )
 

Pièces jointes

  • DOR condi - XLDL.xlsm
    584.7 KB · Affichages: 6

CYRIL CAMPAS

XLDnaute Junior
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 :
Code:
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 !
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
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

XLDnaute Junior
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 :
VB:
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 !
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • DOR condi - XLDL (2).xlsm
    584.8 KB · Affichages: 5

Discussions similaires