Microsoft 365 sélection particulière

Usine à gaz · 26 Juin 2021

Bonjour à toutes et à tous,
Je vous souhaite une beau WE

Je n'arrive à coder une sélection de cellules malgré mes tests et je n'ai rien trouvé sur le net qui corresponde à mon besoin.
Mon besoin : Sélectionner les cellules de F2 à H jusqu'à dernière ligne si la cellule en "I" contient le mot "libre"

Auriez-vous le bon code ?
En cas, je joins un p'tit fichier test,

Je vous remercie humblement,
Amicalement,
lionel,

job75 · 26 Juin 2021

Bonjour Lionel, djidji59430,

La macro affectée au bouton :

VB:

Sub Selec()
If Application.CountIf([I:I], "libre") = 0 Then Exit Sub
Application.ScreenUpdating = False
[I:I].Replace "libre", "#N/A", xlWhole
Intersect([F:H], [I:I].SpecialCells(xlCellTypeConstants, 16).EntireRow).Select
[I:I].Replace "#N/A", "libre"
End Sub

A+

djidji59430 · 26 Juin 2021

Bonjour à tous,
avec une formule, je suis nul en VBA

job75 · 26 Juin 2021

Bonjour Lionel, djidji59430,

La macro affectée au bouton :

VB:

Sub Selec()
If Application.CountIf([I:I], "libre") = 0 Then Exit Sub
Application.ScreenUpdating = False
[I:I].Replace "libre", "#N/A", xlWhole
Intersect([F:H], [I:I].SpecialCells(xlCellTypeConstants, 16).EntireRow).Select
[I:I].Replace "#N/A", "libre"
End Sub

A+

Usine à gaz · 26 Juin 2021

Bonjour djidji59430,

J'espère que tu vas bien et je te remercie pour ta formule,
Elle est très bien et je vais la garder pour un autre application.

Pour ma demande présente, j'ai besoin d'une sélection par code vba car c'est pour l'inclure dans un autre code lol
"Usine à gaz" oblige

mais un grand merci car ta formule me sera utile,
lionel,

fanch55 · 26 Juin 2021

Salut Lionel,
En présumant que les lignes sont déjà triées comme tu les as présentées :

VB:

Sub Test()
Dim R As Range
    With Range("I2:I19")
       Set R = .Find("libre", SearchDirection:=xlPrevious)
       If Not R Is Nothing Then
           lr = R.Row
           Set R = .FindNext(R): ld = R.Row
           Range("F" & lr & ":H" & ld).Select
       End If
    End With
End Sub

Usine à gaz · 26 Juin 2021

job75 à dit:

Bonjour Lionel,

La macro affectée au bouton :

VB:

Sub Selec()
If Application.CountIf([I:I], "libre") = 0 Then Exit Sub
Application.ScreenUpdating = False
[I:I].Replace "libre", "#N/A", xlWhole
Intersect([F:H], [I:I].SpecialCells(xlCellTypeConstants, 16).EntireRow).Select
[I:I].Replace "#N/A", "libre"
End Sub

A+

Bonjour Gérard,
Comme toujours PRESTO - PREAVVISO - EFFICIENTE et j'en passe lool
Nickel,
Merci à toi
lionel,

Usine à gaz · 26 Juin 2021

Bonjour fanch55,
Merci à toi aussi d'être là,
ça fonctionne également très bien.
Je te remercie
lionel,

Microsoft 365 sélection particulière

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

job75

djidji59430

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires