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.
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)
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 = True
End If
End If
End Sub
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.
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.
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 ?
non,
mais joins un classeur et explique le caprice de la Diva
pour joindre une pièce
mettre le classeur sans données confidentielles en pièce jointe sur
https://www.cjoint.com/ et faire un clic droit sur le lien proposé puis "copier l'adresse du lien" et coller dans le message de réponse
J'ai enlevé provisoirement la macro. Donc, à la base, les colonnes C et E étaient des listes déroulantes. Ma "diva" (ça lui va bien) a fait la demande que ces deux colonnes soient liées à la colonne D (en remplissant la colonne D, les colonnes C et E se remplissent selon l'onglet Modifications et inversément). De même, des formules permettent de remplir les colonnes J-T à partir de la colonne I.
Il faut protéger la feuille afin que les colonnes à formules ne puissent pas être accidentellement modifiées, mais la protection bloque ta macro et, sans protection, la macro efface les formules, ce qu'il faudrait éviter.
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
si pour une raison quelconque on sort de la macro alors que enableevents (events=événements)est activé (true), plus aucune macro ne fonctionne. c'est d'ailleurs l"'étourderie qu'avait signalé Eric, d'où cette macro SOs
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.
'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.
- Messages postés
-
23816
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 26 janvier 2021
6 598un copié-collé non modifié par michel.
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 = True End If End If End Sub