Résultats pour "bouton copier userform"

7'164 résultats pour cette recherche

Bonjour,

j'ai un fichier excel avec un userform, lorsque je fais une modification a travers mon userform elle n'est pas détecté par excel donc je ne peux pas revenir an arrière sur ma feuil excel est ce qu'il y a une option a activer sur excel pour ça ?

Bonjour à toutes et tous,

Je cherche à coller la valeur d'un TBTotal dans un UserForm3 vers le TBMontant d'un autre UserForm_Famille qui résume toutes mes données

Si vous avez besoin du fichier, n'hésitez pas, c'est gratuit

Un grand merci d'avance

Amitiés

Pierrot

Bonjour tout est dans le titre,

j'ai 4 feuilles

3 avec la même macro répétée et un bouton identique pour chaque feuille.

1 avec un bouton général qui doit "déclencher les trois autres.

j'ai vraiment essayer plusieurs choses, comme affection d'un bouton. je commence à me familiariser avec le mode création et les différents menus, mais sans résultats.

Bonjour,

Etant débutant sur VBA, je me tourne vers cette communauté pour une aide.

J'ai créer un bouton de commande X qui m'ouvre un userform. Ce dernier a trois boutons.

J'aimerais que :

  • si je clique sur le bouton 1 de mon userform ce dernier change la couleur du bouton X en rouge
  • si je clique sur le bouton 2 de mon userform ce dernier change la couleur du bouton X en bleu
  • etc

Voici ce que j'ai créé:

bouton de commande X :

Sub Bouton45_Cliquer()
UserForm1.Show
End Sub

Userform1

Private Sub Commande1_Click()
CommandButtonX.BackColor = RGB(255, 0, 0)
End Sub

etc.. pour les boutons 2 et 3

Ca ne fonctionne pas. Quelqu'un aurait il une idée sur ce problème ?

Peut être que ma logique de départ n'est pas bonne non plus.

En vous remerciant d'avance pour vos idée.

Bonjour et bon dimanche à toutes et tous,

je dois en utilisant les deux boutons Toggle, faire en sorte de faire défiler en cellule G8 de la Feuil1

en cliquant sur le bouton toggle 1 pour Monter et l'autre pour faire descendre la liste des mots

ma petite demande : comment coïncider et effectuer correctement mes deux fléches forms de la feuille ( ArrowUP et ArrowDOWN )

ci-joint le classeur Excel

j'ai ceci pour les 2 Toogle bouton :

Private Sub ToggleButton1_Click()
    If Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g10").Value Then
       ToggleButton1.Caption = Sheets("Feuil1").Range("g11").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton1.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value

    ElseIf Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g11").Value Then
       ToggleButton1.Caption = Sheets("Feuil1").Range("g12").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton1.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value

    ElseIf Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g12").Value Then
       ToggleButton1.Caption = Sheets("Feuil1").Range("g13").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton1.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value

    ElseIf Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g13").Value Then
       ToggleButton1.Caption = Sheets("Feuil1").Range("g10").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton1.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value
      End If

End Sub

Private Sub ToggleButton2_Click()
    If Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g13").Value Then
       ToggleButton2.Caption = Sheets("Feuil1").Range("g12").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton2.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value

    ElseIf Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g12").Value Then
       ToggleButton2.Caption = Sheets("Feuil1").Range("g11").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton2.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value

    ElseIf Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g11").Value Then
       ToggleButton2.Caption = Sheets("Feuil1").Range("g10").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton2.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value

    ElseIf Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g10").Value Then
       ToggleButton2.Caption = Sheets("Feuil1").Range("g13").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton2.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value
      End If
End Sub

En vous remerciant d'avance pour vos propositions

crdlt,

André

zfleches

Bonjour le forum,

J'ai un bouton dans un Userform(1) qui se nomme "Modifier(1)" voir en PJ. J'aimerais que quand je clique sur celui-ci, un autre Userform(2) s'ouvre et m'affiche un autre bouton "Modifier(2)" (caché ultérieurement).

Private Sub Bt_Modifié_auteur_Click()
If IsNull(Lbx_afficher_auteur.Value) = True Then
    MsgBox "Veuillez sélectionner un auteur"
