plage de liste adaptable apres supression d'une ligne

M

Monique

Guest

• 3 Avril 2004

• #2

Bonjour,

Ces listes déroulantes, je ne sais pas.

Listes de validation de la barre de menu :
tu sélectionnes la cellule F2 puis
barre de menu - Données - Validation -
Autoriser "Liste " et dans la zone "Source", tu tapes cette formule :
=DECALER($A$7;0;0;NBVAL($A:$A))
ou bien :
=DECALER($A$7;;;NBVAL($A:$A))

Formule pour ta cellule B1 :
=EQUIV(F2;DECALER($A$7;0;0;NBVAL($A:$A));0)
ou bien :
=EQUIV(F2;DECALER($A$7;;;NBVAL($A:$A));0)
(si ta liste de validation est bien en F2)

 

Vote positif 0 Vote négatif

L

lolo24

Guest

• 4 Avril 2004

• #3

Bonjour monique
Merci pour ton aide, mais ces formules dans barre de menu - Données - Validation -Autoriser "Liste " et dans la zone "Source" ne m'efface pas des lignes! quand je clic par exemple sur aaaaa (1er) dans la liste cela ne m'efface pas la ligne contenant aaaaa, mais la cellule B1 est juste affecté du n° de ligne de aaaaa.
Je sais pas si je me fais bien comprendre.

Si tu as une autre solution!?clique sur la liste de mon fichier joint.
Merci quand même.

A bientôt

 

Vote positif 0 Vote négatif

M

Michel_M

Guest

• 4 Avril 2004

• #4

Bonjour lolo Monique et le forum

Ci joint proposition par macro
A+
Michel

 

Pièces jointes

• fillist.zip

  10.7 KB · Affichages: 18

Vote positif 0 Vote négatif

M

Monique

Guest

• 4 Avril 2004

• #5

Bonjour,

N'y connaissant rien en macro, je t'ai donné le système pour avoir une liste de validation contenant toutes les données de la colonne A, qu'il y ait ou non suppression ou insertion de lignes.
Pour remplacer ta cellule B1, tu as une formule.
Et c'est tout ce que j'ai fait.
Tu ne pourrais pas lier ta macro à la liste de validation au lieu de la lier à la liste déroulante ?

 

Pièces jointes

• ListeLolo.zip

  9.2 KB · Affichages: 21

Vote positif 0 Vote négatif

M

Monique

Guest

• 4 Avril 2004

• #6

Re,

Aïe, pardon Michel, j'ai failli te marcher sur les pieds.
Le problème est donc résolu

 

Vote positif 0 Vote négatif

L

lolo24

Guest

• 4 Avril 2004

• #7

Bonjour et merci michel, pour ton aide
Je viens d'essayer ta macro:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lig As Long
If Intersect(Target, Range("A7:A1000")) Is Nothing Then: Else
If IsEmpty(Target) Then: End

lig = Target.Row
ActiveSheet.Shapes("Drop Down 13").Select
With Selection
.ListFillRange = "$A$7:$A$" & lig
End With
Range("A1").Select
End Sub

Mais je ne vois pas la difference de resultat par rapport a mon fichier classeur1.Car apres effacement de quelques lignes,si je rajoute des données a la suite,elle n'apparaissent pas dans la liste deroulante!!?
J'ai peu etre raté un truc!!?
A+
lolo24

 

Vote positif 0 Vote négatif

L

lolo24

Guest

• 4 Avril 2004

• #8

Re merci monique,
mais F3 ne remplace pas tout a fait D1.Car D1 supprime la ligne correspondant a sa valeur.Et F3 affiche seulement le numero de la ligne sans l'effacer.

Sniffff

 

Vote positif 0 Vote négatif

M

Michel_M

Guest

• 4 Avril 2004

• #9

Re lolo, Monique

La solution de Monique marche impec, donc, tant qu'on peut se passer de macro, c'est mieux: je vote Monique!

A+
Michel

 

Vote positif 0 Vote négatif

M

Monique

Guest

• 4 Avril 2004

• #10

Re,

Tu transfères la formule de F3 en B1 et D1 te donnera le n° de la ligne

Ou bien carrément en D1 (et tu enlèves le contenu de B1 et C1 si tu n'en as pas besoin) :
=EQUIV(F2;$A:$A;0)
et tu auras directement le n° de la ligne.

 

Vote positif 0 Vote négatif

L

lolo24

Guest

• 4 Avril 2004

• #11

Oui j'ai bien compris Le n° de ligne est bien affiché mais la ligne elle même n'est pas supprimé automatiquement!?

 

Vote positif 0 Vote négatif

M

Monique

Guest

• 4 Avril 2004

• #12

Re,

Ben non, mais je ne sais pas faire ça.
C'est la macro qui est à adapter.

 

Vote positif 0 Vote négatif

L

lolo24

Guest

• 4 Avril 2004

• #13

oui mais on ne peut pas associer une macro a une liste D provenant de donnees validation!!??

 

Vote positif 0 Vote négatif

L

lolo24

Guest

• 4 Avril 2004

• #14

Merci Monique et michel.
Je viens de trouver dans le forum, un fichier (joint), qui fera l'affaire!
Merci quand même de votre aide,j'aurais quand même appris d'autres choses grace a vous.
A bientôt
lolo24

 

Pièces jointes

• supprimer_ligne.zip

  12.6 KB · Affichages: 17

Vote positif 0 Vote négatif

M

Michel_M

Guest

• 4 Avril 2004

• #15

Re lolo, Monique

Ci dessous la macro rectifiée:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lig As Long
lig = Columns(1).Find("", [A7], , , xlByRows).Row
If Intersect(Target, Range("A" & lig)) Is Nothing Then: End
If IsEmpty(Target) Then: End

lig = Target.Row
ActiveSheet.Shapes("Drop Down 13").Select
With Selection
.ListFillRange = "$A$7:$A$" & lig
End With
Range("A1").Select
End Sub


Il n'empêche que je préfère une solution par formule que macro...

Bon appétit
Michel

 

Vote positif 0 Vote négatif