Sélection d'une plage de cellules

[Cougar]

Bonsoir,

Comment écrire un code qui sélectionnera une plage de cellules ? Je m'explique. Je fais une recherche dans la colonne D, si le contenu de la cellule en D (exemple en D17) = ma recherche, je sélectionne A1 jusqu'à D17.

Merci de votre aide

 

[tirex28]

Re : Sélection d'une plage de cellules

Bonjour,

Sub test()
    Dim MaCellule As Range
    On Error Resume Next
    Set MaCellule = Range("D:D").Find(what:="ValeurCherchée", _
            LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True)
    Range(Range("A1"), MaCellule).Select
    If Err.Number > 0 Then MsgBox "Recherche infructueuse"
    On Error GoTo 0
End Sub

Adapter les parametres de Find.

Cordialement,

Tirex28

 

[Pierrot93]

Re : Sélection d'une plage de cellules

Bonjour Cougar, Tirex

une autre solution sans utiliser le "On error resume next" :

Sub test()
Dim MaCellule As Range
Set MaCellule = Range("D:D").Find(what:="ValeurCherchée", _
    LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True)
If Not MaCellule Is Nothing Then
    Range(Range("A1"), MaCellule).Select
Else
    MsgBox "Recherche infructueuse"
End If
End Sub

bonne journée
@+

 

[tirex28]

Re : Sélection d'une plage de cellules

Bonjour,

En effet dans le cas present On Error Resume Next est superflu, mais j'ai tellement été ennuyé par Find que c'est devenu un réflexe...

Bonne journée,

Tirex28

 

[Cougar]

Re : Sélection d'une plage de cellules

Bonjour à vous deux, le groupe,

Merci pour vos solutions.