Else

    UF_Cher_Supp_Modif_auteur.Hide
    UF_Ajouter_Auteur.Show
    Bt_modif_auteur.Visible = True

End If

End Sub
Bt_modif_auteur

est le bouton qui est caché et que j’aimerais montré. Le problème est que Excel comprend

Bt_modif_auteur

comme une VARIABLE et il veut la définir (j'ai mis un

Option Explicit

).

Si quelqu'un aurait une idée pour résoudre ce problème....

uf 1 et bt 1 uf 2 et bt 2

Bonjour à tous,

Je cherche à atteindre deux boutons web mais les codes sources ne contiennent pas les ID ou NAME des boutons

Voici le 1er :

<INPUT height=21 src="images/btnGo.gif" type=image width=80>

Je suis parti sur une solution de ce type (info qui peut servir ce bouton et le 3eme input de la page):

For Each MyHTML_Element In Document.getElementsByTagName("input")
     If MyHTML_Element.Type = "image" Then
         MyHTML_Element.Click: Exit For
     End If
Next

Le 2eme bouton qui me pose problème et le suivant :

<INPUT onclick="javascript:void(editRequete_request('CTRL PGOC','perso'))" type=button value=Editer>

Merci d'avance pour votre aide.

Cordialement,

Bonjour à tous,

Une question que je me pose depuis un moment déjà:

Va-t-on préférer de mettre un bouton ActiveX au lieu du bouton de contrôle de formulaire selon les situations?

Merci d'avance pour votre aide.

Bonjour,

Je vous explique mon problème: J'ai un bouton sur ma première feuille et un autre sur ma cinquième feuille. Le bouton de la cinquième feuille a un code vba et le premier lui n'a aucun code. Ce que je souhaiterai faire c'est d'activer le bouton de la cinquième feuille en cliquant sur le bouton de la première feuille.

Merci d'avance

Bonjour a tous,

Je reviens pour un cas qui depuis 2 jours me laisse perplexe.

au fait j'ai déjà mis an place un formulaire de gestion de mes interventions avec userform

Maintenant j'essaie de créer un bouton qui me calcul automatiquement les sous-totaux par équipement (AA1-AA2-AA3 etant un groupe)

(BB1-BB2-BB3 etant un autre groupe) et en prenant en compte le fait que le nombre de lignes sont variable par équipement.

le 2eme point, concerne un bouton RESET qui me permettra d'effacer le contenu de ma base de donnée (sauf l'en tête bien sur)

a noter qu'il y a des formules a la colonne G (date fin -date debut) , que je souhaiterais rendre invisible sauf en cas d'ajout d'une nouvelle ligne.

ce formulaire pourra ainsi être utiliser par plusieurs utilisateurs qui pourront remettre le compteur a zéro en cliquant sur le bouton RESET et reprendre sur une nouvelle base.

J'ai mis en attaché une illustration de ce que je souhaiterai avoir et je remercie a l'avance les âmes charitables qui pourront me donner un tuyau par rapport a ma requête.

28classeur-3.xlsx (17.12 Ko)

bonjour à tous,

je cherche un moyen de créer deux boutons, un pour réinitialiser un tableau et l'autre pour l'imprimer.

J'ai vu que cette problématique à déjà été résolue mais sur la conversation il n'y avait pas d'explication sur "comment faire?", et vu que je ne suis qu'une novice en matière d'Excel je n'ai pas réussi à comprendre.

Merci de vos réponses,

bonjour à tous,

