Suppression d'une valeur en fonction de la valeur d'une cellule [Résolu]

Signaler
-
Messages postés
15804
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
9 juin 2021
-
Bonjour,

Je souhaiterais inclure dans une macro la fonctionnalité suivante :

si dans la plage A1:D10 figure une valeur égale à celle de la cellule
F5, alors il est appliqué supprim à la fois sur F5 et sur la cellule concernée de la plage A1:D10.

Merci de votre aide.

René



Configuration: Windows / Firefox 88.0

6 réponses

Le message reçu est vide.
Messages postés
15804
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
9 juin 2021
1 501
Bonjour,

Le message reçu est vide.
A priori, vous n'avez pas eu de message cote CCM!

une facon de faire
Sub test1()
    Dim Plage As Range
    
    With Worksheets("feuil1")
        Set Plage = .Range("A1:D10")
        Set Cel = Plage.Find(.Range("F5"))
        If Not Cel Is Nothing Then
            .Range(Cel.Address) = ""
            .Range("F5") = ""
        Else
            MsgBox "Pas de correspondance!!"
        End If
    End With
    Set Plage = Nothing
    Set Cel = Nothing
End Sub
Merci. Cela fonctionne parfaitement.
A l'usage un problème est apparu.
Exemple :
- si dans la liste à tester figurent le 4 puis le 41 ces deux numéros peuvent être éliminés sans erreur
- si dans la liste à tester figurent le 41 puis le 4, l'élimination du 4 produit celle du 41.
Messages postés
15804
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
9 juin 2021
1 501
Re,
Comment est déclancher le code?

Pouvez mettre votre fichier a dispo?

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ou
'mon partage
https://mon-partage.fr/
ci-joint le fichier

https://www.cjoint.com/c/KEzoayzSuW
Messages postés
15804
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
9 juin 2021
1 501
Bonjour,



Pouvez remettre votre fichier a dispo sans mettre de delai inferieur a deux jours