Sélection et décaler

Charly2

Nous a quittés en 2006

Repose en paix

• 8 Mars 2006

• #2

Bonjour Bilou,

Tu peux essayer un code de ce genre :

Code:

Sub Selectionne()
'
Dim i&
'
  For i = 1 To Range('K65536').End(xlUp).Row
    If Cells(i, 11) = 'x' Then
      If i > 1 Then
        Range(Cells(i - 1, 11), Cells(i, 11)).EntireRow.Select
      Else
        Cells(i, 11).EntireRow.Select
      End If
      Exit For
    End If
  Next i
End Sub

Tiens-nous au courant

A+

 

Vote positif 0 Vote négatif

B

Bilou

XLDnaute Nouveau

• 8 Mars 2006

• #3

C'est parfait, Charly. Cela fonctionne à merveille.
Par contre, je ne comprends pas la macro, si cela ne t'ennuie pas, peux-tu me dire à quoi correspond le '11' (Cells(i, 11)

Merci encore :kiss: :kiss: :kiss:

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 8 Mars 2006

• #4

Salut,

je me permets:

cells(ligne, colonne) donc cells(i,11) est la 11eme colonne, tandis que 'i' varie

Patrick

 

Vote positif 0 Vote négatif

B

Bilou

Guest

• 9 Mars 2006

• #5

Bonjour à vous
Juste un petit passage pour dire merci à Pat.

Grâce à vous, cette macro me parait beaucoup plus claire.

Amicalement

 

Vote positif 0 Vote négatif

B

Bilou

XLDnaute Nouveau

• 10 Mars 2006

• #6

Bonjour, je rencontre un petit souci avec la macro.

Elle fonctionne très bien, mais sur une seule ligne. Comment faire pour que la macro s'éxécute sur toute la sélection (soit sur la colonne K)

DerLigne = Range('A65536').End(xlUp).Row
Range('K3' & ':K' & DerLigne).Select
... ?
For each, do loop ?
puis la macro de charly

A bientôt

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 10 Mars 2006

• #7

Bonjour Bilou, bonjour Patrick, bonjour à toutes et à tous

Souhaites-tu sélectionner toutes les lignes qui correspondent à ton critère ?

J'attends ta réponse avant de proposer une autre manière de procéder

A+

 

Vote positif 0 Vote négatif

B

Bilou

XLDnaute Nouveau

• 10 Mars 2006

• #8

C'est çà

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 10 Mars 2006

• #9

re,

Alors voici une solution possible à adapter à tes besoins (commentée)

[file name=Bilou_SelectionV2.zip size=9988]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Bilou_SelectionV2.zip[/file]

A+

 

Pièces jointes

• Bilou_SelectionV2.zip

  9.8 KB · Affichages: 25

Vote positif 0 Vote négatif

B

Bilou

XLDnaute Nouveau

• 10 Mars 2006

• #10

que ferais-je sans toi :lol: Je suis ravie.

Merci pour les explications détaillées, cela me permet de comprendre et d'avancer à petit pas. Je vais l'étudier consciemment.

Très bon we à toi, et au Forum.

 

Vote positif 0 Vote négatif