suppression d'une valeur en fonction de la valeur d'une cellule Résolu

Question

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

Patrick35 · Answer

Le  message   reçu est  vide.

f894009 · Answer

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

Patrick35 · Answer

Merci.    Cela  fonctionne  parfaitement.

Patrick35 · Answer

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.

Patrick35 · Answer

ci-joint  le  fichier

 https://www.cjoint.com/c/KEzoayzSuW

f894009 · Answer

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

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

6 réponses

Discussions similaires

Newsletters