supprimer au fur et à mesure

jejeaure

XLDnaute Junior
Bonsoir je voudrais si du moins c'est possible que lorsque j'utilise mes menus déroulants avec des noms, que le nom disparaisse de la liste au fur et à mesure que j'en choisi un Merci beaucoup pour vos réponses PS: sachant qu'il y aura 93 listes déroulantes
 

Pièces jointes

  • menu déroulant.xls
    26.5 KB · Affichages: 135
  • menu déroulant.xls
    26.5 KB · Affichages: 137
  • menu déroulant.xls
    26.5 KB · Affichages: 136
Dernière édition:

jejeaure

XLDnaute Junior
Re : supprimer au fur et à mesure

Bonjour
Il faut d'abord enlever: If lig > 34 Then Exit Sub (en début de macro)
ensuite le but est de dire à l'ordi ou ce trouve la colonne correspondante.
Donc pour l'instant on devait traiter que les colonnes
Maintenant on va traiter aussi les lignes
Case Is = 4
Select Case lig
Case Is < 15 'matin 1° tableau
moncol = 22
Case lig > 14 And lig < 26 'am
moncol = 23
Case lig > 25 And lig < 35 'nuit
moncol = 24
Case lig > 37 And lig < 68 'matin tableau 2
moncol = 43
ect...
End Select
Case Is = 6
Comme tu le vois dans une commande case on remet une autre commande select case
Le but étant de dire à l'ordi les personnes qui sont de quart ce jour là sont dans cette colonne là...
Il faut aussi enlever
If lig > 25 Then moncol = moncol + 2
If lig > 14 And lig < 26 Then moncol = moncol + 1
Puisque maintenant on doit préciser pour chaque ligne...

A+ François

J'ai modifier la macro pour les tableaux, par contre il doit manquer quelques choses, soit a la fin ou au début, en espérant que tu comprennes mon erreur...Merci d'avance Fanfan38
Jérôme
 

Pièces jointes

  • Classeur1.zip
    29.5 KB · Affichages: 21
  • Classeur1.zip
    29.5 KB · Affichages: 23
  • Classeur1.zip
    29.5 KB · Affichages: 24
Dernière édition:

jejeaure

XLDnaute Junior
Re : supprimer au fur et à mesure

Je perds la boule je n'arrête pas de mettre des trucs dans la macro et toujours rien, je n'y arrive pas:(, voici les dernière modif que j'ai pu faire merci pour mon futur sauveur
 

Pièces jointes

  • Classeur1.zip
    29.5 KB · Affichages: 25
  • Classeur1.zip
    29.5 KB · Affichages: 26
  • Classeur1.zip
    29.5 KB · Affichages: 27

fanfan38

XLDnaute Barbatruc
Re : supprimer au fur et à mesure

Bonjour
J'avais pris quelque jours de vacance...
Donc
Si j'ai bien suivi y a erreur...
Select case col
case is=4
select case lig
case 15 to 25
action matin
case 26 to 36
action am
case 36 to 46
action nuit
end select 'ligne
case is =10 'colonne
select case lig
case 1 to 5
end select 'ligne
end select 'colonne

J'ai vu trop de end select...
Tu as un select case pour la colonne
donc case is= 1
entre 2 case (colonne) tu auras un select case ligne avec les cases qui vont bien et le end select correspondant
Pour t'y retrouver fait bien les espaces
select case col
2 espaces cas is =4
4 espaces select case lig
6 espaces case is =...

A+ François
 

jejeaure

XLDnaute Junior
Re : supprimer au fur et à mesure

Bonjour
J'avais pris quelque jours de vacance...
Donc
Si j'ai bien suivi y a erreur...
Select case col
case is=4
select case lig
case 15 to 25
action matin
case 26 to 36
action am
case 36 to 46
action nuit
end select 'ligne
case is =10 'colonne
select case lig
case 1 to 5
end select 'ligne
end select 'colonne

J'ai vu trop de end select...
Tu as un select case pour la colonne
donc case is= 1
entre 2 case (colonne) tu auras un select case ligne avec les cases qui vont bien et le end select correspondant
Pour t'y retrouver fait bien les espaces
select case col
2 espaces cas is =4
4 espaces select case lig
6 espaces case is =...

A+ François

Salut François j'espère que tu as bien profité de tes vacances, pour moi je te donne un peu plus de boulot car j'ai fait les changements que tu dis mais rien ça bug, la macro plante:( pourtant je commence à comprendre le principe mais il doit y avoir des trous....
merci
 

Pièces jointes

  • Classeur1.zip
    29.8 KB · Affichages: 25
  • Classeur1.zip
    29.8 KB · Affichages: 22
  • Classeur1.zip
    29.8 KB · Affichages: 27

fanfan38

XLDnaute Barbatruc
Re : supprimer au fur et à mesure

C'est le select case col qui est en trop
select case col
case is =4 'col
select case lig
case 1 to 5
end select 'lig
case is=6 'col
il n'y a pas de select case avant chaque case...

A+ François
 

Excel_lent

XLDnaute Impliqué
Re : supprimer au fur et à mesure

Bonsoir jejaure, fanfan, sans oublier les autres.


jejaure, ton titre aurait dû être : listes de validations dépendantes.

D’ailleurs, si tu avais fait une recherche avec le mot « dépendantes » seulement, tu serais tombé sur un fil qui aurait pu t’intéresser : une de mes premières demandes.

WonderMonique (à qui je dois, comme tant d’autres, beaucoup de choses) avait résolu de façon si élégante mon problème que je propose sa solution.

Je ne sais pas si tu pourras l’utiliser mais je pense qu’elle* sera appréciée par bien des lecteurs.

Bien sûr cela n'enlève rien au mérite de François.


*la solution car, bien entendu, Monique l’est déjà par tous !
Si tu passes par là, bonsoir Monique.
 

Pièces jointes

  • listesValdependantes.zip
    7.5 KB · Affichages: 24
  • listesValdependantes.zip
    7.5 KB · Affichages: 27
  • listesValdependantes.zip
    7.5 KB · Affichages: 27

Discussions similaires