Suggestion pour ta liste de validation Noms
Utilises plutôt cette formule:=DECALER(BDD!$B$2;0;0;NBVAL(BDD!$B:$B)-1;1)
Ensuite voici une proposition de macro (en mode light )
VB:
Sub AJOUTER_V2()
Application.ScreenUpdating = False
With Sheets("Formulaire")
Sheets("BDD").Cells(Rows.Count, 1).End(3)(2).Resize(, 23).Value = .Range("A2:W2").Value
.Range("D5:D19,H5:H19").ClearContents
End With
End Sub
Le bouton du nom dans Formulaire en D7 c’est Nom et c’est une liste Col b dans BBD
Et je voudrais pouvoir faire un recherche avec le nom
Pour pouvoir modifier si besoin le nombre de marcheurs ou d’enfants ou la personne qui paye
Modifier aussi l’heure de départ donc le groupe (A1) et j’ai inverser les singne = des cases vertes pour voir si ça marcher mais pas de bol çà ne marche pas tant pis
Excel340
Donc tu préfères utiliser ta procédure AJOUTER plutôt que celle que je t'ai soumise?
Comme tu préfères ta formule à celle que je te suggères dans le message#2?
Dans ce cas, tu n'as pas besoin de mon aide, alors
Tu as pourtant copier ma macro dans ton classeur.
Pour la tester, il te suffit de:
1) Aller dans l'onglet Développeur puis cliquer sur Macros et choisir AJOUTER_V2 et cliquer sur Exécuter
ou
2) Cliquer sur le bouton AJOUTER présent sur la feuille Formulaire et choisir Affecter une macro et choisir AJOUTER_V2
Ben he je viens de refaire et j'ai une erreur Que je copie
Sheets("BDD").Cells(Rows.Count, 1).End(3)(2).Resize(, 23).Value = .Range("A2:W2").Value
Mais ça moi c'est un peu trop