Effacement de lignes

cbea

XLDnaute Impliqué

• 11 Mai 2008

• #2

Re : Effacement de lignes

Bonjour vedene,

Pourrais-tu mettre un exemple dans un fichier ?

Merci

 

Vote positif 0 Vote négatif

V

vedene

XLDnaute Nouveau

• 11 Mai 2008

• #3

Re : Effacement de lignes

Re,

Je vais essayer de joindre un exemple
Dites moi si vous pouvez l'exploiter

Merci beaucoup

 

Pièces jointes

• effacement.xls

  17 KB · Affichages: 55
• effacement.xls

  17 KB · Affichages: 44
• effacement.xls

  17 KB · Affichages: 43

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Mai 2008

• #4

Re : Effacement de lignes

Bonjour à tous,

Une solution par application d'une mise en forme conditionnelle

A+

 

Pièces jointes

• effacement V1.zip

  2.6 KB · Affichages: 34

Vote positif 0 Vote négatif

cbea

XLDnaute Impliqué

• 11 Mai 2008

• #5

Re : Effacement de lignes

re,

Voici une solution.
J'ai mis du code VBA dans la feuille Feuil1.

 

Pièces jointes

• effacement_v1.xls

  22.5 KB · Affichages: 56

Vote positif 0 Vote négatif

V

vedene

XLDnaute Nouveau

• 11 Mai 2008

• #6

Re : Effacement de lignes

Merci cbea,

C'est ce que je voudrais faire, mais ce VBA efface aussi la formule dans les cellules de la colonne "action". Dommage

Mais on en est pas loin

Merci aussi à JCGL pour son astuce, c'est pas mal

 

Dernière édition: 11 Mai 2008

Vote positif 0 Vote négatif

J

jmd2

XLDnaute Accro

• 11 Mai 2008

• #7

Re : Effacement de lignes

hello

une proposition "décalée" genre gestion de bases de données :
ne pas effacer de données
travailler sur 2 zones ou 2 feuilles, un pour créer les novelles données, la seconde lièe à la permière
la seconde possédant un filtrage sur une colonne "masquer" (dans laquelle on inscrit 1 pour signifer "à masquer")

 

Vote positif 0 Vote négatif

V

vedene

XLDnaute Nouveau

• 11 Mai 2008

• #8

Re : Effacement de lignes

Pour jmd2,

merci pour ton aide, mais cela doit être le soleil ici en provence, je n'ai pas tout a fait compris. Un exemple peut être?

merci beaucoup à tous encore

 

Vote positif 0 Vote négatif

cbea

XLDnaute Impliqué

• 11 Mai 2008

• #9

Re : Effacement de lignes

Bonjour à tous,

Voici une nouvelle version :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    
    ' Si la colonne = B, Ligne >=6 et valeur de la cellule = ""
    ' Effacer la ligne
    If Target.Column = 2 And Target.Row >= 6 And Target.Value = "" Then
        Range("C" & Target.Row).Value = ""
        Range("E" & Target.Row).Value = ""
    End If
End Sub

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 11 Mai 2008

• #10

Re : Effacement de lignes

Bonjour,
Essaies ce code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 6 Then
If Target.Value = "" Then
Target.Offset(0, 1).Value = ""
Target.Offset(0, 3).Value = ""
End If
End If
End Sub
Par contre, il faut modifier tes listes de validation en cochant pour chacune d'elles la case "ignorer si vide"
A+
kjin

 

Vote positif 0 Vote négatif

V

vedene

XLDnaute Nouveau

• 11 Mai 2008

• #11

Re : Effacement de lignes

Re,
Merci kjin, C'est parfait comme cela

J'avais moi bricolé un truc du genre :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

' Si la colonne = B, Ligne >=6 et valeur de la cellule = ""
' Effacer la ligne
If Target.Column = 2 And Target.Row >= 6 And Target.Value = "" Then
Range("C" & Target.Row & ":E" & Target.Row).ClearContents
End If
' formule sauvegarder en "D2"
' copier et coller dans la plage "d6:d14"
Range("D2").Select
Selection.Copy
Range("D614").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
End Sub
​

Le smiley dans "Range" sont en fait ":" Bizarre.

Affaire résolue. Au fait comment signaler "résolu"

Merci à tous

 

Vote positif 0 Vote négatif

J

jmd2

XLDnaute Accro

• 11 Mai 2008

• #12

Re : Effacement de lignes

re

http://www.uploading.com/files/Y2KD15BX/toto22.xls.html

(attendre 15 secondes de pub pour voir le clic "download")

feuille1 :les données
feuille2 : plage de données "importées" de la feuille 1, mises à jour = 1 minute ou à l'ouverture
et avec les filtres delon la colonne avec les 1

(rem : déjà sur la feuille 1 on peut filtrer, est-ce que la feuille 1 suffirait ?)

 

Dernière édition: 11 Mai 2008

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 11 Mai 2008

• #13

Re : Effacement de lignes

Re,
Dernière discussion connue sur la question subsidiaire
https://www.excel-downloads.com/threads/ajouter-au-sujets-resolus-un-commentaire.85502/
A+
kjin

 

Vote positif 0 Vote négatif

V

vedene

XLDnaute Nouveau

• 11 Mai 2008

• #14

Re : Effacement de lignes

Docteur kjin,

Pas moyen de voir ou cocher "résolu" je n'ai rien en bas à gauche

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 11 Mai 2008

• #15

Re : Effacement de lignes

le résolu n'apparaitra que sur le titre de ton premier post
dommage

 

Vote positif 0 Vote négatif