Création de liste en VBA
Le
jpthillard
Bonjour à tous,
Sur un post datant du 1er mai dernier je disais:
Chaque année, j'utilise un tableau où je dois modifier la définition
des plages de cellules affectées à NOM.
Je supprime tous les noms et ensuite je les recréais un à un.
Fastidieux car ils sont nombreux et en plus de cela le travail
demande une certaine connaissance d'Excel. Je dois donner ce tableau
à
des utilisateurs non expérimentés. En conséquence, je me demandais
s'il était possible d'automatiser cette tâche ? Attention le nombre
de
cellules se trouvent systématiquement sur la même ligne mais le
nombre
est variable. Il peut y avoir de 1 à x cellules à selectionner sur la
même ligne.
En réponse bien orientée, j'ai eu:
Sub changer_NOM()
ActiveWorkbook.Names.Add Name:="PROF1", RefersToR1C1:="=Données!
R4C2:R4C10"
'etc
End Sub
Ci-dessous, ce qu'il faudrait faire ( car je vois ce qu'il faut
faire mais je n'y arrive pas)
1) Placer en tête de macro une instruction qui supprimerait toutes les
listes
2) Il faudrait créer une boucle pour que celle-ci s'exécute autant de
fois qu'il y a de professeurs.
Au lieu de prof1; prof2; etc.. j'aurai les noms des professeurs. La
macro devrait pouvoir lire les noms des professeurs
dans la colonne intitulée Liste professeurs. Cette liste pourrait
s'appeler "PROFESSEURS"
Je joins un fichier créé pour être plus clair.
le lien est http://cjoint.com/?ffp5bhMjw7
Merci pour votre aide
JP
Sur un post datant du 1er mai dernier je disais:
Chaque année, j'utilise un tableau où je dois modifier la définition
des plages de cellules affectées à NOM.
Je supprime tous les noms et ensuite je les recréais un à un.
Fastidieux car ils sont nombreux et en plus de cela le travail
demande une certaine connaissance d'Excel. Je dois donner ce tableau
à
des utilisateurs non expérimentés. En conséquence, je me demandais
s'il était possible d'automatiser cette tâche ? Attention le nombre
de
cellules se trouvent systématiquement sur la même ligne mais le
nombre
est variable. Il peut y avoir de 1 à x cellules à selectionner sur la
même ligne.
En réponse bien orientée, j'ai eu:
Sub changer_NOM()
ActiveWorkbook.Names.Add Name:="PROF1", RefersToR1C1:="=Données!
R4C2:R4C10"
'etc
End Sub
Ci-dessous, ce qu'il faudrait faire ( car je vois ce qu'il faut
faire mais je n'y arrive pas)
1) Placer en tête de macro une instruction qui supprimerait toutes les
listes
2) Il faudrait créer une boucle pour que celle-ci s'exécute autant de
fois qu'il y a de professeurs.
Au lieu de prof1; prof2; etc.. j'aurai les noms des professeurs. La
macro devrait pouvoir lire les noms des professeurs
dans la colonne intitulée Liste professeurs. Cette liste pourrait
s'appeler "PROFESSEURS"
Je joins un fichier créé pour être plus clair.
le lien est http://cjoint.com/?ffp5bhMjw7
Merci pour votre aide
JP
Poser une question
Sub changer_NOM()
For Each nms In ActiveWorkbook.Names
nms.Delete
Next
With Sheets("Données")
For Each c In .Range("A4:A" & .Range("A65536").End(xlUp).Row)
p = .Range("IV" & c.Row).End(xlToLeft).Column
If p <> 1 Then
dd = Range(Cells(c.Row, 1), Cells(c.Row, p)).Address
ActiveWorkbook.Names.Add Name:=c.Value, RefersTo:="=Données!" & dd
End If
Next
End With
End Sub
isabelle
Sub Suppression1()
For Each Nom In ActiveWorkbook.Names
If Nom.Name Next Nom
End Sub
Sub Suppression2()
On Error Resume Next
For Each Nom In ActiveWorkbook.Names
If Nom.Name If Err.Number Next Nom
End Sub
Sub Creation()
Dim c As Range
For Each c In [PROFESSEUR]
Range(c.Offset(0, 1), c.Offset(0, 255).End(xlToLeft)).Name = c
Next c
End Sub
J'ai mis 2 possibilités de suppression. La seconde est plus radicale, elle
supprime tous les noms, sauf "PROFESSEUR".
Cordialement.
Daniel
Bonjour à tous,
Sur un post datant du 1er mai dernier je disais:
Chaque année, j'utilise un tableau où je dois modifier la définition
des plages de cellules affectées à NOM.
Je supprime tous les noms et ensuite je les recréais un à un.
Fastidieux car ils sont nombreux et en plus de cela le travail
demande une certaine connaissance d'Excel. Je dois donner ce tableau
à
des utilisateurs non expérimentés. En conséquence, je me demandais
s'il était possible d'automatiser cette tâche ? Attention le nombre
de
cellules se trouvent systématiquement sur la même ligne mais le
nombre
est variable. Il peut y avoir de 1 à x cellules à selectionner sur la
même ligne.
...
En réponse bien orientée, j'ai eu:
Sub changer_NOM()
ActiveWorkbook.Names.Add Name:="PROF1", RefersToR1C1:="=Données!
R4C2:R4C10"
'etc...
End Sub
... Ci-dessous, ce qu'il faudrait faire ( car je vois ce qu'il faut
faire mais je n'y arrive pas)
1) Placer en tête de macro une instruction qui supprimerait toutes les
listes
2) Il faudrait créer une boucle pour que celle-ci s'exécute autant de
fois qu'il y a de professeurs.
Au lieu de prof1; prof2; etc.. j'aurai les noms des professeurs. La
macro devrait pouvoir lire les noms des professeurs
dans la colonne intitulée Liste professeurs. Cette liste pourrait
s'appeler "PROFESSEURS"
Je joins un fichier créé pour être plus clair.
le lien est http://cjoint.com/?ffp5bhMjw7
Merci pour votre aide
JP
Sub Suppression2()
Dim c As Range
On Error Resume Next
For Each c In [PROFESSEUR]
ActiveWorkbook.Names(c).Delete
If Err.Number Next c
End Sub
Daniel
"Daniel"
Isabelle et Daniel,
Formidable! Je vais pouvoir progresser sur mon fichier.
Merci à tous les deux!
Cordialement
JP
Il n'y a pas besoin de VBA.
Listes en cascade dynamiques sans noms de champ
On peut ajouter des items en colonne et en ligne sans aucune
modification
Si les listes sont sur un autre onglet, nommer les champs:
choix1:ÞCALER($F$1;;;;NBVAL($F$1:$Z$1))
choix2:=$F:$F
1ere liste en B2: =Choix1
2eme liste enC2:
ÞCALER(choix2;1;EQUIV(B2;Choix1;0)-1;NBVAL(DECALER(choix2;;EQUIV(B2;Cho ix1;0)-1))-1)
http://boisgontierjacques.free.fr/f...scadeSansN oms.xls
http://boisgontierjacques.free.fr/f...istescasca de.xls
Cordialement JB
On 5 mai, 15:58, wrote: