Effacement de lignes

[vedene]

Bonjour à tous,


Qui pourrait me donner la solution?

Voici :

Sur excel 2002, j'ai sur une feuille 120 lignes et 20 colonnes.

Chaque cellule de la même ligne est renseignée par une liste de validation différente.

Certaine cellules sont gérées par des formules dont le résultat dépend de la cellule précédente (même ligne).

Si tout va bien pour le "remplissage", il n'en est pas de même si je veux effacer les renseignements de la ligne.
Il me faut faire défiler chaque liste pour sélectionner une case vide.
Fastidieux et "bricolage".

Peux-t-on faire une commande qui remettrait, sans la supprimer, la ligne "à blanc"


Merci pour votre aide

 

[cbea]

Re : Effacement de lignes

Bonjour vedene,

Pourrais-tu mettre un exemple dans un fichier ?

Merci

 

[vedene]

Re : Effacement de lignes

Re,

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

Merci beaucoup

 

[JCGL]

Re : Effacement de lignes

Bonjour à tous,

Une solution par application d'une mise en forme conditionnelle

A+

 

[cbea]

Re : Effacement de lignes

re,

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

 

[vedene]

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

 

[jmd2]

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")

 

[vedene]

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

 

[cbea]

Re : Effacement de lignes

Bonjour à tous,

Voici une nouvelle version :

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

 

[kjin]

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

 

[vedene]

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

 

[jmd2]

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 ?)

 

[kjin]

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

 

[vedene]

Re : Effacement de lignes

Docteur kjin,

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

 

[tactic6]

Re : Effacement de lignes

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