Rien d'urgent et ... dans la continuité de la discussion 'https://excel-downloads.com/threads...pave-de-cellules-contenant-des-vblf.20087184/'
Bonsoir Le Forum,
J’en appelle aux spécialistes des Tableaux à 4 dimensions d(40,4), comme l’a fait Job75 dans le vba ci-joint dans le fichier (que je remercie encore car c'est une formulation redoutable par sa rapidité).
Je cherche justement par ce procédé à améliorer mes lignes de codes dans le module 1 et dans la Feuille FICHPOSINDIV.
Mon problème :
La macro fonctionne déjà bien comme cela : elle extrait des données en cellules jaunes la Feuille PANORAMIQUE.
Ces cellules peuvent éventuellement être au nombre de 10 x 82 = 820 si toutes jaunes et contenant donc des données à analyser.
Le placement final de la macro s’affiche sous conditions en une fiche individualisée, après le choix en [B4] de FICHPOSTINDIV du prénom à rechercher dans PANORAMIQUE.
Au milieu du Module 1, j’ai un « For...Next » qui pourrait être traité avec tablo(40,4))...(tableau à 40 lignes et 4 colonnes) à la façon de lignes rédigées par Job75 plus bas dans la macro...
La durée serait que la macro serait certainement réduite ... mais je ne sais pas faire avec 4 variables ; je m'y perds même en essayant de comprendre les astuces de Monsieur Boisgontier sur son site que lui et sa famille ont bien voulu nous laisser disponible.
Donc si vous pouviez m’aider dans les lignes suivantes, ce serait grandiose pour moi.
Merci
Webperegrino
Bonsoir Le Forum,
J’en appelle aux spécialistes des Tableaux à 4 dimensions d(40,4), comme l’a fait Job75 dans le vba ci-joint dans le fichier (que je remercie encore car c'est une formulation redoutable par sa rapidité).
Je cherche justement par ce procédé à améliorer mes lignes de codes dans le module 1 et dans la Feuille FICHPOSINDIV.
Mon problème :
La macro fonctionne déjà bien comme cela : elle extrait des données en cellules jaunes la Feuille PANORAMIQUE.
Ces cellules peuvent éventuellement être au nombre de 10 x 82 = 820 si toutes jaunes et contenant donc des données à analyser.
Le placement final de la macro s’affiche sous conditions en une fiche individualisée, après le choix en [B4] de FICHPOSTINDIV du prénom à rechercher dans PANORAMIQUE.
Au milieu du Module 1, j’ai un « For...Next » qui pourrait être traité avec tablo(40,4))...(tableau à 40 lignes et 4 colonnes) à la façon de lignes rédigées par Job75 plus bas dans la macro...
La durée serait que la macro serait certainement réduite ... mais je ne sais pas faire avec 4 variables ; je m'y perds même en essayant de comprendre les astuces de Monsieur Boisgontier sur son site que lui et sa famille ont bien voulu nous laisser disponible.
Donc si vous pouviez m’aider dans les lignes suivantes, ce serait grandiose pour moi.
Merci
Webperegrino
VB:
For lg = 28 To 37
For col = 7 To 88
If PAN.Cells(lg, col) <> "" Then '------- une case occupée de PAN
lgd = Ri.Range("C" & Rows.Count).End(3).Row + 1
If lgd < 9 Then lgd = 9
If PAN.Cells(lg, col) Like "*" & Ri.[B4] & "*" Then 'traitement de cases contenant le caissier Ri.[B4]
Ri.[I13] = 1
Ri.Cells(lgd, 2) = PAN.Cells(lg, 5) '----- le jour
If lgd = 9 Then nbP = nbP + 1 'NOMBRE DE JOURS EN POSTE
If lgd > 9 And Ri.Cells(lgd, 2) <> Ri.Cells(lgd - 1, 2) Then nbP = nbP + 1
Ri.Cells(lgd, 3) = PAN.Cells(165, col)
Ri.Cells(lgd, 3).Interior.Color = PAN.Cells(165, col).Interior.Color 'mise en coloration
Ri.Cells(lgd, 3).Font.ColorIndex = PAN.Cells(165, col).Font.ColorIndex
Ri.Cells(lgd, 3).Font.Bold = True 'False
Ri.Cells(lgd, 4) = PAN.Cells(lg, col)
Ri.Cells(lgd, 5) = PAN.Cells(166, col)
Ri.Cells(lgd, 36) = PAN.Cells(5, col)
End If
End If
Next col
Next lg