Re : Conservation "format activation" cellule lors d'un tri alphabétique base de donn
Merci BrunoM45 pour ta réponse,
Mais ceci ne marche que si toutes les cellules de la colonne de ma base sont équipées d'une liste de choix. Or pour moi, il n'y a que le dernier enregistrement entré qui a des listes de choix... et le problème est que après tri, c'est encore le dernier enregistrement qui a les listes de choix et non pas celui que je viens de rentrer...
Après, tu me diras que je peux mettre des listes de choix à tous les enregistrements, mais ça revient, dans l'éxecution de mon usf, a trier selon l'ordre alphabétique puis à insérer des listes de choix en conservant les données existantes dans chaque cellule de chaque enregistrement.... et j'en ai 1400, ce qui va me demander un temps fou pour entrer, disons 5 nouveaux enregistrements...
J'ai bien la manip suivante (par exemple) pour le faire mais ça va augmenter les temps :
Sub choixlistb()
For Each cece In Selection 'selection étant la zone de la colonne (entre le 1er enregistrement et le dernier) ou devrait être la liste de choix
Lachose = Cece.Value
With Cece.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Sections" 'Sections étant le nom de la zone où se trouve la liste
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Cece.Value = Lachose
Next
End Sub
en conclusion, y-a-t-il une autre possibilité ??
Merci et à ++