RESOLU - Macro sélection lignes

C

Compte Supprimé 979

Guest

• 1 Septembre 2015

• #2

Re : Macro sélection lignes

Bonjour Arthour973

Voici un code facile à comprendre 😉

Code:

Sub Selection1()
  Dim Lig As Long, LigDeb As Long, LigFin As Long
  Dim ListeLig As String
  ' Avec la feuille nommée
  With Sheets("Feuil1")
    LigDeb = .Range("I1").End(xlDown).Row
    LigFin = .Range("I" & Rows.Count).End(xlUp).Row
    ' Si problème de ligne on sort
    If LigDeb > LigFin Then Exit Sub
    ' sinon, on enregistre les ligne à sélectionner
    ' méthode simple pour les novices ;-)
    For Lig = LigDeb To LigFin
      If .Range("I" & Lig) = 1 Then
        ListeLig = ListeLig & Lig & ":" & Lig & ","
      End If
    Next Lig
    ' Supprimer la dernière virgule
    ListeLig = Left(ListeLig, Len(ListeLig) - 1)
    ' Sélection des lignes
    .Range(ListeLig).Select
  End With
End Sub

A+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 1 Septembre 2015

• #3

Re : Macro sélection lignes

Bonjour arthour,

voir fichier joint

à+
Philippe

Edit: Bonjour Bruno

 

Pièces jointes

• 111.xlsm

  18.3 KB · Affichages: 40
• 111.xlsm

  18.3 KB · Affichages: 37

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 1 Septembre 2015

• #4

Re : Macro sélection lignes

Bonjour à tous,

et un simple filtre dans la feuille et sans vba ne te convient pas ?

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 1 Septembre 2015

• #5

Re : Macro sélection lignes

Bonjour Gosseline,

gosselien à dit:

Bonjour à tous,
et un simple filtre dans la feuille et sans vba ne te convient pas ?

Cliquez pour agrandir...

Effectivement, très bonne question 😉
Pourquoi faire simple quand on peut faire compliquer 😱

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Septembre 2015

• #6

Re : Macro sélection lignes

Bonjour Bruno M,

Que j'aimerai savoir faire tout ça ...... Merci pour cette rapide solution qui fonctionne à Merveille ... et effectivement, pas trop difficile à comprendre pour moi LOL
Merci,
Bonne journée,
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Septembre 2015

• #7

Re : Macro sélection lignes

Bonjour "gosselien",

Merci de m'avoir répondu.
Je préfère le code de Bruno LOL,
Encore Merci, à tous,
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Septembre 2015

• #8

Re : Macro sélection lignes

Bonjour PhLaurent,

Merci pour tout ça, vous êtes super.
Super aussi ton code et la possibilité de sélectionner en tout ou partie les lignes.
Grand Merci à vous tous,
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 1 Septembre 2015

• #9

Re : Macro sélection lignes

BrunoM45 à dit:

Bonjour Gosseline,


Effectivement, très bonne question 😉
Pourquoi faire simple quand on peut faire compliquer 😱

Cliquez pour agrandir...

Je parle de filtre ou parfois de TCD car je pense que c'est plus simple à comprendre que le vba, que je pratique un peu mais loin du niveau de certains ici; je me dis que pour appliquer plus tard, il n'est pas certain que les codes VBA soient encore applicables et compris par l'utilisateur final 🙂
Mais j'adore le VBA hein 😀

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Septembre 2015

• #10

Re : RESOLU - Macro sélection lignes

Re-bonjour,

Je viens de m'apercevoir qu'avec vos macros, vous venez de me rendre un très grand service.
En effet, pour d'autres actions, j'étais passé par des macros que j'avais créé selon mes maigres connaissances = bidouillage.

Ces macros que je vais pouvoir remplacer en adaptant les vôtres vont me faire gagner énormément en rapidité d'exécution et en taille de mes classeurs.

Je vous remercie.
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif