Effacer données dans un onglet en fonction d'un autre onglet

galileorock · 20 Mai 2014

bsr ts le monde

je suis a la recherche d'une macro ou formule qui effacerait des cellules dans un onglet en fonction d'un critrere qui se trouve ds un autre onglet.

ds le fichier joint ds l'onglet A les données (qui ne doivent pas etre touché) et ds cet onglet en colonne C il y a une donnée noté NP,je voudrais que ds l'onglet B en colonne M la cellule qui contient ce NP soit vide (attention en colonne M les données copier via formules)

merci d'avance

Paf · 20 Mai 2014

Re : Effacer données dans un onglet en fonction d'un autre onglet

bonjour

peut-être, en feuille B colonne M, en M3 : =SI(A3="";"";SI(A!C2<>"NP";A!C2;""))

A+

Robert · 20 Mai 2014

Re : Effacer données dans un onglet en fonction d'un autre onglet

Bonsoir Galileo, bonsoir le forum,

Peut-être avec cette formule en N3 : =SI(OU(A3="";M3="NP");"";A!C2) à tirer vers le bas...

[Édition]
Bonsoir Paf on s'est croisé...

galileorock · 20 Mai 2014

Re : Effacer données dans un onglet en fonction d'un autre onglet

merci cela marcherais si je n'avais d'autre formule derriere ,moi ce qui me faudrait c'est que la cellule soit vide sans aucune formule
c'est pour ca qu'au debut j'avais mis macro mais merci qd meme

Robert · 21 Mai 2014

Re : Effacer données dans un onglet en fonction d'un autre onglet

bonjour le fil, bonjour le forum,

Alors peut-être comme ça avec la macro événementielle Calculate dans l'onglet B :

Code:

Private Sub Worksheet_Calculate()
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim CEL As Range 'déclare la variable CEL (CEllule)

DL = Cells(Application.Rows.Count, 13).End(xlUp).Row 'défini la dernière ligne éditée de la colonne 13 (=M) de l'onglet
Set PL = Range("M3:M" & DL) 'définit la plage PL
For Each CEL In PL 'boucle sur toutes les cellules CEL de la plage PL
    If CEL.Value = "NP" Then CEL.Offset(0, 1).ClearContents 'si la cellule est égale à "NP" efface le contenu de la cellule colonne décalé de 1 vers la droite (=N)
Next CEL 'prochaine cellule de la boucle
End Sub

Le fichier :

Effacer données dans un onglet en fonction d'un autre onglet

galileorock

XLDnaute Junior

Pièces jointes

Paf

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

galileorock

XLDnaute Junior

Robert

XLDnaute Barbatruc

Pièces jointes

Discussions similaires