lancement boite de dialogue puis renvoi des données dans cellules

[boudu]

Bonjour au forum
Je souhaite grace à un bouton sur une feuille lancer une boite de dialogue puis à partir de la saisie renvoyer vers des cellules (j'ai fait un fichier exemple avec 3 cellules à remplir (elles se suivent dans mon exemple mais ce n'est pas le cas du vrai fichier, il faut donc pouvoir renvoyer la saisie à une adresse de cellule fixe
Il faut que la saisie remplisse les memes cellules sur 4 onglets (les adresse de cellules sont les memes sur les 4 feuilles)
Merci

 

[excalibur]

Re : lancement boite de dialogue puis renvoi des données dans cellules

bonjour boudu le forum si j ai bien compris !!!
j ai rajoute une feuille dans ton ex:
salutations

 

[boudu]

Re : lancement boite de dialogue puis renvoi des données dans cellules

Bonjour Jean-Pierre; le forum
c'est exactement ce dont j'ai besoin
(je teste sur mon vrai fichier car il faut que j'analye comment le resultat va bien dans la cellule precise qui correspond)
Peux tu m'expliquer le code pour que je l'adapte
De plus comme je disais la feuille est protégée donc peut-on deproteger pour la recopie et remettre la protection apres en vba

Merci et bonne journée

 

[Gruick]

Re : lancement boite de dialogue puis renvoi des données dans cellules

Bonjour à tous,
Belle solution d'Excalibur, mais j'ai fait plus simple puisque Boudu parle d'inputbox, et non d'UserForm.
Si on laisse vierge en répondant annuler, la valeur existante restera. Dans le cas d'une réponse "normale", la valeur sera remplacée.
A plus
Gruick, qui se fait rare....

 

[boudu]

Re : lancement boite de dialogue puis renvoi des données dans cellules

Re Gruick, Jean-Pierre
Merci pour vos propositions qui collent toutes les deux
le seul probleme qui me reste est d'enlever la protection au moment d'inscrire les données puis de la remettre apres dans le code
en fait j'ai dit inputbox mais je me suis trompé, j'ai trouvé comment parametrer les cellules de destination avec le code de Jean-Pierre donc maintenant j'hesite entre les deux solutions (l'ideal serait dans le systeme boite de dialogue que si on ne met rien ça n'efface pas le contenu mais bon...

Si vous avez une idée au sujet de la protection ce serait impecc
merci

 

[ccpapy]

Re : lancement boite de dialogue puis renvoi des données dans cellules

bonsoir à tous

pour la protection mot de passe toto par exemple, le code d'excalibur donnerai ça

Private Sub CommandButton1_Click()
For x = 1 To 4
For i = 1 To 3
Sheets(x).Unprotect Password:="toto"
Sheets(x).Cells(i, 1) = Controls("Textbox" & (i)).Value
Sheets(x).Protect Password:="toto"
Next i: Next x: Beep
End Sub

je pense que ça devrait aller
à+

 

[excalibur]

Re : lancement boite de dialogue puis renvoi des données dans cellules

rebonjour le fil je te joins le fichier avec quelques explications
pour la protection j ai modifier l emplacement de l ami ccpapy
attention ne pas oublie de proteger ton projet autrement on verra ton code
suffisante pour un nom bidouilleur dans excel
salutations

 

[boudu]

Re : lancement boite de dialogue puis renvoi des données dans cellules

Bonjour Jean-Pierre, ccpapy, Gruick, le forum
Merci pour vos propositions et pour le detail du code de Jean-Pierre
Je vais utiliser la proposition de Jean-Pierre car finalement elle colle mieux avec mon projet mais je mets de côté celle de Gruick qui me sera utile pour un autre fichier
La solution pour enlever et remettre la protection de ccpapy est suffisante car en fait l'intéret de la chose est que l'utilisateur final (ce n'est pas moi!)ne connaisse pas le password
J'aime beaucoup l'aspect de la boite de dialogue du dernier fichier proposé par Jean-Pierre et vais donc garder cela et adapter le reste avec les explications
Merci encore à tous les trois pour vos propositions, j'avance sur mon projet et posterai à nouveau si je coince
Bonne journée

 

[boudu]

Re : lancement boite de dialogue puis renvoi des données dans cellules

Re bonsoir à tous
j'ai bien avancé, quasi terminé grace à vos conseils et fichiers
j'ai finalement opté pour un userform qui me permet de faire figurer l'ensemble des champs qui doivent etre modifiés de temps en temps
Le souci est que effectivement comme le faisait remarquer Gruick ça oblige à tout resaisir
La question est donc; peut-on avoir par defaut dans les champs du userform les valeurs actuelles de la cellule? (de telle sorte que si on la laisse il n'y a pas de saisie à faire lorsque cette valeur ne doit pas etre changée)
par ailleurs j'ai actuellement dans le premier champ le contenu de la premiere ligne du fichier (qui est fusionnée sur plusieurs colonnes), j'aimerais au moins me debarrasser de ce contenu si la demande precedente est impossible
j'utilise exces 97
Merci

 

[excalibur]

Re : lancement boite de dialogue puis renvoi des données dans cellules

re le fil j ai modifier l exemple quand tu ouvres user.. tu vois le renseignement des cellules par contre pour les modifier il toujours taper le code . pour les cellules fusionnees essaie de mettre un bout de code zip pour voir
salutations

 

[excalibur]

Re : lancement boite de dialogue puis renvoi des données dans cellules

re le fil j ai corrige un bug si clic sur envoi mais feuilles protegees =bug
de plus je n emploie plus la proprietes enabled mais locked on voit mieux
salutations

 

[boudu]

Re : lancement boite de dialogue puis renvoi des données dans cellules

re Jean-Pierre, le forum
merci pour ces propositions
Je regarde et je te dis si je m'en sors

Bonne soirée

 

[boudu]

Re : lancement boite de dialogue puis renvoi des données dans cellules

Bonjour Jean-Pierre, le forum
Merci pour ce code qui est tres bon et bien commenté
Par contre je me suis un peu eloigné de cet exemple dans mon vrai fichier car je ne souhaite pas que l'utilisateur connaisse le mot de passe donc je n'inclus pas le champ "mot de passe"
Par contre les feuilles sont protégées et j'ai inclus les lignes adequates pour lever et remettre la protection

En plus, les données à modifier ne sont finalement pas rigoureusement identiques sur les 4 feuilles, j'ai donc fait un bouton per feuille avec des destinations de cellules differentes
Je n'ai pas compris ta proposition de "bout de code zip" pour eviter que ce soit la premiere ligne (fusionnée dans mon fichier)qui apparaisse systematiquement dans le premier champs
Je joins mon fichier, ce sera plus simple
Mon probleme restant est donc que le contenu des cellules soit pré rempli de façon à ce que si aucun changement n'est à faire ce soit plus simple
j'essaie d'adapter ton code pour cela puisque j'ai vu que tu l'avais fait
merci et bonne journée

 

[boudu]

Re : lancement boite de dialogue puis renvoi des données dans cellules

re
j'ai oublié de remettre la protection sur les 4 feuilles du fichier
il faut donc remettre toto en mot de passe sur toutes les feuilles..

 

[excalibur]

Re : lancement boite de dialogue puis renvoi des données dans cellules

re le fil pour les cellules fussionnees je pensais que tu arrivez pas a renseigner une cellule . pour le code dans mon esprit tu mettais 2 codes un utilisateur pour qu il puissent modifier certaines cellules & un autre code pour les feuilles que seul toi connais . enfin comme tu as fais c est pas mal
vu que tu as que 6 textboxs a renseignees j ai fais le plus simple possible par contre tu peus simplifier a un userform vu que tu qu une cellule qui change & le renseignement d un label
salutations