Microsoft 365 sélectionner lignes condition valeur 4

[LEPATOCHE]

Bonjour le forum

voici ma question j'ai dans ma colonne A des chiffres qui vont de 0 a 4 !
moi ce que je voudrai c'est une macro rien d'autre , qui sélectionnes toutes les lignes qui ont le chiffre 4 et
voila ! merci de votre aide !
bon weekend .

 

[vgendron]

Bonjour

une question.. les sélectionner.. pour en faire quoi derrière?
tu veux selectioner les cellules de la colonne A qui ont un 4 ou les lignes entières pour lesquelles la colonne A à 4 ?

en colonne A.. tu as combien de lignes remplies??

 

[LEPATOCHE]

je veus selectionner toutes les lignes entiere qui ont le chiffre 4 uniquement pour le reste c'est priver
encore merci de votre aide ! j'ai aux maximum 6500 lignes de remplis !

 

[vgendron]

euh.. c'est privé.. ca n'empeche pas de fournir un fichier exemple avec des données bidons
et dire ce que tu fais d'une selection, ca ne relève pas d'un secret défense...

maintenant voila une macro. et rien d'autre

Sub selectionner(target As Range, Num As Integer)
Dim zoneToSelect As Range
    For Each cell In target
        If cell = Num Then
            If zoneToSelect Is Nothing Then
                Set zoneToSelect = cell
            Else
                Set zoneToSelect = Union(zoneToSelect, cell)
            End If
            
        End If
    Next cell
    zoneToSelect.Select
End Sub

Sub test()
    Call selectionner(Range("A1:A30"), 1)
End Sub

 

[LEPATOCHE]

merci vgendron ça marche a merveille en fin de compte ce n'ai pas priver
une fois toutes les lignes sélectionner c'était pour les effacer encore merci a vous !

 

[TooFatBoy]

bonjour
A oui ces importants de sélectionnés àvant d'effaçaient...

 

[vgendron]

bonjour
A oui ces importants de sélectionnés àvant d'effaçaient...

Hello Toofat
oui mais tu comprends.. effacer des données.. c'est de l'ordre du privé.

 

[LEPATOCHE]

je reviens vers vous çà ne marche pas je le croyais ! il faut impérativement que
çà sélectionne la ligne entière de chaque lignes a chaque fois quand il y a le chiffre 4 de la colonne A
encore merci d'avance !

 

[LEPATOCHE]

je vous joins un fichier

 

[TooFatBoy]

je reviens vers vous çà ne marche pas je le croyais ! il faut impérativement que

effectivemmant.

çà sélectionne la ligne entière de chaque lignes a chaque fois quand il y a le chiffre 4 de la colonne A

mois n'ont plu.

 

[TooFatBoy]

Sub selectionner()
'
Dim zoneToSelect As Range

    For Each cell In Range("A:A")
        If cell = 4 Then
            If zoneToSelect Is Nothing Then
                Set zoneToSelect = cell.EntireRow
            Else
                Set zoneToSelect = Union(zoneToSelect, cell.EntireRow)
            End If
        End If
    Next cell
    zoneToSelect.Select

End Sub

 

[vgendron]

@toofat
tu peux mettre le entirerow juste à la fin
zoneToSelect.EntireRow.select

et puisque la finalité est d'effacer les lignes
zoneToSelect.EntireRow.clearcontents

@LEPATOCHE
dans ton fichier.. avec ma macro (enfin.. une partie)
tu m'expliques comment tu appelles la macro? avec quels arguments??
après plus de 300 messages sur ce forum, on pourrait espérer que tu essaies de comprendre un minimum ce qu'on te propose et pas juste un copier coller (incomplet)

 

[TooFatBoy]

et puisque la finalité est d'effacer les lignes
zoneToSelect.EntireRow.clearcontents

Ah non :

Microsoft 365 - sélectionner lignes condition valeur 4

Bonjour le forum voici ma question j'ai dans ma colonne A des chiffres qui vont de 0 a 4 ! moi ce que je voudrai c'est une macro rien d'autre , qui sélectionnes toutes les lignes qui ont le chiffre 4 et voila ! merci de votre aide ! bon weekend .

excel-downloads.com

 

[TooFatBoy]

@toofat
tu peux mettre le entirerow juste à la fin
zoneToSelect.EntireRow.select

Merci pour l'info car j'avoue que je ne savais pas.

 

[LEPATOCHE]

Bonjour TooFatBoy , j'ai testé ta macro 3 ou 4 fois enfin bref ,
et bien bravo cela marche c'est exactement cela que je voulais encore mille merci !
excusez moi encore mais je n'ai pas du tout réussi a l'école c'est
normal que j'ai du mal a m'exprimer mais bon pas grave du tout
tout les chemins méne a Rome !
bonne soirée a vous tous !