Résultats de la recherche

🤣🤣, j'adore ton humour, je vais essayer de comprendre avec un test et je reviens vers toi, merci🤣

Bonjour patricktoulon, pourrais-je comprendre quel est l'intérêt de modifier l'extension d'un classeur de XLSM en XLTM afin de tout simplement pouvoir réactiver le clic droit sur les onglets ? merci

Bonjour Le forum Bonjour Franc58 J'ai testé ta proposition, hélas cela ne fonctionne pas et je viens de m'apercevoir que j'avais déjà, lors d’un post-précédent, demandé de l'aide pour résoudre ce problème qui est toujours resté insoluble à ce jour. Désolé pour le dérangement... Bonne journée...

Bonjour Le forum, merci d’examiner mon problème Lorsque j'ouvre un classeur je lui demande de désactiver le clic droit sur les onglets avec : Application.CommandBars("ply").Enabled = False Lors de la fermeture, je souhaite que l'on ferme ce classeur systématiquement sans enregistrer (sauf si...

Bonjour le forum Bonjour JHA Merci de votre aide JHA, mais en fouinant un peu, il se trouve que c'est un problème connu et ce sujet a déjà été traité et résolu dans un autre fil : https://excel-downloads.com/threads/excel-se-trompe-dans-une-simple-soustraction.221863/ ou...

Bonsoir Le forum, J'ai besoin de vos conseils et je vous remercie pour votre aide Dans le classeur ci joint les formules en F12 ou F13 génère une erreur de type #Valeur# à cause de la soustraction sur certains PC Avez vous une idée de ce qui se passe ?? Est possible de forcer à réaliser les...

re, j'ai enfin trouvé tout simplement : =ET(K14="NON";OU(C14="POIS CHICHES";C14="CAROTTES")) Problème résolu merci beaucoup

Bonjour sylvanu, c'est quand même un peu plus court, merci beaucoup !! J'aimerai tenter autre chose en utilisant la validation des données, pourriez vous m'aider à adapter cette formule avec la validation des données de sorte que =SI(ET(K14="NON";OU(C14="POIS CHICHES";C14="CAROTTES")), on ne...

Bonjour le forum, pensez vous que l'on puisse réduire cette formule qui fonctionne : C5 = SI(OU(ET(C14="POIS CHICHES";(K14="NON"));ET(C14="CAROTTES";(K14="NON")));"entre dans le calcul";"ne rentre pas dans le calcul") mais je souhaite l'adapter avec la validation des données de sorte que si...

Bonjour le fil, Merci sousou , c'est exactement ce dont j'ai besoin, 👍 toutefois, pourriez ajouter un commandbutton pour quitter ? et enfin est il possible qu'une fois une ligne sélectionnée, je puisse me servir de la molette de la souris pour dérouler la liste complète de l'userform sans...

Bonjour le forum, Je souhaite à l'aide d'un bouton afficher un formulaire contenant une liste de noms et de codes modifiable située dans une plage nommée et que, grâce à ce formulaire, je puisse modifier les noms et les codes et enregistrer les modifications est ce que quelqu'un aurait dans...

Merci messieurs pour toutes ces précisions, j'en prends note Bonne soirée

Re, pour l'autodestruction, j'ai testé cette solution et çà a l'air de fonctionner Private Sub Workbook_Open() n = Environ("username") x = Application.IfError(Application.Match(n, [listUser], 0), 0) If x = 0 Then Application.Speech.Speak " Bonjour " & n & "! votre mission que vous l'acceptez...

re, ok, un grand merci quand même, je vais tester tout çà ! cdt

re, désolé mais toujours la même erreur enappuyant sur ESCAPE

Bonjour le fil, Bonjour patricktoulon, très ludique cette solution, j'ai ajouté Application.OnKey "{ESCAPE}", "", pour ne pas pouvoir arrêter la macro mais cela affiche une erreur, peut empêcher d'arrêter la macro ? merci

re, demain ,je teste cette solution merci

Excellent :D:D mais j'ai un bug à la fin avec : CreateObject("wscript.shell").Run vbsfile et ensuite je dois pouvoir avoir vérifier plusieurs username

re, oui il y a plusieurs noms et ne sont pas triés par ordre alphabétique

oui, j'ai fais comme m'a dit sylvanu pour bien vérifié mon username avec : Private Sub Workbook_Open() nom = Environ("username") MsgBox nom Set temp = [habilitation].Find(what:=nom) If temp Is Nothing Then MsgBox "coucou" ActiveWorkbook.ChangeFileAccess xlReadOnly End If End Sub ce problème...