XL 2016 Formulaire sans userform

[Excel 340]

Bonjour à tous

Voilà je n'arrive pas à faire marcher ce formulaire sans userform

Je voudrais un système un peu bisard

je voudrais un bouton AJOUTER

Un Bouton ALLER à

et un bouton Modifier

Les cases vertes ne sont pas a remplir mais doivent se remplir toutes seules quand on va sur le bouton ALLER à

et le bouton modifier pour modifier

j'ai déjà pourtant essayer mais j'en suis toujours au même point

Attention dans les résultats des cases vertes ils y trouvent des opérations

merci de m'aider

 

[Staple1600]

Bonjour

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 😉)

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

 

[Excel 340]

OK pas de problème pour moi
merci de l'aide

 

[Excel 340]

Re ou bonjour à tous

Voilà j’ai fais les trois boutons que je voulais

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

Alors merci de m'aider donc je rejoint un dossier

 

[Staple1600]

Re

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 😉

 

[Excel 340]

Je n'ai pas reussi à faire marche je ne suis q'un novice

 

[Staple1600]

Re

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

 

[Excel 340]

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

 

[Staple1600]

Re

C'est parce que tu avais protégé la feuille BDD
Déprotèges-là puis essaie de nouveau

 

[Excel 340]

Bonjour STAPLE 1600 et à tous
Il n'y a pas de code de protection il suffit d'enlever la protection
mais je remet le sujet déprotégé
Merci

 

[Staple1600]

Bonjour

J'ai testé mon code sur tes classeurs et pas de message d'erreurs chez moi.
Relis le fil, et vois si tu suis bien toutes les directives.

EDTION: Je viens de refaire le test sur ton dernier fichier.
Pas de message d'erreur.

 

[Excel 340]

Super ça marche
Maintenant il ne me reste quà faire la possibilité de faire des recherche
merci!!!!!!!!!!!!!