Bonjour micpid et grisan29,
Je n'ai pas de problème avec l'ajout d'un nouveau nom.
Bien remplir les cellules B2 et B3 du Tableau de Bord, les valider et cliquer sur le bouton "Nouvelle équipe".
La feuille "Noms" est un tableau (tableau1). Les cellules B2 et B3 (TdB) sont copiées et collées dans les cellules B et C dans dernière ligne vide du tableau1 et la cellule A correspondante se remplit correctement. On peut modifier la colonne A de cette manière afin d'avoir des noms propres. Coller la formule suivante en A2
=CONCATENER(NOMPROPRE(B2);" ";NOMPROPRE(C2))
Copier également ce code dans module 1
Sub NouveauNom()
Dim ligne As Long
Application.ScreenUpdating = False
Sheets("Tableau de Bord").Select
Range("B2:B3").Copy
Sheets("Noms").Select
ligne = Range("a65000").End(xlUp).Row + 1 'recherche dernière ligne+1
Range("B" & ligne).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Sheets("Tableau de Bord").Select
MsgBox "Nouveau nom pris en compte." Range("B2:B3").ClearContents
End Sub
Pour grisan29: Je n'ai pas voulu mettre le calendrier dans le USF car c'est un outil de galopin01 je crois.
Mais effectivement j'y avais songé.
Bon courage et bonne mise en bouteilles (ça me fait rêver )
Cdt
Henri