Contenu récent par Dan

Oui effectivement (merci je corrige - je l'avais mis chez moi pourtant....) mais son souci est ailleurs et probablement dans son vrai fichier Le code peut être d'ailleurs ceci Sub AAAAA_IMPRESSION_Bar_sucré_fruits_coupé() Dim feuille As String Dim cel As Range Application.ScreenUpdating =...

Sur votre fichier posté, je n'ai pas de soucis avec le dernier code que vous ai proposé. C'est votre vrai fichier que vous avez posté ? Au besoin, cliquez sur sub AAAA....., puis utilisez la touche F8 pour avancer pas à pas dans le code. cela vous permettra de voir ce qui se passe

Re, Essayez le code comme ceci Sub AAAAA_IMPRESSION_Bar_sucré_fruits_coupé() Dim feuille As String Dim cel As Range Application.ScreenUpdating = False With Worksheets("PARAMETRAGE") For Each cel In .Range("B14:B20") 'rajouté point devant Range (voir commentaire de ToofatBoy dans post...

Bonjour Dans votre fichier on n'a pas de données en A14 à A17 . Normal ou pas ? NB : Lorsque vous postez un code dans votre demande, pensez à utiliser les balises de code en cliquant sur l'icône </> disponible dans la barre de menu et en collant votre code dans la fenêtre. C'est nettement...

Re Essayez votre code comme ceci Sub AAAAA_IMPRESSION_Bar_sucré_fruits_coupé() Dim feuille As String Application.ScreenUpdating = False With Worksheets("PARAMETRAGE") If UCase(.Range("B20")) = "VRAI" Then feuille = .Range("A20") With Worksheets(feuille) .Visible =...

Bonjour Comme Fanfan38, cela fonctionne bien chez moi aussi Essayez de corriger cette ligne If UCase(Worksheets("PARAMETRAGE").Range("B20")) =True Then Ou remplacez le TRUE par "VRAI"

Bonjour Bizarre mais ce fichier me rappelle quelque chose... (sur un autre forum ?) Je pense à priori ceci : 1. A l'ouverture de votre fichier, il y a déjà une chose qui ne sert pas c'est l'instruction dans Thisworkbook et qui recalcule tout votre fichier à l'ouverture. Donc là cela ralentit. A...

Bonjour Clausen, Avant de critiquer un forum ou un autre, pensez d'abord à prendre un peu de temps pour lire la charte et puis essayer de comprendre comment il fonctionne. Ce n'est pas parce que l'on ne vous répond pas que votre demande n'est pas prise en charge par quelqu'un. Pour la part...

Content que vous ayez votre solution avec la proposition de Cousinhub Juste pour ma gouverne, pouvez-vous aussi tester le code ci-dessous que j'ai amendé par rapport à mes propositions précédentes Dim encours As Boolean Private Sub Worksheet_Change(ByVal Target As Range) Dim keycells As Range...

Désolé pour mon retour tardif C'est la ligne avec le Select que je vous ai proposée avant mais j'admets que c'est un peu curieux de mettre cela dans le code A tout hasard essayez un peu ceci. Remplacez toutes les lignes de code par ceci Dim encours As Boolean Private Sub Worksheet_Change(ByVal...

Avec Target.row-1, c'est normal que la sélection reste sur D6. Si vous voulez sur D7, enlevez le -1 Je vous ai donné cela juste pour vérifier s'il y avait toujours la sélection du TS ou pas

C'est tout de même curieux que si vous sélectionnez D6, le code va automatiquement en D8 ?? parce que si vous vous déplacez dans le tableau via clic ou les flèches droites gauche de votre clavier, le tableau ne va pas être sélectionné... Faites aussi un essai en mettant un STOP juste avant la...

Bizarre tout de même... Au risque de dire une connerie, c'est presqu'à penser que ce serait la version 64 bits qui provoque cela Attendons qu'il teste ma dernière proposition

Bonjour Cousinhub, chez moi excel 2016 (32 bits), je n'ai rien de sélectionné comme je l'ai signalé plus tôt dans le fil Mais c'est vrai que la mise à jour d'une requête via PQ devrait le faire Bizarre...

Re Vous n'avez pas besoin de chaque fois remettre un fichier avec la solution que l'on vous propose. J'ai votre fichier sur lequel je fais les modifications avant de poster Oui pour le UNDO, c'est logique. Je voulais simplement savoir si le tableau était encore sélectionné ou pas Là vous ne le...