> 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
68,40 €Boîtier Fractal Design Define C avec panneau en verre trempé à 68,40 €
Valable jusqu'au 25 Juillet

Amazon propose actuellement l'excellent boîter moyen tour Fractal Design Define C Black TG avec un panneau en verre trempé à 68,40 € alors qu'on le trouve ailleurs à plus de 100 €. Le boitier PC Define est une plateforme conçue pour délivrer l'une des meilleures performances de refroidissement et de silence. 2 ventilateurs Dynamic GP12 120 mm sont inclus.


> Voir l'offre
999,99 €Portable 15,6' Lenovo Legion 5 (Ryzen 5, 8Go, SSD 512Go, RTX3060) à 999,99 €
Valable jusqu'au 25 Juillet

Cdiscount fait une promotion sur le PC portable Lenovo Legion 5 (15ACH6H) dédié aux joueurs qui passe à 999,99 € au lieu de 1300 €. Ce PC portable très bien équipé possède un écran 15,6 pouces LED Full HD, un processeur AMD Ryzen 5 5600H, 8 Go de RAM, un SSD de 512 Go et une carte graphique GeForce RTX 3060 6 Go dédiée qui avalera tous vos jeux sans broncher. Il est fourni sans OS, mais vous pouvez facilement installer Windows 10.


> Voir l'offre
313,90 €Ecran 27 pouces LG Ultragear 27GN850-B (IPS, WQHD, 144 Hz, HDR10, G-sync/FreeSync) à 313,90 €
Valable jusqu'au 25 Juillet

Amazon fait une promotion sur l'écran LG Ultragear 27GN850-B qui passe à 313,90 € au lieu de 445 € ailleurs. Cet écran possède une dalle 27 pouces WQHD (2560x1440) à 144 Hz, un temps de réponse de 1 ms. Il est compatible Nvidia G-SYNC et Adaptive Sync.


> 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