Bonjour à tous les passionés d'Excel et de VBA en particulier,
Je rencontre en ce moment une difficulté dans un classeur X,
La page un contient une tableau base de données en ("A:C")
La seconde page une sélection de valeurs selon lesquelles le tri doit se faire dans la database.
La 3° page reçoit par copier-coller le résultat de la database après filtrage.(Visualisation)
La macro utilise un filtre auto. , un seul critère et un array (nommé T)
Je souhaiterais remplir dynamiquement l'Array par les valeurs qui apparaissent cochés d'une croix sur ma page 2.
Tant que maintenant la macro que j'ai faite fonctionne fort bien, mais les valeurs contenues dans mon Array sont fixes,
il faut les adapter manuellement.
le problèmes est que dans ce classeur, ils changent en fonction d'autres macros s'exécutant préalablement ...
Je me suis inspiré de ceci pour remplir mon array de façon automatique, sans succès ...
(où Tblo = T)
Sub ex1feuilleversarray()
Dim Tblo()
Dim a As Integer, b As Integer
With ActiveSheet.Range("a1").CurrentRegion
ReDim Tblo(.Rows.Count, .Columns.Count)
Tblo = .Value
End With
Je joins en annexe le classeur en question.
Merci déjà à tous ceux qui voudront consacrer quelque temps pour éclairer ma lanterne !
François
Je rencontre en ce moment une difficulté dans un classeur X,
La page un contient une tableau base de données en ("A:C")
La seconde page une sélection de valeurs selon lesquelles le tri doit se faire dans la database.
La 3° page reçoit par copier-coller le résultat de la database après filtrage.(Visualisation)
La macro utilise un filtre auto. , un seul critère et un array (nommé T)
Je souhaiterais remplir dynamiquement l'Array par les valeurs qui apparaissent cochés d'une croix sur ma page 2.
Tant que maintenant la macro que j'ai faite fonctionne fort bien, mais les valeurs contenues dans mon Array sont fixes,
il faut les adapter manuellement.
le problèmes est que dans ce classeur, ils changent en fonction d'autres macros s'exécutant préalablement ...
Je me suis inspiré de ceci pour remplir mon array de façon automatique, sans succès ...
(où Tblo = T)
Sub ex1feuilleversarray()
Dim Tblo()
Dim a As Integer, b As Integer
With ActiveSheet.Range("a1").CurrentRegion
ReDim Tblo(.Rows.Count, .Columns.Count)
Tblo = .Value
End With
Je joins en annexe le classeur en question.
Merci déjà à tous ceux qui voudront consacrer quelque temps pour éclairer ma lanterne !
François