> Tous les forums > Forum Bureautique
 Bouton barre outils controle et macroSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
JeanDel
  Posté le 09/09/2006 @ 21:28 
Aller en bas de la page 
Petit astucien
Bonsoir chers ami(e)s, Je souhaite limiter à 5 le nombre de fois que l'on peut cliquer sur un bouton, comment faut-il s'y prendre svp. Voici le code qui s'exécute lorsque l'on clique sur le bouton : Sub AjouterNom() 'Bouton Pers suivante Application.ScreenUpdating = False Range("A3").Select Selection.Copy Range("A65536").End(xlUp).Offset(1, 0).Select 'Collage des valeurs Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.Font.ColorIndex = 37 'Couleur de la police Range("A4:F5").Select Selection.Copy Range("A65536").End(xlUp).Offset(1, 0).Select 'Collage des valeurs Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Call EffaceAjoutNoms Range("A14").Select Application.ScreenUpdating = True End Sub
Publicité
galopin01
 Posté le 11/09/2006 à 03:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
bonjour, ça semble un peu zarbi comme question... Dim FLAG ...en tête d'un module standart (Module1) ensuite à chaque appel de la macro : Sub AjouterNom() if FLAG < 5 then FLAG = FLAG+1 'If FLAG = 5 Then DétruireLeBouton '(éventuellement) 'blabla... (longue suite d'opérations) End If Een Sub Ceci dans l'hypothèse ou les 5 clics sont fait dans la même session. Sinon, si les 5 clics doivent être comptés sur plusieurs jours au lieu d'un FLAG il faut écrire "en dur" dans une "cellule espion". A+
JeanDel
 Posté le 11/09/2006 à 10:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Bonjour, Merci Galopin01, pour ta réponse. Cependant, ceci entraîne une autre question : Ce code agira-t-il sur un seul bouton ? Car je voudrais qu'il ne s'applique qu'au seul bouton "Ajouter" qui se trouve sur la feuille "Réservation" En te remeerciant de nouveau, je te souhaite une bonne journée.
Bérylion
 Posté le 11/09/2006 à 10:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut 2 questions : - c'est un bouton de barre d'outils ou un controle de formulaire ? - c'est quoi EffaceAjoutNoms ?
JeanDel
 Posté le 11/09/2006 à 11:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Bonjour Galopin 01, Bérylion, C'est OK, ca fonctionne super bien. Réponses : Galopin01 : Oui c'est au cours d'une même session Bérylion : 1 - Il s'agit d'un bouton de barre d'outils 2 - C'est l'appelle d'un autre code
JeanDel
 Posté le 11/09/2006 à 11:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
J'ai été un peu trop euphorique même si cela fonctionne très bien. Cependant, je suis appelé à cliquer sur ce bouton à chaque nouvelle inscription et la ca bloque. Je pense que Galopin01 avait bien cerné le problème et que j'ai besoin d'une cellule espion mais je ne sais comment faire. En cliquant sur le bonton "Ajouter", le code copie la zonne "identité" et ce au maximum de 5 fois. Ce qu'il me faudrait, c'est qu'après avoir cliqué sur le bouton "Nouveau" ca me permette de cliquer encore 5 fois sur le bouton "Ajouter" et ainsi de suite. Merci de partarger vos connaissances
galopin01
 Posté le 11/09/2006 à 12:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
Bonjour, Dans la macro Nouveau tu mets :[code]Sub NouveauMacro() FLAG = 0 Call AjouterNom End Sub[/code] A+
JeanDel
 Posté le 11/09/2006 à 12:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Re, Un grand merci à toi Galopin01, c'est vraiment ce que je souhaitais En te souhaitant ainsi qu'à Bérylion une excellente journée. A+
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
18,99 €Hub USB C 6 en 1 ZESKRIS (HDMI 4K, lecteur SD/MicroSD 2xUSB 3.0 et 1xUSB C PD 100W) à 18,99 €
23,99 € -21%

Amazon fait une double promotion sur le hub USB C 6 en 1 Selore qui passe à 18,99 €. On le trouve habituellement à 23,99 €. Ce hub vous permettra de rajouter un port HDMI 4K, 2 ports USB 3.0, 1 port USB C PowerDelivery de 100W, un lecteur de carte SD et un lecteur de carte microSD à votre ordinateur via un simple USB-C.


Voir l'offre
699 €Portable Acer Aspire (15.6 pouces, Core i5, 16 Go RAM, SSD 512 Go, Windows 11) à 699 €
799 € -13%

La boutique en ligne Acer propose actuellement l'ordinateur portable 15.6 pouces Acer Aspire 5 A515-45 à 699 € alors qu'on le trouve ailleurs à partir de 799 €. Ce portable est équipé d'un processeur AMD Ryzen 5 5500U, 16 Go de RAM, un SSD de 512 Go et un chip graphique Vega 7. Sa dalle de 15.6 pouces est Full HD IPS et mate. Ce PC dispose de toutes les dernières connectiques indispensables : 1x USB 2.0, 2 x USB 3.1 Gen 1 (dont 1 fonction charge même ordinateur éteint), 1 x USB Type-C, WiFi 6, bluetooth 5, Ethernet Gigabit. Il possède même un pavé numérique !

Une bonne affaire pour PC à l'aise partout : multimédia, bureautique, Internet. 

Le tout tourne sous Windows 11.


Voir l'offre
649,99 €Acer Nitro 5 (17,3'' FHD, Core i5,8 Go, SSD 512Go, GeForce GTX 1650) à 649,99 €
769 € -15%

Cdiscount fait une promotion sur l'ordinateur portable Acer Aspire Nitro AN517-52-53X qui passe à 649,99€ au lieu de 769 €. Ce portable dédié aux joueurs dispose d'un écran 15,6 pouces FHD 1920 x 1080, d'un processeur Intel Core i5 10300H (6 coeurs), de 8 Go de mémoire RAM (1 slot de libre), d'un SSD de 512 Go et d'une carte graphique Nvidia GeForce GTX 1650 avec 4 Go de mémoire. 

L'ordinateur est fourni sans OS mais vous pouvez facilement installer Windows ou bien Linux.


Voir l'offre
79,99 €Clavier sans-fil bluetooth Logitech MX Keys Mini à 79,99 €
109 € -27%

Amazon fait une belle promotion sur le clavier sans-fil bluetooth Logitech MX Keys Mini qui passe à 79,99 € alors qu'on le trouve ailleurs autour de 109 €. Profitez d'une frappe parfaitement fluide, naturelle et précise grâce aux touches concaves qui épousent la forme de vos doigts et leurs bords arrondis qui offrent un retour satisfaisant.  

Le clavier Logitech MX Keys Mini est équipé de la technologie Logitech Flow. Cette dernière, vous permet de taper du texte sur un ordinateur et de le finir sur un autre, d'effectuer des copier-coller de texte, d'une image ou encore d'un fichier d'une machine à une autre. Le Logitech MX Keys est aussi équipé de capteurs de proximité qui détectent vos mains et illuminent le clavier au moment où vos doigts approchent des touches. A l'inverse, les touches rétro-éclairées s'éteignent quand vous quittez le bureau pour économiser de l'énergie. Aussi, l'intensité du rétro-éclairage s'adapte aux conditions d'éclairage ou peut être définie manuellement.

Notez que cette version Mini ne possède pas de pavé numérique.


Voir l'offre

Sujets relatifs
Excel 2007 Affecter bouton barre d'outils à macro.
Bouton annuler modification dans la barre d'outils
BOUTON dans barre d'outils
Barre d'outils "Macro" disparue résolu
Macro barre d'outils sur xls ?
bouton macro barre d'outil
Comment récupérer la barre d'outils dans Word 2007 ?
Barre d'outils NitroPDF récalitrante
Bouton macro dans feuille Excel 2010
Word 2007 barre d'outils
Plus de sujets relatifs à Bouton barre outils controle et macro
 > Tous les forums > Forum Bureautique