Bonjour à tous!
Voilà, je me permets de vous solliciter de nouveau afin de savoir s'il était possible d'utiliser la fonction .Filter dans une variable tableau par rapport un un critère ce trouvant sur un feuille puis d'y retranscrire le résultat sur une autre feuille.
Je m'explique un peu.
J'essaie de m'améliorer en VBA, c'est pas encore ça mais ça avance!!
J'ai donc commencé à utiliser les variables tableaux.
Après avoir appelé le miens en fonction de données se trouvant dans une feuille "Base", j'aimerai maintenant le filtrer par rapport à une valeur en A1 de la feuille "Modele" puis d'y retranscrire sur la même feuille le résultat de la colonne 3 de mon tableau tampon.
Pour une meilleure lecture, je vous mets mon début de code avec quelques indications pour comprendre.
Je peux également vous envoyer mon fichier excel.
J'espère être assez clair.
N'hésitez pas à me le dire je ferai en sorte d'être plus précis.
Merci d'avance à tous!!
Voilà, je me permets de vous solliciter de nouveau afin de savoir s'il était possible d'utiliser la fonction .Filter dans une variable tableau par rapport un un critère ce trouvant sur un feuille puis d'y retranscrire le résultat sur une autre feuille.
Je m'explique un peu.
J'essaie de m'améliorer en VBA, c'est pas encore ça mais ça avance!!
J'ai donc commencé à utiliser les variables tableaux.
Après avoir appelé le miens en fonction de données se trouvant dans une feuille "Base", j'aimerai maintenant le filtrer par rapport à une valeur en A1 de la feuille "Modele" puis d'y retranscrire sur la même feuille le résultat de la colonne 3 de mon tableau tampon.
Pour une meilleure lecture, je vous mets mon début de code avec quelques indications pour comprendre.
Je peux également vous envoyer mon fichier excel.
Code:
Option base 1
Sub Recherche_Dans_Tab()
'création du tableau "tampon" par rapport à ma base en feuille "Base"
With Sheets("Base")
Dim der_Lig As Integer
der_Lig = .Range("A1").End(xlDown).Row
Dim Tab_Tampon()
ReDim Tab_Tampon(der_Lig, 8)
For i = 1 To der_Lig - 1
Tab_Tampon(i, 1) = .Range("A" & i + 1)
Tab_Tampon(i, 2) = .Range("B" & i + 1)
Tab_Tampon(i, 3) = .Range("C" & i + 1)
Tab_Tampon(i, 4) = .Range("D" & i + 1)
Tab_Tampon(i, 5) = .Range("E" & i + 1)
Tab_Tampon(i, 6) = .Range("F" & i + 1)
Tab_Tampon(i, 7) = .Range("G" & i + 1)
Tab_Tampon(i, 8) = .Range("H" & i + 1)
Next i
End With
'Fin de la création du tableau "tampon"
'j'aimerais filter dans mon Tab_Tampon la valeur qui se trouve en A1 dans ma feuille "Modele" (cette info se trouve dans la colonne 1 de mon Tab_Tampon)
Filter(Tab_Tampon(), Sheets("Modele").Range("A1")) ' c'est ce que j'ai commencé à écrire mais je bloque par la suite
'Après avoir filtrer j'aimerais copier/coller la colonne 3 de mon Tab_Tampon dans le feuille "Modele" avec les valeurs restantes après mon filtre
End Sub
J'espère être assez clair.
N'hésitez pas à me le dire je ferai en sorte d'être plus précis.
Merci d'avance à tous!!