XL 2016 Code VBA pour selectionner une ou plusieurs lignes en fonction du contenue (chaine de caractère) d'une cellule

Jerome-lost · 17 Novembre 2022

Bonjour à tous,

Je tente de modifier sans grand succès un script vba pour que celui ci sélectionne les lignes en fonction du contenu d'une cellule (colonne B).
Ex: si la cellule B2 et/ou B6 contiennent "personnels de soins" ou "personnels de direction", la colonne 2 et/ou 6 sont sélectionnées.
A l'heure actuelle j'arrive juste à sélectionner toutes les lignes de la feuille
Je vous remercie pour le temps que vous voudrez bien passer sur mon probleme

Dim A As String
For Each cell In Range("B:B")
If cell.Value = "PERSONNELS DE DIRECTION ET PERSONNELS ADMINISTRATIFS" Then
A = cell.Row
End If

Next cell

End Sub

fanfan38 · 17 Novembre 2022

Bonjour
Un fichier est TOUJOURS le bienvenu
cell.select (ou a=cell)
devrait résoudre ton problème
A+ François

vgendron · 17 Novembre 2022

Bonjour

en appliquant un filtre, puis un specialcells(xlcelltypevisible).select
mais comme le dit @fanfan38 (que je salue), un fichier exemple est plus pratique pour te proposer une solution adaptée

Jerome-lost · 17 Novembre 2022

je vous fais parvenir le tableau en question.
En fait, les lignes à sélectionner sont les lignes 14, 15, 26, 49, 56, 64, 78 à partir du contenu des cellules de ces mêmes lignes en colonne B
Existe t'il un moyen pour ne tenir compte que d'une partie de la chaine de caractère de ces cellules ex: "PERSONNELS" afin de simplifier la macro ?

vgendron · 17 Novembre 2022

en PJ ton fichier avec une macro

comme tu ne précises pas ce que tu souhaites faire une fois les lignes selectionnées, je les copie dans la feuille 1
va voir le code, je l'ai commenté pour expliquer

Jerome-lost · 17 Novembre 2022

vgendron à dit:
en PJ ton fichier avec une macro

comme tu ne précises pas ce que tu souhaites faire une fois les lignes selectionnées, je les copie dans la feuille 1
va voir le code, je l'ai commenté pour expliquer

Merci Vgendron pour ton retour et surtout d'avoir explicité ton code , cependant ces lignes n'ont pas vocation à étre déplacées mais mis en forme dans le tableau d'origine (agrandissement de la taille des lignes "30" et mise en gras du contenu de la ligne ), aussi les tris automatiques ne sont pas utiles.

@ Fanfan 38, ta piste était bonne mais avec cell.select je n'arrive qu'à sélectionner la cellule disposant du contenu considéré à savoir ""PERSONNELS DE DIRECTION ET PERSONNELS ADMINISTRATIFS" et non pas sa ligne

vgendron · 17 Novembre 2022

dans ce cas. il suffit d'ajouter quelques lignes de codes

VB:

Sub Macro1()
With ActiveSheet
    .AutoFilterMode = False 'désactive le filtre auto
    LastLine = .UsedRange.Rows.Count 'dernière ligne utilisée dans la feuille
    Set ZoneToFilter = .Range("B13:U" & LastLine) 'on affecte la zone à filtrer à une variable
    
    ZoneToFilter.AutoFilter Field:=1, Criteria1:="=*Personnels*", Operator:=xlOr 'on applique le filtre
    ZoneToFilter.SpecialCells(xlCellTypeVisible).Select 'on selectionne les lignes filtrées
    Selection.RowHeight = 50 'hauteur des lignes
    Selection.Font.Bold = True 'mise en gras
    .AutoFilterMode = False 'desactive les filtres
End With
End Sub

fanfan38 · 17 Novembre 2022

cell.entirerow.select

A+ François

Jerome-lost · 17 Novembre 2022

vgendron à dit:

dans ce cas. il suffit d'ajouter quelques lignes de codes

VB:

Sub Macro1()
With ActiveSheet
    .AutoFilterMode = False 'désactive le filtre auto
    LastLine = .UsedRange.Rows.Count 'dernière ligne utilisée dans la feuille
    Set ZoneToFilter = .Range("B13:U" & LastLine) 'on affecte la zone à filtrer à une variable
   
    ZoneToFilter.AutoFilter Field:=1, Criteria1:="=*Personnels*", Operator:=xlOr 'on applique le filtre
    ZoneToFilter.SpecialCells(xlCellTypeVisible).Select 'on selectionne les lignes filtrées
    Selection.RowHeight = 50 'hauteur des lignes
    Selection.Font.Bold = True 'mise en gras
    .AutoFilterMode = False 'desactive les filtres
End With
End Sub

Ta macro est redoutablement efficace , mais elle semble présenter une limite liée à la taille et à l'emplacement du tableau dans la feuille. Si le tableau venait à s'enrichir de nouvelles colonnes , il faudrait alors retoucher la macro ...

Autre petite question, si je souhaitais sélectionner dans mon tableau d'autres lignes qui ne disposent pas de "personnels" dans le libellé ex: PM, comment devrais je procéder ?

Mika2705 · 26 Octobre 2023

Bonjour,
Je reviens sur ce sujet car j'ai essayé ce script qui fonctionne bien mais qui ne sélectionne que la première cellule de la colonne, existe-t-il une commande équivalente à :
ZoneToFilter.SpecialCells(x1CellTypeVisible).Select
mais qui sélectionne toute la(les) ligne(s) ?
Merci pour votre aide.

XL 2016 Code VBA pour selectionner une ou plusieurs lignes en fonction du contenue (chaine de caractère) d'une cellule

Jerome-lost

XLDnaute Nouveau

fanfan38

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Jerome-lost

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

Pièces jointes

Jerome-lost

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

fanfan38

XLDnaute Barbatruc

Jerome-lost

XLDnaute Nouveau

Mika2705

XLDnaute Nouveau

Discussions similaires