Résultats de la recherche

Salut à tous, A tester si le code corrigé qui fonctionne chez moi marche également ailleurs ... :cool: Sub Envoi() Dim LolApp As Outlook.Application Dim LobjMail As Outlook.MailItem Set LolApp = New Outlook.Application Set LobjMail = LolApp.CreateItem(olMailItem) '...

Bonjour à tous, Le post de @Staple1600 fonctionne parfaitement sur des formules ayant des adresses de base ou des Noms simples. En cas de formules faisant référence à des éléments de tableau structuré avec des crochets, le code devient destructif dans la mesure où le convertformula remplace...

Bonjour, avec la formule traditionnelle que vous pouvez trouver partout sur internet, à condition de ne mettre que les mois et années en colonne G =SOMME.SI.ENS(Tableau1[Montant];Tableau1[Date];">="&DATE(ANNEE($G10);MOIS($G10);1);Tableau1[Date];"<="&FIN.MOIS($G10;0))

Après différents tests avec le modèle cité, j'ai quand même des exits non pris en compte quand je change de page dans le multi-page .... 🙄

Salut à tous, Pour le Fun et les aficionados des macros : Sub Onglet3() Dim Line As Variant, Li As Variant Dim L As Integer Dim FSource As Worksheet, FTarget As Worksheet Set FSource = Sheets("Initial") Set FTarget = Sheets("Feuil2"): FTarget.Cells.Delete L = 1 For Each Line In...

Salut à tous, La méthode d'agir sur les polices et taille des colonnes sur une grande plage est assez destructrice et consommatrice de mémoire et de temps . Tel que c'est proposé, cela est une bonne idée si l'utilisateur se fout complètement de la mise en page et des largeurs de colonnes...

Tous les Textbox ne font pas partie de la Classe, ceci explique peut-être cela ... ;) Sinon le dernier classeur que tu as fourni est pas mal mais il a un ti défaut: l'initialize parait ne pas prendre en compte l'état et si tu fais un Tab sur les Textboxs, on dirait que le code est un peu perdu...

C'est contradictoire avec : Le classeur joint devrait être conforme à la dernière demande : ( en fait j'avais interprété la première demande en me disant qu'il fallait avoir tous les OUI pour afficher les autres feuilles ) A l'ouverture, on efface les colonnes OUI et NON et on produit un...

Pas du tout, c'est celui que j'ai joint au Post#4

Salut @patricktoulon , Ton code fonctionne correctement avec la souris, pas le clavier . 🤔 Celui que j'ai récupéré au post #2 semble fonctionner également au clavier 😶

Saut @Dudu2, J'ai testé: https://codes-sources.commentcamarche.net/forum/affich-10062379-classe-de-textbox-et-evenements-exit-et-enter Cela semble fonctionner

Il y a 2 colonnes qui selon moi devraient être toujours renseignées, à savoir OUI ou NON. Il est vrai que l'événement SelectionChange est un peu trop "inflexible" tel que codée ( je n'avais pensé qu'au clic souris ). Aussi , j'ai remplacé l'événement SelChange par un BeforeDoubleClick qui...

Normalement, le classeur au #2 vérifie l'état à l'ouverture et ne donc plus produire de message .

Salut @Dudu2, Le Application.Addins(i).Title, peut-être ?

Edit: codes corrigés car oubli du message à produire .... 😵‍💫 Bonjour, Le classeur avec macros ci-joint devrait répondre à votre demande . Dans le module "ThisWorkboook", le code ci-dessous s'exécute à l'ouverture du Classeur : Private Sub Workbook_Open() ' Appel de la Sub Is_Tout_Oui de la...

Bonsoir, Il n'existe pas d'autre méthode à ma connaissance . Vous pouvez simplifier cependant : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False ' Pour éviter de boucler dans l'événement Select Case True Case Target.Count > 1 Case Not...

Salut à tous, Une autre alternative ne modifiant pas la taille de police ou de ligne : Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next: [Select_Box].Delete: On Error GoTo 0 If Not Target.Count > 1 Then With...

Bonjour, dans le module Thisworkbook : Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) MsgBox "Cellule: " & Target.Address & vbLf & "Feuille:" & Sh.Name End Sub

De retour de la pétanque : oui, aucun problème de te fournir un coup de main, mais cela vaut -il l' effort de concurrencer l 'Osk et de prévoir toutes les langues ????

Merci Pat pour ce temps passé . J'ai un compte Microsoft et un compte local, les 2 fonctionnent correctement. La seule différence que je vois avec toi, c'est que mon office est 64 bits. Ta proposition ne fonctionne pas chez moi ( pas d'erreur détectée ) Je ne sais pas si ça vaut le coup...