Profil de cs_MPi - CodeS SourceS

Probleme avec clic droit

Bonsoir tout le monde, Bonsoir forum, Je lance une macro à l'aide d'un BeforeRightClick, elle fonctionne bien, cependant j'aimerai savoir si il était possible d'empêcher le menu contextuel de s'afficher ? le code ci-dessous empèche bien le menu contextuel de s'afficher mais il se ré affiche immédiatement Cancel=True ... Lire la suite

Vote

On pourrait aussi utiliser le double-click plutôt que right-click (?) Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Toujours en utilisant Cancel = True pour sortir du mode Edition de cellule -- MPi²

Quitter un Query

Bonjour à tous, Voilà mon code : Public Function ProcessusActif(NomProcess) As Boolean Application.ScreenUpdating = False Dim svc As Object Dim squery As String Dim oproc Dim Actif As Boolean Set svc = GetObject("winmgmts:root\cimv2") squery = "select * from win32_process" Actif = False For Each ... Lire la suite

Bonjour, As-tu essayé en mettant un Stop après la boucle For...Next pour voir si la Function n'était pas appelée en boucle? Je pensais à mettre Application.EnableEvents à False en début de Function et à True à la fin Ou encore mettre un DoEvents en début de boucle. -- MPi²

Enregistrement fichier excel - VBA

Bonjour, Je me tourne vers vous aujourd'hui car j'ai un problème avec mon code. En effet, je dois créer plusieurs feuille et renommer chaque première feuille de mes nouveau fichier qui correspond au nom de la 1ère feuille de mon fichier de base. Sub save()Dim wkb As WorkbookSet wkb = Workbooks.AddDim shCounter As IntegerDim ws As Wo... Lire la suite

Bonjour, Essaie en ajoutant l'extension à Base -- MPi²

Signature Outlook dans macro Excel

Bonjour, J'ai une macro Excel qui me permet d'envoyer un mail avec un fichier en PJ. Le problème est que je ne sais pas quel code ajouter pour que ma signature Outlook apparaisse. Il faudrait un code qui récupère ma signature qui se trouve dans le chemin ci-dessous : C:\Users\Alexis\AppData\Roaming\Microsoft\Signatures\- Cordialem... Lire la suite

Bonjour, Après cette ligne Set MonMessage = MaMessagerie.createitem(0) Ajoute un .Display qui va mettre ta signature MonMessage.Display Il te reste à concaténer la signature à ton contenu MonMessage.body = Contenu & MonMessage.body

Soucis pour mettre variable dans nom fichier

Bonjour, lors de l'enregistrement j'aimerais qu'il me mette les information de strFichierPDF mais quand ca enregistre sa me met le titre du formulaire, j'ai essayé différente manipe mais sa me met une erreur voici mon code: Dim GESMOB_App1 As DAO.Database Dim strFichier As String Dim strFichierPDF As String Dim strEtat As S... Lire la suite

Bonjour, Je pense que le Now va insérer des caractères invalides ... -- MPi²

Formule imbriquée sous VBA

Bonjour à tous, J'ai un soucis de syntaxe avec des formules imbriquées sous VBA, IfNa If Range("F25").Value = "J" Then Vlookup (Range("B25"),Base_M.O,2,False)*Range("G25"),(Vlookup(Range("B25"),Base_M.O,4,FALSE))*Range("G25")),Range("H25").Value) End With Si quelqu'un peut m'aider à trouver la bonne syntaxe svp ? Cordialem... Lire la suite

Vote

Bonjour, Pas sûr de bien comprendre ce que tu veux faire dans SelectionChange() ??? La macro va être appelée à chaque fois que tu cliques une cellule, n'importe laquelle... Peut-être ceci? If Range("F25") = "J" Then Range("H25") = Application.WorksheetFunction.VLookup( _ Worksheets("Fiche_REX_...

Atteindre une valeur et developper les lignes c

