Microsoft 365 sélectionner lignes condition valeur 4

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

LEPATOCHE

XLDnaute Occasionnel
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 .
 
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
VB:
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
 
VB:
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
 
@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)
 
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 !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
232
Réponses
38
Affichages
888
Retour