liste évolutive sous excel

[TANGHAM]

bonjour

j'ai une liste avec des numéros (en l'occurence ce sont des bureaux)

je souhaite que, à partir du moment où un bureau a été attribué, il ne puisse plus l'être

autrement dit qu'il disparaisse de ma liste déroulante pour la colonne concernée

Merci de votre aide

 

[hoerwind]

Re : liste évolutive sous excel

Bonjour,

Vois sous le site de Jacques Boisgontier, tu y trouveras une réponse toute faite, ... et bien d'autres choses.

 

[TANGHAM]

Re : liste évolutive sous excel

as tu l'adresse de son site?

 

[hoerwind]

Re : liste évolutive sous excel

Bonjour,

Il suffit de saisir jacques boisgontier sous Google !

Formation Excel VBA JB

 

[TANGHAM]

Re : liste évolutive sous excel

ok c'est ce ue j'avais trouvé mais je n'étais pas sûr

merci pour l'info, mais j'ai peur de ne pas avoir la technicité pour adapter la macro à mon planning

je suis un peu juste en macro malheureusement

je pense que la bonne réponse est celle ci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([planning], Target) Is Nothing Then
[L2:L100].ClearContents
For Each c In [ListeNoms]
If IsError(Application.Match(c, Range(Cells(Target.Row, 2), Cells(Target.Row, 7)), 0)) Then
[L65000].End(xlUp).Offset(1, 0) = c
End If
Next c
End If
End Sub

mais je ne sais pas l'adapter et en tous cas je ne comprends pas toutes les commandes utilisées

 

[hoerwind]

Re : liste évolutive sous excel

Re,

Si tu n'es pas habitué de travailler avec des macros, mieux vaut opter pour une solution simple avec colonnes intermédiaires.

Vois la pièce jointe et dis-nous si cela répond à ton attente.

 

[TANGHAM]

Re : liste évolutive sous excel

si on prend les colonnes indépendamment ça marche mais ça ne marche pas pour toutes les colonnes

autrement dit, si quelqu'un est dans le B1 le matin, cela ne veut pas dire qu'il n'est pas disponible l'après midi et a fortiori le lendemain...



NB : En tous cas merci pour le site de JB, c'est du lourd effectivement

 

[TANGHAM]

Re : liste évolutive sous excel

pas d'autres idées pour mon problème?

 

[hoerwind]

Re : liste évolutive sous excel

Bonjour,

Je n'ai pas trouvé de solution simple pour ton problème, si ce n'est une liste de validation différente par colonne, ce qui n'est pas simple !

Une autre idée serait de placer une MFC (mise en forme conditionnelle) sur toutes les colonnes signalant un éventuel doublons dans une colonne.
Ce n'est pas empêcher l'erreur, mais avertir visuellement qu'il y a une erreur.

 

[BOISGONTIER]

Re : liste évolutive sous excel

Bonjour,


Voir PJ

JB

 

[TANGHAM]

Re : liste évolutive sous excel

bonjour boisgontier

ta solution fonctionne bien par contre j'ai peur qu'à l'utilisation ça soit compliqué avec la bécane que j'ai au boulot parce que ça recalcule tout à chaque changement de case

je vais tester sur une autre machine car ça me sauverait bien la vie

merci déjà à tous

 

[BOISGONTIER]

Re : liste évolutive sous excel

Autre solution

Liste différence
pour chaque date, un bureau ne peut être affecté qu'une fois

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([planning], Target) Is Nothing And (Target.Row Mod 2) = 0 Then
  temp = ""
  For Each c In [bureaux]
    If IsError(Application.Match(c, Range(Cells(3, Target.Column), Cells(20, Target.Column)), 0)) Then
      temp = temp & c.Value & ","
    End If
  Next c
  Target.Validation.Delete
  Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
End If
End Sub

JB

 

[TANGHAM]

Re : liste évolutive sous excel

cette version fonctionne bien, mais je ne vois pas comment l'adapter à chaque feuille de mon planning car la référence "planning" renvoie vers une feuille définie

or j'ai une page par mois

par ailleurs je ne comprends pas pourquoi tu as défini la plage "activités mixtes"

 

[BOISGONTIER]

Re : liste évolutive sous excel

>par ailleurs je ne comprends pas pourquoi tu as défini la plage "activités mixtes"

????? Ce champ existait dans le classeur d'origine


Remplacer Planning par [E3:EX20]

JB

 

[TANGHAM]

Re : liste évolutive sous excel

>par ailleurs je ne comprends pas pourquoi tu as défini la plage "activités mixtes"


JB

oui mais autant on ne peut pas être deux dans le même bureau autant on peut faire la même activité dans des bureaux différents

faut il que je mette la macro sur chaque feuille pour que ça marche?

"Remplacer Planning par [E3:EX20]"

tu veux dire Remplacer Planning par [E3:AX20] je suppose