J'ai besoin d'un petit programme pour faire des devis, je veut pouvoir ajouter une étape d'usinage avec un bouton : ça c'est bon , un membre du forum (fred , encore merci fred) m'a aidé et ça marche ! maintenant j'aimerai créer un bouton qui supprimerai la ligne qui viens d'être crée grâce au bouton précédent : la je suis coincé ! j'ai tout essayer mais si je met le code de ce bouton dans le code du précédent il manque un "end sub" et si je le met après et ben mes variable (un compteur en l'occurrence) ne sont plus déclarées !!!!!

HELP!!!!!!! merci

39forum-vba.xlsx (31.23 Ko)

Bonjour,

J'ai 3 Boutons Radio et je souhaite "lier" un Bouton Radio à un même Bouton Simple :

Bouton Radio 1 "lier" au Bouton Simple qui execute ceci

Sub Compo_100_M_1()
    Range("K15").Value = "100 % M"
    Range("I21").Formula = "=I15"
    Range("I29").ClearContents
End Sub

Bouton Radio 2 "lier" au Bouton Simple qui execute ceci

Sub Compo_100_M_2()
    Range("K15").Value = "100 % M"
    Range("I24").Formula = "=I15"
    Range("I30").ClearContents
End Sub

Bouton Radio 3 "lier" au Bouton Simple qui execute ceci

Sub Compo_100_M_3()
    Range("K15").Value = "100 % M"
    Range("I25").Formula = "=I15"
    Range("I31").ClearContents
End Sub

Comment je peux faire ca ?

Sachant que je veux pouvoir activer seulement un des 3, pas les 3 en même temps ...

Merci d'éclairer ma lanterne

Cdlt

GeGaX

Bonjour,

Je reviens à nouveau vers vous (le VBA, c 'est top ! ) mais mes connaissances sont limitées, je fais du bricolage fonctionnel si vous verriez le code vous me diriez arrête toi de suite et retourne faire autre chose ...

Ma feuille excel est un simulateur de combat pour un jeu populaire en ce moment, et il me reste une dernière chose à faire pour quelle soit 100% fonctionnelle pour tout ceux de mon alliance.

J'aimerais attribuer à un bouton radio un type de soldats, ex: Soldats_Lourds, cette attribution me sert pour switcher leurs compositions, ex: 100%M ou 75%M-25%D, ces compos se font automatiquement cliquant sur un bouton et inscrit le nombre de Soldats en conséquence dans le tableau seulement j'arrive pas a attribuer mon module1 au bouton radio 1 etc ...

En Vert : Les fameux Bouton Radio qui définissent le type de soldats (Non fonctionnels)

En Jaune : Les boutons qui repartissent automatiquement le nombres de soldats au type de soldat (ex si je clic sur 100%M et que j'ai rempli la case NB_Soldats_Flancs avec 150, les 150 sont attribués automatiquement au Epées 2 Mains ) (Fonctionnel)

En Rouge : c'est la que je visualise l'attribution des boutons compositions

Voila le code pour les boutons Composition:

Sub Compo_100_M()
    Range("K15").Value = "100 % M"
    Range("I24").Formula = "=I15"
    Range("I30").ClearContents
End Sub
Sub Compo_75_M_25_D()
    Range("K15").Value = "75 % M - 25 % D"
    Range("I24").Formula = "=I15*(3/4)"
    Range("I30").Formula = "=I15*(1/4)"
End Sub
Sub Compo_50_M_50_D()
    Range("K15").Value = "50 % M - 50 % D"
    Range("I24").Formula = "=I15*(1/2)"
    Range("I30").Formula = "=I15*(1/2)"
End Sub
Sub Compo_25_M_75_D()
    Range("K15").Value = "25 % M - 75 % D"
    Range("I24").Formula = "=I15*(1/4)"
    Range("I30").Formula = "=I15*(3/4)"
End Sub
Sub Compo_100_D()
    Range("K15").Value = "100 % D"
    Range("I24").ClearContents
    Range("I30").Formula = "=I15"
End Sub

Les boutons radio doivent agir sur les cellules suivantes

Lourds : I21 et I29

Vétérans : I24 et 30

Garde Roy : I25 et I31

et c 'est la que je peche je vois pas comment faire ... je pensais que j'aurais pu attribuer le module 1 contenant les formules pour les Lourds puis le module 2 pour les Vétérans et en dernier le module 3 pour la Garde Roy. mais quand je vais ça il me dit nom ambiguë ... surement car il détecte 3 formule identiques ...

Si vous voulez bien me donner un dernier coup de pouce ça serait top

Merci

Cdlt

GeGaX

Bonjour,

Je suis enseignant d'EPS et nouveau en vba, je cherche à mettre au point une feuille d'appel tactile ( Il faut vivre avec son temps). Je suis parvenu à arranger ou établir les différentes macro dont j'avais besoin (pour la majorité en m'aidant de vos apports, milles merci), cependant je suis certain qu'il doit être possible d'ajouter quelque chose au code pour qu'il se répète pour chaque bouton sans avoir à modifier manuellement les valeurs correspondantes, d'autant que vu le nombre de bouton ce serait un travail fort fastidieux!!

Pour plus de clarté je vous joins une de mes formules.

Je souhaiterai que cette dernière s'applique du bouton 1 au bouton 455.

Private Sub ToggleButton1_Change()

If ToggleButton1 Then

ToggleButton1.BackColor = &HFF& 'Vert

ToggleButton1.Caption = "ABSENT"

Else

ToggleButton1.BackColor = &HFF00& 'Rouge

ToggleButton1.Caption = "PRESENT"

End If

End Sub

Private Sub ToggleButton1_Click()

If ToggleButton1.Value Then

Range("O3").Select

ActiveCell = ActiveCell + 1

Else

Range("O3").Select

ActiveCell = ActiveCell - 1

End If

End Sub

Au besoin je vous joins le fichier complet pour une meilleur appréhension du rendu que je souhaite obtenir.

D'avance merci de votre contribution!

Sportivement! ^^

Bonjour à tous,

Je tiens à préciser que je suis novice en tous ce qui concerne les macros ou les trucs du genre VBA. C'est la raison pour laquelle je vous sollicite. Faute d'avoir essayé et trouvé quelques topiques similaires, je n'ai jamais réussi à faire fonctionner ce que je souhaite mettre en place.

Je m'explique je suis actuellement sur la création d'un annuaire téléphonique sous Excel pour mon travail, jusque-là tout va bien.

Là où ça bloque, c'est que je souhaiterais créer un bouton "rechercher" qui l'apparence d'une "forme" (insertion=>formes) et qui lorsque on clique dessus fait apparaître une petite fenêtre permettant de saisir le nom, service ou mot que l'on recherche. Il serait bien que le résultat de la recherche apparaisse sur une cellule sous forme de lien.

Il y a aussi 2 autres boutons que je souhaiterais mettre en place, c'est les boutons "retour" et "suivant" comme sur Internet Explorer.

Mes questions :

Est-il possible que le bouton "Retour" puisse remonter à la ou les dernières pages visitées?

Pouvez-vous me l'expliquer et m'aider à créer ces 3 boutons avec les macros correspondantes?

Ci-joint le fichier test à votre disposition.

Merci d'avance.

Cordialement.

213test.xlsm (246.48 Ko)

Bonjour,

J'ai deja ouvert crée un poste la dessu mais je n'est toujours pas trouver de réponse donc je repose mon problème sur ce nouveau poste :

J'ai 2 feuilles dans mon classeure avec dans la feuille 2 un bouton qui active une macro. Je voudrai crée un bouton dans la feuille 1 qui active le bouton dans la feuille 2.

Quel est le code ?

Bonjour,

J'ai 2 feuilles dans mon tableur avec un bouton dans la feuille 2 qui lance une macro.

J'aimerai crée un bouton dans la feuille 1 qui active le bouton dans la feuille 2, merci de m'aider.

Bonjour à tous, j'ai un soucis et j'ai besoin de votre aide, je m'explique :

J'ai crée un userform24 qui s'ouvre par le biais d'un bouton, jusque la c'est bon

Dans ce userform24 j'ai une Combobox1 avec des noms de personnes ( ça va chercher les données dans l'onglet du classeur nommé "BDD COND" ( les noms sont en colonne A)

pour bien m'expliquer sur cet onglet "BDD COND"

en colonne B = le prénom

en colonne C = la validité du permis de conduire

en colonne D = la validité d'un document de la personne

en colonne E = la validité de l'accueil de cette personne

en colonne F = l'immat véhicule de la personne

en colonne G = la validité de ce véhicule

pour revenir maintenant à ce userform24

j'ai donc ce combobox1 qui va chercher les noms en liste déroulante ( ça fonctionne )

j'ai crée sur ce userform 3 boutons : RECHERCHER / MODIFIER / AJOUTER avec le code VBA pour chaque bouton que je vous affiche

Private Sub CommandButton1_Click()

'double clik sur le bouton ajouter userform24 ( gestion de la BDD COND par userform )
If ComboBox1.Value = "" Then
MsgBox "Veuillez renseigner le champs 'Nom'"

Else

Dim Ligne As Integer
If MsgBox("Confirmez vous l'ajout du conducteur ?", vbYesNo, "confirmation") = vbYes Then
Worksheets("BDD COND").Select
Ligne = Sheets("BDD COND").Range("A456541").End(xlUp).Row + 1

'Nom
Cells(Ligne, 1) = ComboBox1.Value

'Prénom
Cells(Ligne, 2) = TextBox1.Value

'Société
Cells(Ligne, 8) = TextBox2.Value

'Validité du permis de conduire
Cells(Ligne, 3) = TextBox3.Value

'Validité du titre ADR
Cells(Ligne, 4) = TextBox4.Value

'Validité de l'Accueil Innospec
Cells(Ligne, 5) = TextBox5.Value

'Immatriculation du tracteur
Cells(Ligne, 6) = TextBox6.Value

'Validité des mines du tracteur
Cells(Ligne, 7) = TextBox7.Value

Unload UserForm24
UserForm24.Show

Else
End If
End If
End Sub

Private Sub CommandButton2_Click()

'double clik sur le bouton modifier usrform24 ( gestion de la BDD COND par userform )
Dim modif As Integer
If Not ComboBox1.Value = "" Then
Sheets("BDD COND").Select
modif = ComboBox1.ListIndex + 2

'Nom du conducteur
Cells(modif, 1) = ComboBox1.Value
'Prénom du conducteur
Cells(modif, 2) = TextBox1.Value
'Société du conducteur
Cells(modif, 8) = TextBox2.Value
'Validité du permis de conduire
Cells(modif, 3) = TextBox3.Value
'validité du titre ADR
Cells(modif, 4) = TextBox4.Value
'Validité de l'accueil Innospec
Cells(modif, 5) = TextBox5.Value
'Immatriculation du tracteur
Cells(modif, 6) = TextBox6.Value
'Date des mines du tracteur
Cells(modif, 7) = TextBox7.Value

MsgBox ("Modification effectuée")
Else
MsgBox ("Veuillez selectionner le nom du conducteur à modifier")
Exit Sub
End If

Unload UserForm24
UserForm24.Show 0

End Sub

Private Sub CommandButton3_Click()

'double clik sur le bouton recherche userform24 ( gestion de la BDD COND par userform )
If Not ComboBox1.Value = "" Then
Dim no_ligne As Integer

no_ligne = ComboBox1.ListIndex + 2

ComboBox1.Value = Cells(no_ligne, 1).Value
TextBox1.Value = Cells(no_ligne, 2).Value
TextBox2.Value = Cells(no_ligne, 8).Value
TextBox3.Value = Cells(no_ligne, 3).Value
TextBox4.Value = Cells(no_ligne, 4).Value
TextBox5.Value = Cells(no_ligne, 5).Value
TextBox6.Value = Cells(no_ligne, 6).Value
TextBox7.Value = Cells(no_ligne, 7).Value

Else
End If
End Sub

Private Sub UserForm_Initialize()

Dim LastLig As Long
LastLig = Sheets("BDD COND").Cells(Rows.Count, "A").End(xlUp).Row
Me.ComboBox1.RowSource = "'BDD COND'!A5:A" & LastLig
End Sub

Si un d'entre vous bien mieux expérimenté que moi peut contrôler mon VBA ce serait un grand merci !!!

Bonsoir à toutes et à tous, j'espère que vous allez bien.

Ma question est la suivante : Peut-on ajouter des éléments dans un userform à l'aide d'un bouton (présent dans le même userform)?

Je m'explique :

Par exemple, j'ai des champs (textbox) de nom, prénom, âge... pour chaque personne (identifiant). J'aimerai dans mon userform saisir comme si je saisissais dans une base de données :

Id personne x :

Nom : aaa

Prénom : aaa

âge : 18

Appuyer sur le bouton ajouter (qui copiera ces champs et les collera dans un endroit de mon userform)

Id personne y :

Nom : bbb

Prénom : bbb

âge : 20

Ou bien que me proposez-vous comme solution?

Merci par avance de vos retours.

Recherches récentes

copier resultat userformchamp_recherche xlsconsoliderconsolidationfiltregestion archivesvendredi moiseuromillionenvoie mail automatiquesupprimer lignesupprimer ligne valeur feuillestopbon cointableau croise dynamiqueajouter menuajout menumodifier menumenu supplementaireville code postal32440 caste lnau auzanreport contenu