Effacer des cellules sous Excel Résolu/Fermé

Question

Bonjour, 

J'ai une question concernant Excel 2010. J'ai une base de données contenant plusieurs colonnes. En dehors de la première colonne, les autres colonnes sont constituées de listes déroulantes.

J'aurais voulu savoir s'il était possible que toutes les listes déroulantes d'une même ligne soient automatiquement remises à zéro quand on efface la première cellule de la ligne.

Merci d'avance

michel_m · Accepted Answer

Bonjour

essaies ce code (ta 1° colonne est A)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A")) Is Nothing Then
     If IsEmpty(Target) Then
          Application.EnableEvents = False
               Rows(Target.Row).ClearContents
          Application.EnableEvents = False
     End If
End If
End Sub

pour installer
fais un copier de ce code
clic droit sur l'onglet de la ta feuille-visualiser le code
coller

il faut bien sûr que les macros soient autorisées !!!! (connais pa XL2010)

Mrfrize · Answer

Tu selectionnes la ligne entiere que tu veux remettre a 0 en cliquant sur le numéro de ligne. et tu apuis sur sup. Normalement ca devrais marcher. Je ne connais pas le 2010 mais sur toute les autres versions ca marche.

gorby1980 · Answer

Certes, ça marche, mais ce n'est pas ce que je veux. Je prépare un fichier que d'autres vont utiliser. Il me faudrait un code qui remette à zéro les listes déroulantes quand quelqu'un efface le contenu de la première cellule de la ligne.

gorby1980 · Answer

Ou, autre possiblité, la première ligne de chaque liste déroulante est une ligne vierge. Savoir s'il est possible, lorsque la première cellule de la ligne est vidée, que chaque liste déroulante sélectionne automatiquement cette ligne vierge.

Note : la mise en place peut être complexe, pourvu que ce soit ensuite simple à utiliser pour les utilisateurs futurs.

Mrfrize · Answer

Essaye cette macro,

Sub supligne()

Dim Dligne As Integer
Dim i As Long

'determine la derniere ligne du tableau de la feuille
Dligne = ActiveSheet.UsedRange.Rows.Count

'Efface les valeurs de toute la ligne quand la cellule Ai est vide
For i = 1 To Dligne Step 1
    If Cells(i, 1).Value = "" Then Rows(i).ClearContents
Next i
    
End Sub


Elle efface les lignes dont la premiere cellule est vide.

gorby1980 · Answer

(censuré) de boss !!

Maintenant, il veut que je rajoute des colonnes avec des formules basées sur le contenu des listes déroulantes. Et avec protection de la feuille. Et évidemment ça coince avec le code Visual que j'ai copié.

Est-ce qu'il faut que j'ouvre un nouveau sujet pour aborder cette suite ?

michel_m · Answer

re,

au passage,merci Eric d'avoir corrigé mon étourderie habituelle ;o) (j'vieillis mal)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Derlig As Integer, Lig As Integer

Derlig = Columns("A").Find("*", , , , , xlPrevious).Row + 1
If Not Intersect(Target, Range("A2:A" & Derlig)) Is Nothing Then
     If IsEmpty(Target) Then
               Application.EnableEvents = False
               Lig = Target.Row
               Cells(Lig, "B") = ""
               Cells(Lig, "D") = ""
               Range(Cells(Lig, "F"), Cells(Lig, "I")) = ""
               Application.EnableEvents = True
     End If
End If
End Sub
et la macro de secours à mettre dans un coin
Sub SOS()
Application.EnableEvents = True
End Sub