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

**deathsurfer** · 05/01/2006, 15h27

bonjour,
voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

**Megaxel** · 05/01/2006, 16h14

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Yanos** · 05/04/2006, 11h33

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

**Megaxel** · 05/04/2006, 12h23

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 .

**Yanos** · 05/04/2006, 12h29

euh c'est pas vraiment une question,
je m'inspire de la réponse que tu as donné

il me manquait la fonction Row

voilà j'avais fait une petite bourde

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Megaxel** · 05/04/2006, 12h34

D'accord... Alors clique vite sur le bouton

Et méfie-toi quand même du cas où "foreign" ne se trouve pas dans ta feuille...

**Megaxel** · 06/04/2006, 17h34

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...

**random** · 06/04/2006, 17h46

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 !