Microsoft 365 Sélectionner de cellule avec certains critères

diwanegraf · 5 Mars 2022

Bonjour tout le monde, étant débutant de VBa je suis bloqué et demande de l'assistance auprès d'utilisateurs plus aguerris. J'aimerais trouver un code qui me permet de dans un tableau "DB" de sélectionner les lignes de la Colonne "F" n'ayant pas de cellule vide, de les sélectionner et regrouper sur une autre feuille "FinalDB". Merci d'avance

Staple1600 · 5 Mars 2022

Bonsoir

Pour cela utiliser le filtre avancé en utilisant l'option idoine (*)

(*) Copier dans

NB: Il y a de nombreux exemples dans les archives du forum
Accessibles ici

Effectuez une recherche sur Excel Downloads...

www.excel-downloads.com

diwanegraf · 5 Mars 2022

Staple1600 à dit:
Bonsoir

Pour cela utiliser le filtre avancé en utilisant l'option idoine (*)

(*) Copier dans

NB: Il y a de nombreux exemples dans les archives du forum
Accessibles ici

Effectuez une recherche sur Excel Downloads...

www.excel-downloads.com

Oui je sais que c'est possible avec les filtres d'Excel seulement je cherche une solution sous VBA

Staple1600 · 5 Mars 2022

Re

Bah, le filtre avancé fonctionne très bien avec le VBA
(ou plutôt se pilote très bien avec VBA)

Là, aussi de nombreux exemples dans les archives du forum.

Précisions

étant débutant de VBa je suis bloqué et demande de l'assistance auprès d'utilisateurs plus aguerris.

Le débutant c'est toi et l'aguerri c'est moi.

Maintenant, tu es libre ou pas de suivre mes conseils

diwanegraf · 7 Mars 2022

Staple1600 à dit:
Re

Bah, le filtre avancé fonctionne très bien avec le VBA
(ou plutôt se pilote très bien avec VBA)

Là, aussi de nombreux exemples dans les archives du forum.

Précisions

Le débutant c'est toi et l'aguerri c'est moi.

Maintenant, tu es libre ou pas de suivre mes conseils

Merci pour votre aide Mr l'aguerri mais toujours pas de solution VBA comme j'ai dis.

Staple1600 · 7 Mars 2022

Bonsoir

M'est avis que si tu joignais un fichier exemple, tu aurais surement plus de réponses
Si tu avais lu la charte du forum, tu aurais joins ton fichier exemple dès ton premier message
Et dans la même charte, la lecture de ceci

La Charte à dit:
2.2 – Tous les membres du forum répondent gracieusement aux questions.
Il n’y a donc aucune obligation de résultat et de délai. Les mots URGENT, SOS, AU SECOURS sont donc à bannir.

t'aurait évité d'écrire cela

mais toujours pas de solution VBA comme j'ai dis

diwanegraf · 7 Mars 2022

Merci pour vos remarques et à chacun sa compréhension, je sollicite l'expertise de personnes plus avisés humblement donc ne me faire pas dire ce que j'ai pas dis. Dans le tableau ci-joint la feuille non triée et la feuille triée comme je la veux.
“La connaissance, c'est partager le savoir qui nous fait grandir.”[Olivier LOCKERT]

diwanegraf · 8 Mars 2022

Solution trouvée Merci a toi qui partage ton savoir. Bref le Code regle mon probléme. Le voici pour les autres qui cherchent comme moi.
Sub Tridata( )
Application.ScreenUpdating = False

With Sheets("FinalDB")
.Cells.ClearContents
.Cells.Borders.LineStyle = xlNone
End With

With Sheets("BD")
.Range("A1").CurrentRegion.AutoFilter field:=6, Criteria1:="<>"
.Range("A1").CurrentRegion.SpecialCells(xlVisible).Copy Sheets("FinalDB").Range("A1")
If .FilterMode = True Then .ShowAllData
End With

With Sheets("FinalDB")
.Columns.HorizontalAlignment = xlCenter: .Columns.AutoFit
.Range("A1").CurrentRegion.Borders.Weight = xlThin
End With
End Sub

Staple1600 · 8 Mars 2022

Bonsoir

Oui je sais que c'est possible avec les filtres d'Excel
seulement je cherche une solution sous VBA

Staple à dit:
Bah, le filtre avancé fonctionne très bien avec le VBA
(ou plutôt se pilote très bien avec VBA)

La solution du message#8 c'est bien piloter le filtre en VBA, non ?
Sauf qu'il s'agit ici du filtre automatique.

Staple1600 · 8 Mars 2022

Re

Donc comme je le disais au message#2
Ma version avec le filtre avancé

VB:

Sub Macro1()
Dim F As Worksheet: Set F = Feuil3
F.[K2].FormulaR1C1 = "=BD!RC[-6]<>"""""
Sheets("BD").Cells(1).CurrentRegion.AdvancedFilter Action:=2, CriteriaRange:=F.[K1:K2], CopyToRange:=F.[A1]
F.Cells(1).CurrentRegion.Columns.AutoFit: F.[K2] = ""
End Sub

diwanegraf · 9 Mars 2022

J'ai testé votre code mais VBA me signale une erreur. L'autre fonction bien en tout cas. Merci de votre assistance Mr l'aguerri.

Staple1600 · 9 Mars 2022

Bonsoir le fil

Le double débutant(*) que tu es (en VBA et sur le forum), ignore sans doute que les vieux de la vieille Plus de 15 ans que je suis membre de ce forum tel que moi, qu'on appelle "les répondeurs" testent toujours leur formule ou leur code VBA avant de le poster.
Ce que je n'ai pas manquer de faire.
Donc pas rancunier pour un sou, j'ai ajouté
1) des commentaires explicatifs dans le code de ma macro

VB:

Sub Macro1_B()
'Déclarations des variables
Dim F As Worksheet
'ici  Feuil3 correspond au codename de la feuille : FinalDB
Set F = Feuil3
'on inscrit en K2 une formule qui sert de critère pour le filtre avancé
F.[K2].FormulaR1C1 = "=BD!RC[-6]<>"""""
'Ici on exploite le filtre avancé avec l'option Copier vers l'emplacement (ici vers la feuille BD en A1)
Sheets("BD").Cells(1).CurrentRegion.AdvancedFilter Action:=2, CriteriaRange:=F.[K1:K2], CopyToRange:=F.[A1]
'ici on formate les colonnes puis on efface le contenu de la cellule K2 de la feuille FinalDB
F.Cells(1).CurrentRegion.Columns.AutoFit: F.[K2] = ""
'tests OK sur Excel 2013 et Excel 2019
End Sub

2) une copie d'écran qui prouve que le code proposé fonctionne
(ce je savais puisque je l'ai écrit et testé dans ton classeur exemple)

NB: Pour respecter la charte du forum, j'ai masqué les noms qui apparaissent dans ton classeur (car tu ne précises pas si ils sont fictifs ou pas)

(*) le mot débutant n'a rien de péjoratif dans ma prose.
On a tout débuter un jour avec Excel.
Il se trouve juste que moi, c'était en 1992.

Microsoft 365 Sélectionner de cellule avec certains critères

diwanegraf

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Effectuez une recherche sur Excel Downloads...

diwanegraf

XLDnaute Nouveau

Effectuez une recherche sur Excel Downloads...

Staple1600

XLDnaute Barbatruc

diwanegraf

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

diwanegraf

XLDnaute Nouveau

Pièces jointes

diwanegraf

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

diwanegraf

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires