Contenu récent par laurent950

Bonjour @Dudu2 Module_L950_V4_VarianteCellsTab Ps : c'est la version qui est la plus rapide. Fonctionne sur 1 048 576 lignes et 16 384 colonnes (sans bloquée) La version V4 est l'amélioration des versions V0 / V1 / V2 / V3 (Pour en comprendre la logique et l'évolution vers la V4)...

Bonjour @Dudu2 Module_L950_V3_VarianteCellsTab Option Explicit Function ReperePlageVisible_L950_V3_VarianteCellsTab(Wks As Worksheet) As Collection ' Prend la feuille (active Wks) en paramètre ' Retourne la Collection contenant toutes les zones de cellules visibles : ' - ligne par ligne...

Bonjour @Dudu2 Module_L950_V2_VarianteCellsTab Option Explicit Function ReperePlageVisible_L950_V2_VarianteCellsTab(Wks As Worksheet) As Collection ' Prend la feuille (active Wks) en paramètre ' Retourne la Collection contenant toutes les zones de cellules visibles : ' - ligne par ligne...

Bonjour @Dudu2 Module_L950_V1_VarianteCells Option Explicit Function ReperePlageVisible_L950_V1_VarianteCells(Wks As Worksheet) As Collection ' Prend la feuille (active Wks) en paramètre ' Retourne la Collection contenant toutes les zones de cellules visibles : ' - ligne par ligne ' '...

Bonjour @Dudu2 Module_L950_V0 Option Explicit Function ReperePlageVisible_V0(Wks As Worksheet) As Collection ' Prend la feuille (active Wks) en paramètre ' Retourne la Collection contenant toutes les zones de cellules visibles : ' - ligne par ligne ' ' Déclaration des variables...

Bonjour @Dudu2 C'est effectivement assez complexe a comprendre pour en définir une régle et trouver le bon algorithme. j'ai fais 5 versions : V0 / V1 / V2 / V3 / (V4 = c'est une solution voir ma solution sur l'ensemble des codes proposés) pour arrivé a comprendre c'est la V4 qui fonctionne...

Bonjour @Dudu2 j'ai essayer quelques choses : cela semble assez rapide Option Explicit Function ReperePlageVisible(Wks As Worksheet) As Collection ' Prend la feuille (active Wks) en paramètre ' Retourne la Collection contenant toutes les zones de cellules visibles : ' - ligne par ligne...

Bonjour Le Forum Le format de la cellule est en Format Date, il faut le changer en format Nombre. la formule pour évité les vides à ajouter. =SI(ESTVIDE(B5);"";INDEX($I$4:$K$7; SI(C5<31;1;SI(C5<=40;2;SI(C5<=50;3;4))); B5)) Format Nombre ici

Bonsoir le forum Utilisation de la formule INDEX : en Cellule F4 à créer pour rappel : =INDEX(tableau; no_ligne; no_colonne) tableau : Connue --->>> $N$3:$P$6 no_ligne : Justement il faut chercher --->>> ? no_colonne : Connue --->>> D4 (soit le numéro de colonne du tableau spécifié en...

Bonjour @patricktoulon En Poste #18 tu as stocké ou les images, si ont veux faire fonctionné cette vba avec d'autres images, j'aime le principe 10/10 tu es un champion Merci pour cette astuce Laurent

Bonjour @patricktoulon pour comprendre le mécanisme avec Formule dans un premier temps je pense que je me suis rapproché de l'écart entre le groupe 1 et Groupe 2 regarde ensuite en VBA c'est simple de faire le code

Bonjour @patricktoulon Quelques choses comme cela ? un début d'idée

Bonsoir. Sub MFC_ToutesMatrices() Dim ws As Worksheet Set ws = ActiveSheet Dim Plages As Variant Dim i As Long Dim formule As String Dim fcIndex As Long ' Liste des matrices et première colonne à tester Plages = Array( _ Array("$A$3:$C$33"...

Bonjour Private Sub Workbook_Open() Dim v As Double Dim i As Long Dim n As Long Dim arr() ' Nombre total d’entrées : (409 - 0.5) / 0.5 + 1 n = (409# - 0.5) / 0.5 + 1 ReDim arr(1 To n, 1 To 1) ' Remplir le tableau en mémoire (beaucoup plus rapide) v = 0.5...

multi cellules Option Explicit Sub a() Dim Tbl As ListObject Dim TabFormules() As String Dim LignesNecessaires As Long Set Tbl = ActiveSheet.ListObjects(1) ' 1. Préparation du tableau de String 2x2 ReDim TabFormules(1 To 2, 1 To 2) LignesNecessaires =...