[VBA-E]Selection d'une ligne a partir d'une certaine colonne

bonjour,
voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim cell as Range Dim numag as String Windows("A.xls").activate For each cell In Selection numag=cell.value 'range(Ex:Lx).select ' <- ici j'aimerais que cela selectionne la ligne de la cellule ou il y a le numag, de la colonne E à la colonne L mais la macro doit trouver le numero de la ligne tte seule (x etant le numero de la ligne) Application.CutCopymode=false Windows("B.xls").activate Cells.find(What:=numag, after:=Activecell, LookIn:=xlFormulas, LookAt _ :=xlpart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).activate 'Range("Mx").Select ' <- ici j'aimerais que cela fasse la selection de la cellule de la ligne ou se trouve le numag de la colonne M (x etant le numero de la ligne) ActiveSheet.paste Next cell

---

MERCI de votre aide!

Hello!
Un .Find te retourne une cellule. Tu peux alors faire un ".Row" pour avoir le numéro de la ligne:

Code:

---

1 2 3 4

NumLigne = Cells.find(What:=numag, after:=Activecell, LookIn:=xlFormulas, LookAt _ :=xlpart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Row

---

Ensuite, remplace ton "'range(Ex:Lx).select " par

Code:

---

1 2	Range(Cells(NumLigne,5),Cells(NumLigne,12)).Select

---

donc si je fais une sélection comme suis ça marchera :

Code:

---

1 2 3 4 5 6 7 8 9

Selection.Find(What:="Portuguese", After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate   i=Selection.row   Rows(i).Select Selection.Delete Shift:=xlUp

---

ça cherche un mot particulier, prend le numéro de la ligne dans i, selectionne la ligne puis l'efface.

Je crois que c'est bon normalement :roll:

Edit: mais on fait comment quand ça retourne rien et que c'est dans une boucle???

Bon, alors c'est quoi, la question, là?
Tu as une erreur si le texte recherché n'est pas trouvé dans l'onglet, c'est ça?
Si c'est ça, tu dois tester (par un If Not ... Is Nothing) le résultat du .Find avant de faire le .Activate .

euh c'est pas vraiment une question,
je m'inspire de la réponse que tu as donné :lol: il me manquait la fonction Row

voilà j'avais fait une petite bourde

Code:

---

1 2 3 4 5 6

i = Cells.Find(What:="Foreign", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row   Rows(i).Select Selection.Delete Shift:=xlUp Range("A1").Select j = j + 1

---

je cherche un mot et récupère la ligne, selectione la ligne, la supprime et en fait il faut la déselectionner après pour continuer la recherche.

C'est artisanal, ça fait très "Macro spirirt" mais ça marche :lol:

D'accord... Alors clique vite sur le bouton :resolu:
Et méfie-toi quand même du cas où "foreign" ne se trouve pas dans ta feuille...

Alors c'est non... Tu ne veux pas cliquer sur ce bouton ?
Si c'est juste pour m'énerver, je te rassure: ça marche!!!
Et ça ne va pas me donner envie de répondre à tes prochaines questions...

Citation:

---

Envoyé par Megaxel

Alors c'est non... Tu ne veux pas cliquer sur ce bouton ?
Si c'est juste pour m'énerver, je te rassure: ça marche!!!
Et ça ne va pas me donner envie de répondre à tes prochaines questions...

---

ya des ingrats hein !

Ouais, mais moi, je me classe dans les "rancuniers" !!
:evil:

ah désolé ce n'est pas moi qui avais ouvert le topic, je peux donc pas mettre :resolu:

(J'ai trouvé le cas où j'ai besoin du if not ... is nothing à cause d'une erreur 91)

t'inquiètes, tu assures megaxel :bravo: