Sélection et décaler

[Bilou]

Bonjour Forum,

Je fais appel aux VBAtisites,

Comment faire pour :

Si la colonne K, contient 'x', alors sélectionner la ligne entière et celle du dessus ?

C'est certainement très simple pour vous, mais pour moi,
Merci pour votre aide.

 

[Charly2]

Bonjour Bilou,

Tu peux essayer un code de ce genre :

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+

 

[Bilou]

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:

 

[pat1545.]

Salut,

je me permets:

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

Patrick

 

[Bilou]

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

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

Amicalement

 

[Bilou]

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

 

[Charly2]

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+

 

[Bilou]

C'est çà

 

[Charly2]

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+

 

[Bilou]

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.