Contenu récent par Shining Hawk

Hug, Dans le VBE, double-clique sur ThisWorkbook et insère le code suivant: Private Sub Workbook_Deactivate() Application.DisplayFullScreen = False End Sub Private Sub Workbook_Open() Application.DisplayFullScreen = True End Sub Ca te met en plein écran quand tu ouvres le...

Re:Problème de boucle Re, Pour connaitre la différence entre Byte et Integer ... va faire un tour dans l'aide.... j'déconne, Byte est un nombre stocké sur 1octet et ne peut contenir que des nombres allant de 0 à 255; Integer est un nombre stocké sur 2 octets et peut contenir des nombres...

Re:Problème de boucle Message pour myDearFriend! : Crois-tu à la transmission de pensées?

Re:Problème de boucle Hug bip-bip... j'ai deux remarques à faire : la première serait de mettre Set cel = Cells(1,i) L'instruction Set sert à dire que la variable cel devient en objet identique à la cellule pointée par Cells(1,i). Du coup dans ta ligne en bleu, le cel.Select devient...

Hug Nafrayu, André, je préparais un petit exemple... mais je m'appercois qu'André a encore une fois été le plus vif! tampis, je met quand même ma solution, j'essayerai d'être plus rapiude la prochaine fois ;). C'est la même chose qu'andré, mais avec la fonction recherche(). bonne...

bah, je sais pas... commence par lire ca https://www.excel-downloads.com/help/charte/

Re, et avec 'Cet événement se produit lorsqu'on clique sur un lien hypertexte dans une feuille de calcul Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Soluces de Caponord38... End Sub ou 'Cet événement se produit lorsqu'on clique sur un lien hypertexte...

Hug zesuila,le forum, A mon avis, tu peux essayer d'utiliser ces deux méthodes appliquées à ThisWorkbook: Private Sub Workbook_Activate() Affichage des USF End Sub Private Sub Workbook_Deactivate() Cache les USF End Sub Activate = se produit quand le classeur est activé...

Peut-être que si tu rajoutais une ligne ca marcherait mieux... Peut-être que si tu lissais le lien qui suit https://www.excel-downloads.com/help/charte/, il y aurait des personnes qui te répondraient. ;) Peut-être que si tu allais faire un tour sur ce site tu trouverais les définitions...

Hug le fil,ltbg tu peux aussi essayer: Set fso = CreateObject('Scripting.FileSystemObject') Set fic = fso.GetFile(ThisWorkbook.FullName) Range('A1').Value = fic.DateLastModified Set fso = Nothing Set fic = Nothing A+

Hug charlotte, le problème est que l'événement Click du bouton est déclaré en private (privé = accessible seulement dans la feuille ou une Sub rattachée à la feuille). Pour contourner la problème, je vois 2 solutions (mais il en existe peut-être d'autres...) La premiére est de modifier...

Hug, normalement, avec un truc de ce style, tu devrais arriver à faire ce que tu veux: i = 1 For Each c1 In Sheets('Opérations').Range('A1:A2') For Each c2 In Sheets('Carte').Range('A1:A3') Sheets('Carte').Cells(i, 1).Value = c1 & ' * ' & c2 i = i + 1 Next c2...

Merci Thierry, c'est vrai que c'est un peu moins prise de tête... Ca faisait longtemps que j'avais pas fait de copier-coller bête et méchant (cf mes instr)... ca m'apprendra! ;) Bonne journée

Hug, Regarde dans outils/Options... onglet Calcul et tu coches itération avec les options Nb max d'itérations = 1 et écart max = 0 Mais le soucis, c'est que ca devient folklorique quand tu as 2 réferences circulaires en temps... je te laisse tester ps: désolé JP, je t'avais pas vu...

c'est peut-etre parcequ'on voit jamais (ou très peu) ce roadrunner... ne te retourne surtout pas, j'ai l'impression qu'il y a un rocher qui te suis.... :woohoo: :woohoo: :woohoo: