Discussion :

[JeffT]

Bonjour,

J'ai une feuille Excel dont les lignes contiennent des tâches dans la colonne A, lignes 2 et suivantes, et les colonnes les jours ouvrables pour toute une année sur la ligne 1, colonnes B et suivantes.

À chaque intersection d'une ligne et d'une colonne de ce tableau, une liste déroulante, créée avec la validation de données, présente les cinq noms complets (prénom et nom) d'une équipe de travail.

Ce que je ne parviens pas à faire : je voudrais que seules les initiales s'inscrivent dans la cellule une fois le nom complet sélectionné dans la liste déroulante. Ainsi, Jean Dupont sélectionné dans la liste déroulante s'inscrirait dans la cellule sous JD, lorsque la cellule active passe à la cellule suivante. Je ne connais pas suffisamment VISUAL BASIC pour y arriver par moi-même.

Merci de m'aider.

[Philippe Tulliez]

Bonjour,
Si l'on veut permettre que la valeur contenue dans une cellule soit différente d'une des valeurs contenues dans la liste contrôlée par l'outil validation de données, il y a lieu de modifier l'un des paramètres de l'onglet [Alerte d'erreur] de l'outil Validation de données.
Les deux paramètres permettant cela sont dans la liste Style et sont Avertissement ou Informations.
Toutefois ils déclenchent une boîte de dialogue avertissant l'utilisateur.
On choisira donc un autre paramètre en décochant l'option Quand des données non valide sont tapées
Le code VBA qui permettra de modifier la valeur sélectionnée par l'utilisateur est à placer dans le module objet de la feuille où se trouve la validation de données.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Nom As String, Prenom As String
 Application.EnableEvents = False
 With Target
  If .Column = 1 And .Row > 1 Then
    Nom = Left(.Value, InStr(.Value, " ") - 1): Prenom = Mid(.Value, InStr(.Value, " ") + 1)
   .Value = Left(Nom, 1) & Left(Prenom, 1)
  End If
 End With
 Application.EnableEvents = True
End Sub

Il y aurait lieu de vérifier en plus si le nom contient bien un espace entre le prénom et le nom et attention également au cas probable où le nom sélectionné serait composé, comme par : de LaFayette, van Beethoven , von Karajan etc...