RESOLU - Macro sélection lignes

[Usine à gaz]

Bonjour à toutes et à tous,

Je bute sur une macro et malgré mes recherches, pas moyens de trouver la solution.

Pour une autre action qui en découlera, j'ai besoin de sélectionner toutes les lignes de ma feuille qui contiennent la valeur 1 colonne I

Dans le classeur joint, j'ai mis quelques exemples de ce que j'ai essayé d'utiliser (j'en ai essayé bien plus LOL) sans résultat.

Pourriez-vous m'aider ?

Avec mes remerciements,
Je vous souhaite à toutes et à tous, une bonne journée,
Amicalement,
Lionel,

 

[Compte Supprimé 979]

Re : Macro sélection lignes

Bonjour Arthour973

Voici un code facile à comprendre 😉

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+

 

[phlaurent55]

Re : Macro sélection lignes

Bonjour arthour,

voir fichier joint

à+
Philippe

Edit: Bonjour Bruno

 

[gosselien]

Re : Macro sélection lignes

Bonjour à tous,

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

 

[Compte Supprimé 979]

Re : Macro sélection lignes

Bonjour Gosseline,

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

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

 

[Usine à gaz]

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,

 

[Usine à gaz]

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,

 

[Usine à gaz]

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,

 

[gosselien]

Re : Macro sélection lignes

Bonjour Gosseline,


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

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 😀

 

[Usine à gaz]

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,