selection plage active par macro

Bonjour Fred,

Tu peux peut-être essayer comme ça :

Sub JeSelectionne()
Dim MesLignes As String
Dim i As Byte, NombreLignes As Byte
      i = 1
      NombreLignes = 20
      While i <= NombreLignes
            If Cells(i, 1) = 2 Then
                  MesLignes = MesLignes & i & ':' & i & ','
            End If
            i = i + 1
      Wend
      MesLignes = Left(MesLignes, Len(MesLignes) - 1)
     
      With ActiveSheet
            Application.Intersect(.Range(MesLignes), .UsedRange).Select
      End With
End Sub

Cliquez pour agrandir...

Cordialement,

Salut vatounet

peux tu donner les limites de ton tableau

sinon un exemple
Sub JeSelectionne()
i = 1
NombreLignes = 20
While i < NombreLignes + 1
If Cells(i, 1) = 2 Then
MesLignes = MesLignes & 'A' & i & ':' & 'F' & i & ','
End If
i = i + 1
Wend

MesLignes = Left(MesLignes, Len(MesLignes) - 1)

ActiveSheet.Range(MesLignes).Select

End Sub
si le tableau à pour limites les colonnes A et F

Salut,

Merci Didier et merci Jean-marie

J'ai donc essayé la solution :

With ActiveSheet
Application.Intersect(.Range(MesLignes), .UsedRange).Select
End With

Qui marche parfaitement et j'ai essayé la solution :

MesLignes = MesLignes & 'colonneX' & i & ':' & 'colonneY' & i & ','

qui marche aussi très bien.

Donc merci à vous deux

A+

Fred

Salut vatounet
bonjour le Forum
comment je n'ai pas vu mon ami Didier
je ne comprends pas !!!! donc Didier je te Salue

Content Vatounet d'avoir pu t'être utile et deux pour même pas le prix d'un Lol

bonne Journée

Re : selection plage active par macro

Bonsoir

je reprends ce fil de 2005....car en utilisant la macro en question dans une situation différente ça plante...
J'explique
DAns cette macro qui permet la sélection de lignes en fonction de la valeur de la premiere colonne d'un tableau, la variable NombreLignes (en orange) ici = 20 peut à priori être n ...(j'ai une feuille qui comporte 40000 lignes dont certaines valeurs de la première colonne sont répétées plus de 100 fois, or quand le nb de lignes sélectionnée est supérieur à 32 ça bloque sur le select...

Excel bloque t'il le nb de lignes...

Merci de votre aide ... et si ChTi160; myDearFriend! ou Vatounet sont là ils se rappeleront peut être de ce fil

A+
Jipi06

Sub JeSelectionne()
i = 1
NombreLignes = 20
While i < NombreLignes + 1
If Cells(i, 1) = 2 Then
MesLignes = MesLignes & i & ':' & i & ','
End If
i = i + 1
Wend
MesLignes = Left(MesLignes, Len(MesLignes) - 1)
ActiveSheet.Range(MesLignes).Select
End Sub