Selection plage cellule

[Jeanne]

Bonjour,

Je me positionne sur une cellule par recherche d'un texte particulier.
Je souhaite sélectionner toutes les lignes des colonnes A à D se situant sous la ligne contenant le texte y compris la ligne en question mais je ne sais pas à l'avance où se trouve ma ligne ni combien le tableau contient de lignes.
Je souhaite supprimer ces lignes après les avoir copier à un autre endroit.

Merci d'avance
Jeanne

 

[dg62]

Re : Selection plage cellule

re

a partir de la macro de ce matin, un exemple

Sub cherche()
Dim mot As String
Dim c As Range
mot = InputBox("Mot à trouver")
For Each c In Range("B2:B" & Range("B65536").End(xlUp).Row)
If c.Value = mot Then
c.Offset(0, 1).Select ' effectue le décalage souhaité

lig = c.Row
End If
Next c


Range("A" & lig & ":B" & Range("B65536").End(xlUp).Row).Delete



End Sub

 

[Jeanne]

Re : Selection plage cellule

bonsoir,

Merci beaucoup
Jeanne

 

[myDearFriend!]

Re : Selection plage cellule

Bonsoir Jeanne, Dg62,

Je me positionne sur une cellule par recherche d'un texte particulier.
Je souhaite sélectionner toutes les lignes des colonnes A à D se situant sous la ligne contenant le texte y compris la ligne en question mais je ne sais pas à l'avance où se trouve ma ligne ni combien le tableau contient de lignes.
Je souhaite supprimer ces lignes après les avoir copier à un autre endroit.

Une autre possibilité :

[SIZE=2]Sub Deplacer()
[COLOR=navy]Dim [/COLOR]LeMot[COLOR=navy] As String[/COLOR]
    LeMot = Application.[COLOR=navy]Input[/COLOR]Box("Mot à trouver", "Quel mot ?", [COLOR=navy]Type[/COLOR]:=2)
    [COLOR=navy]If [/COLOR]LeMot <> "Faux" And LeMot <> "" [COLOR=navy]Then[/COLOR]
        [COLOR=navy]On Error Resume Next[/COLOR]
        [COLOR=navy]With[/COLOR] Sheets(1).UsedRange
            Application.Intersect(.Range("A:D"), .Rows(.Find(LeMot).Row & ":65536")).Cut _
                Destination:=Sheets(2).Range("A1")
        [COLOR=navy]End With[/COLOR]
    [COLOR=navy]End If
End[/COLOR] Sub[/SIZE]

La plage "cible" sera coupée et collée en feuille 2.

Cordialement,