Selection plage cellule

Jeanne · 27 Juillet 2006

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 · 27 Juillet 2006

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 · 29 Juillet 2006

Re : Selection plage cellule

bonsoir,

Merci beaucoup
Jeanne

myDearFriend! · 30 Juillet 2006

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é :

Code:

[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,

Selection plage cellule

Jeanne

Guest

dg62

XLDnaute Barbatruc

Jeanne

Guest

myDearFriend!

XLDnaute Barbatruc

Discussions similaires

Selection plage cellule

Jeanne

Guest

dg62

XLDnaute Barbatruc

Jeanne

Guest

myDearFriend!

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency