Boutons, Userform et mise à jour de feuilles

paul87 · 28 Mai 2008

Bonsoir à tous, Bonsoir le forum,
dans ma Feuil1, à l'aide du CommandButton1, je crée un autre bouton (qui prend le libellé et la couleur souhaité à l'aide du UF2), que je positionne ou je veux dans cette meme feuille.
je souhaiterai que une fois crée le caption du ou des boutons crée aille dans la colonne 1 de la feuill2..
mais aussi que lorsque lon double click sur le bouton cela ouvre UF1 pour visualisation et/ou mise à jour...( cela fonctionne déja si l'on clique dans col1 de feuil2).....en fait ce serait la meme chose mais sur le bouton correspondant en Feuil1..
je ne sais pas si je suis tres clair
merci pour vos aides..
Paul

paul87 · 29 Mai 2008

Re : Boutons, Userform et mise à jour de feuilles

Bonjour à tous, Bonjour le Forum,
Si quelqu'un pouvait me filer un peu d'aide...svp..
après quelques essais je n'arrive à rien de fonctionnel..
Merci

Lii · 29 Mai 2008

Re : Boutons, Userform et mise à jour de feuilles

Bonjour,

Si tu ne tiens pas compte des observations qui te sont faites, tu ne t’en sortiras pas !
Donc redite : à la création du bouton, il faut programmer les macros associées !
Pour la copie du nom en Feuille 2 tu peux rajouter, par exemple, la ligne bleue :

Code:

Private Sub CommandButton1_Click()
  Range("A1").Select
 [COLOR="Blue"] Feuil2.Range("A" & Feuil2.Range("A65536").End(xlUp).Row + 1) = TextBox1.Value[/COLOR]
  Set bouton = Feuil1.OLEObjects.Add("Forms.CommandButton.1")

paul87 · 29 Mai 2008

Re : Boutons, Userform et mise à jour de feuilles

Re-
bonjour Lii. et merci..
il ne reste plus que la dernière partie, c'est à dire ....comment récupérer les données stockées en feuil2 sur le UF1 lors de son ouverture déclanchée par DblClick sur bouton quelquonque de la Feuil1

lorsque tu dis

à la création du bouton, il faut programmer les macros associées

tu parles des macros pour déplacement et ouverture du UF sur DblClick....je pense...
Mon souci c'est que si j'ajoute 100 boutons, il va falloir 100 macro associées au bouton...
a moins de faire une boucle 1 to 100 mais là aussi c'est un peu trop compliqué pour moi..!!!
Encore merci!!!

paul87 · 29 Mai 2008

Re : Boutons, Userform et mise à jour de feuilles

re bonsoir...
un peu d'étourderie....ou beaucoup, liée aux autres contraintes...ont fait que j'ai fait n'importe quoi...dans ce code
je crois que j'ai un peu usé de ta patiente Lii..!!! 1000 excuses!!
Bon j'ai remis de l'ordre, ça marche nettement mieux...!!!
encore le dernier point svp
l'ouverture du Uf1 à partir de la Feuil1...sur DblClick..sur n'importe quel bouton.. et récup des infos en Feuil2..
Encore Merci...

paul87 · 30 Mai 2008

Re : Boutons, Userform et mise à jour de feuilles

Bonjour à tous, Bonjour le Forum..
j'ai juste besoin d'un dernier coup de pouce pour terminer..
si quelqu'un pouvait m'aider..
svp

pierrejean · 30 Mai 2008

Re : Boutons, Userform et mise à jour de feuilles

bonjour paul87

Salut Lii

avant d'aller plus loin il faudrait peut-etre initialiser
ligne
dans l'userform1

Code:

Private Sub UserForm_Initialize()
 If ActiveSheet.Cells(ligne, 1) = "" Then Exit Sub
TextBox1.Value = ActiveSheet.Cells(ligne, 1)
TextBox2.Value = ActiveSheet.Cells(ligne, 2)
TextBox3.Value = ActiveSheet.Cells(ligne, 3)
TextBox4.Value = ActiveSheet.Cells(ligne, 4)
End Sub

paul87 · 30 Mai 2008

Re : Boutons, Userform et mise à jour de feuilles

re-
bonjour pierrejean
la var "ligne" est initialisée en module1

Code:

Public ligne As Integer

elle est utilisé pour l'init du UF1 à partir des lignes de la col 1 de la Feuil2..
et dans le code actuel cela fonctionne...
à moins que je n'ai pas compris le sens de ta remarque
ce que je n'arrive pas à faire c'est l'utilisation de ce meme UF avec DblClick sur boutons de la feuil1
Merci

pierrejean · 30 Mai 2008

Re : Boutons, Userform et mise à jour de feuilles

Re

Il n'est pas evident de savoir qu'il faut d'abord faire une selection en Feuil2 pour que ligne soit initialisée !!!!
Ensuite, quand on s'est affranchi de la premiere erreur due au fait que l'on crée une 2eme fois le bouton4 , l'userform1 fonctionne avec le nouveau bouton créé (ou les precedents)
toutefois il reste a savoir s'il fait ce que tu souhaites
2 conseils donc
1) donner une valeur a ligne des l'ouverture du fichier (dans workbook_open)
2) nommer les feuilles ou tu veux voir arriver les textbox

Lii · 30 Mai 2008

Re : Boutons, Userform et mise à jour de feuilles

Bonjour,

Paul, tu as remarqué que, dans mon dernier fichier, à la création d’un nouveau bouton, les macros associées étaient écrites. Donc ce qui est fait n’est plus à faire.

Es-tu sûr que cette éruption de boutons soit inévitable ?
Tu t’es rendu compte que la gestion n’était pas simple à programmer.
De plus, il faut faire attention que leur suppression éventuelle doive s’accompagner de la suppression des macros correspondantes.
Je n'ai pas géré les saisies en double des noms (problème supplémentaire).

Me pourrais-tu pas passer simplement par les cellules, plus faciles à gérer tant au niveau des formats que des évènements ?

Salut pierrejean, si tu as d'autres remarques ou d'autres simplifications cela m'intéresse. Je vais étudier tes dernières propositions mais je commence à saturer .

pierrejean · 30 Mai 2008

Re : Boutons, Userform et mise à jour de feuilles

Re

@ Lii

Vu BoutonsBaladeurs

Je n'ai certainement rien a t'apprendre !!!

par consequent je te laisse en compagnie de paul87 et de son acné

paul87 · 30 Mai 2008

Re : Boutons, Userform et mise à jour de feuilles

@Lii
effectivement, je n'ai sans doute pas choisi la méthode la plus facile à gérer,
surtout concernant les macros associées au boutons lors de leurs création automatique.
Toutefois, je suis quasi-certain de ne pas avoir a en supprimer, cette appli n'étant pas seulement destinée à suivre l'évolution de différents "test" mais aussi d'archivage. une des colonnes "step" sera consacrée aux "tests" terminés.(le fichier que j'ai joint tout au long de ce post n'est qu'un fichier de "brouillon". Dans mon appli définitive, il y aura une grosse quantité d'infos stockées en Feuil2)....si d'aventure je devais supprimer un/des boutons, j'ai bien compris qu'il fallait retirer les macros qui lui/leurs sont affectées.
Pour la gestion des éventuels doubles noms..je travaille sur environ une centaine de test différents avec des libellés trés spécifiques...donc j'espère pas de soucis de doublons en vue.
Je crois que maintenant j'ai tous les éléments pour travailler sur mon appli finale.
Mes sincères remerciements pour la qualité de ton aide, et ton excellent niveau de résistance à la saturation le plus compliqué n'étant pas de savoir mais d'adapter ce savoir à l'autre!!!

@pierrejean
Merci à toi aussi pour tes conseils...j'epère pour les autres membres de ce Forum, que cette éruption de boutons n'est pas contagieuse!!

paul87 · 1 Juin 2008

Re : Boutons, Userform et mise à jour de feuilles

Bonjour à tous, Bonjour le Forum,
De retour avec tous mes boutons...!!!! pour la dernière fois
pour juste une petite modif..sur cette appli..
Comment faire lors de la création d'un nouveau bouton, lorsque le libellé va se positionner en Feuil2, d'avoir aussi la couleur correspondante au "test" en Feuil2..
J'ai essayé de récupérer la valeur de la couleur avec une variale public 'Y".mais je ne sais pas comment faire après...!!!

pierrejean · 1 Juin 2008

Re : Boutons, Userform et mise à jour de feuilles

re

A tester

Code:

If OptionButton1 Then .Object.BackColor = RGB(255, 0, 0)       'rouge
    If OptionButton2 Then .Object.BackColor = RGB(0, 0, 255)       'vert
    If OptionButton3 Then .Object.BackColor = RGB(255, 255, 0)     'jaune
    If OptionButton4 Then .Object.BackColor = RGB(0, 255, 0)       'bleu
    If OptionButton1 Then Feuil2.Range("A" & Ligne).Interior.Color = RGB(255, 0, 0)
    If OptionButton2 Then Feuil2.Range("A" & Ligne).Interior.Color = RGB(0, 0, 255)
    If OptionButton3 Then Feuil2.Range("A" & Ligne).Interior.Color = RGB(255, 255, 0)
    If OptionButton4 Then Feuil2.Range("A" & Ligne).Interior.Color = RGB(0, 255, 0)

paul87 · 1 Juin 2008

Re : Boutons, Userform et mise à jour de feuilles

Re
Merci à toi pierrejean
c'est parfaitement ça..
merci beaucoup.
Paul

Boutons, Userform et mise à jour de feuilles

paul87

XLDnaute Impliqué

Pièces jointes

paul87

XLDnaute Impliqué

Lii

XLDnaute Impliqué

paul87

XLDnaute Impliqué

Pièces jointes

paul87

XLDnaute Impliqué

Pièces jointes

paul87

XLDnaute Impliqué

pierrejean

XLDnaute Barbatruc

paul87

XLDnaute Impliqué

pierrejean

XLDnaute Barbatruc

Lii

XLDnaute Impliqué

Pièces jointes

pierrejean

XLDnaute Barbatruc

paul87

XLDnaute Impliqué

paul87

XLDnaute Impliqué

Pièces jointes

pierrejean

XLDnaute Barbatruc

paul87

XLDnaute Impliqué

Discussions similaires