Suppression d'une valeur en fonction de la valeur d'une cellule

Résolu/Fermé
Patrick35 - 21 mai 2021 à 15:10
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 25 mai 2021 à 18:52
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.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
21 mai 2021 à 17:16
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
0
Merci. Cela fonctionne parfaitement.
0
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.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 22 mai 2021 à 16:08
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/
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ci-joint le fichier

https://www.cjoint.com/c/KEzoayzSuW
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
25 mai 2021 à 18:52
Bonjour,



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