Bonjour, Dans mon classeur Excel, je cherche à créer une liste de boutons (une barre d'outils personnalisée ?) qui me permettrait d'atteindre et de me positionner sur une valeur cible Tableau exemple : https://www.cjoint.com/c/HEvgGnuQ7V5 Dans ce tableau en cliquant sur le bouton "1" j'aimerais atteindre la 1ère cellule correspondan... Lire la suite

Pour masquer les autres sélections, il suffit d'ajouter cette ligne à mon code. Si c'est celui que tu veux utiliser, ben sûr. ...................... If Target.Address(False, False) = "A1" Then ActiveSheet.Outline.ShowLevels RowLevels:=1 '

Une autre méthode sans bouton. Plus simple selon moi. Tu mets une liste déroulante de choix en A1 et tu lui donnes les valeurs nécessaires (1 à X) Et tu interceptes le changement de cette cellule. Code à mettre dans la feuille Private Sub Worksheet_Change(ByVal Target As Range) Dim I As Long, nbLignes As Long Dim Debut As Long...

Une autre méthode Sub Afficher() Dim I As Long, nbLignes As Long Dim Debut As Long, Fin As Long Dim Bouton Dim Valeur As Integer Dim Tablo nbLignes = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row Bouton = Application.Caller Tablo = Split(Bouton, " ") Valeur = Tablo(1) For I = 4 To nbLignes ...

Bonjour, Une façon de faire si tu n'as pas plus de 9 boutons Autrement il faudrait utiliser une autre méthode pour trouver la valeur à afficher. Et si tu n'avais pas de sous-totaux, un simple filtre suffirait Dim I As Long, nbLignes As Long Dim Debut As Long, Fin As Long Dim Bouton Dim Valeur As Integer nbLig...

code VBA : bouton ajout dans une base

Bonjour, j'ai réaliser un formulaire qui me permet de transcrire des enregistrement avec l'ajout d'un id dans la première colonne qui la valeur de la cellule active -1 voici le code mais cela ne veut pas marcher . Merci à vous . Private Sub BtnAjoutdansBase_Click() Sheets("source").Activate Range("A1").Activate Selection.End(x... Lire la suite

Bonjour, Change l'indice de colonne. Tu écris toujours 1... ActiveCell.Offset(0, 1).Value = CbPublication.Value ActiveCell.Offset(0, 1).Value = TxtDate .... -- MPi²

saisir l heure sans les points

Bonjour, j'ai un fichier pro sécurité et dans ce tableau je tapes direct l'heure sans les points et en validant c'est au format heure exemple: 1200 devient 12:00 merci d'avance

Qu'entends-tu par "fichier pro sécurité" ? Si tu changes le format de cellule en Standard, tu devrais pouvoir écrire une heure sans les points, mais ça demeurera un nombre et non une heure... Et si tu veux qu'il y ait toujours 4 chiffres incluant les 0 de début (ex: 0012), il faudra y aller d'un format personnalisé dans lequel tu mets...

Copie feuille excel avec mise en page et en-tête e

Bonjour, Dans une macro, j'aimerais créer une copie d'une feuille dans un nouveau classeur: ThisWorkbook.Sheets("Bon").Cells.Copy 'After:=Sheets(Sheets.Count)NewBook.Sheets("Feuil1").Range("A1").PasteSpecial Seulement quand j'ouvre le fichier créé, les cellules ont en effet la même taille... mais je ne conserve pas mon en-tê... Lire la suite

Bonjour, En principe, seule cette ligne devrait te créer un nouveau fichier avec un onglet identique à l'original ThisWorkbook.Sheets("Bon").Cells.Copy Nul besoin du NewBook. pastespecial Seulement faire un SaveAs.... -- MPi²

Besoin de conseil et d'aide pour du VBA

Bonjour je suis débutant dans le Visual Basic et j'ai besoin d'aide et de conseil sur une macro. Voila dans le cadre d'un stage, je dois créer une macro qui quand je met " absent " dans la feuille 1 à une date sur une ligne précise et un ID dans une colonne précise, que ça m'emmène a la feuille 2 et me propose de rentrer le type de con... Lire la suite

Bonjour, Commence par enlever cette ligne On Error Resume Next Je pense que tu devrais avoir une erreur sur cette ligne, puisque f devrait être = 0 ab = FpChantier.Cells(7, f).Value Si c'est la colonne F que tu vises, alors mets des guillemets autour... -- MPi²

Vérifier dans une colonne si les valeurs sont triées

Bonjour, j'ai un une feuille excel sur laquelle j'inscris des valeurs en ligne. Via VBA, chaque valeurs qui composent ces lignes sont recopiées dans plusieurs feuilles. Pour faire simple, je fais le tour d'un bâtiment en relevant différent niveau selon l'ordre de mon tour, puis je recopie mes données telles quelles. Ensuite la macro re... Lire la suite

Bonjour, Plutôt que de mettre systématiquement un MsgBox à chaque erreur, emmagasine-les numéros de lignes dans une chaîne de caractères. À la fin, si ta chaîne est vide, tu passes droit sinon tu affiches la chaîne dans un MsgBox. -- MPi²

Macro d'Excel 2010 ne fonctionne plus sur Excel 2016

Bonjour, Jordane45 m'a sorti d'affaire pour un problème du même type à savoir des macros qui ne fonctionnent plus sur Excel 2016 alors qu'elles le faisaient sur 2010. J'ai essayé de lui poser la question en répondant à son message mais ne suis pas sûr qu'elle soit bien partie. Je m'adresse donc à vous tous. On m'a fait cette macro pour... Lire la suite

Bonjour, Est-ce que ta version 2016 est 32 ou 64 bits? Ça pourrait peut-être avoir une incidence sur le programme Acrobat Distiller... (?) Autrement, quand tu vas dans les références, est-ce qu'il y a "Manquant" à côté du nom? -- MPi²

Marco Excel ne fonctionne plus en version 2016 Résolu

Bonjour, Je suis un utilisateur excel qui ne fait pas de programmation et viens d'acheter la version 2016. La macro ci-dessous ne fonctionne plus le 'c' de 'For Each c In Selection' est en surbrillance et j'obtiens le message '' Projet ou bibliothèque introuvable... For Each c In Selection Select Case (c) Case 1: c.Interior.Co... Lire la suite

Ceci fonctionne sous 2016 En passant, évite les Select/Selection, sauf si nécessaire, qui ne servent à rien d'autre que de ralentir le processus Sub couleur_cellules() Dim C As Range Range("ba22:ba52").Copy Range("c22,f22,I22,L22,O22,R22,U22,X22,AA22,AD22,AG22,AJ22,AM22,AP22,AS22").PasteSpecial Paste:=xlPasteFormats ...

Bonjour, Est-ce que "C" est utilisé à quelque part dans ton code autre que pour une variable Range? -- MPi²

Boucle For avec un classeur qui ouvre d'autres classeurs

Salut à tous, J'ai le problème suivant. Sur mon classeur Reporting, je recherche (à l'aide d'une boucle For) les noms des collaborateurs et à chaque fois, le code ouvre le classeur concerné. Le problème est qu'à la prochaine valeur, le code lit les cellules du classeur du collaborateur qui vient d'être ouvert au lieu de lire toujours s... Lire la suite

Vote

Bonjour, Habitue-toi à mettre le nom des classeurs dans lesquels tu agis. Tu peux passer par des variables Dim Wb As WorkbookSet Wb = Workbooks.Open("...............") Par la suite, tu n'as qu'à utiliser cette variable si nécessaire et ThisWorkbook pour référer à ton classeur qui contient les macros de départ. -- MPi²

Ouvrir un classeur "masqué"

Salut à tous, ça faisait longtemps que je ne venais pas sur ce forum... J'ai un classeur "Reporting 2018". Dans ce classeur, j'ai une liste de collaborateurs que je liste dans les cellules B4:B11. Je souhaite qu'au moment d'ouvrir ce classeur, une macro donne l'ordre d'ouvrir les classeurs (dans le même répertoire) en fonction des n... Lire la suite

Bonjour, Si tu veux importer les données de classeurs distants sans pour autant les ouvrir, je pense que tu peux passer par ADODB. Voir le lien suivant pour des exemples https://www.developpez.net/forums/d400825/logiciels/microsoft-office/excel/contribuez/lire-classeurs-fermes-excel2007-xlsx-xlsm/ -- MPi²