Contenu récent par Saboh12617

Bonjour, C'est bien sur possible, il suffit de lire les plages (éventuellement vérifier que les noms proposés sont corrects [certains caractères sont invalides]), puis les donner comme argument au print/saveas. Je vous conseille de partager votre macro si vous voulez une aide plus approfondie...

Bonjour, Ca risque d'etre assez compliqué/lourd inutilement car il n'y a pas d'évenement VBA Worksheet qui correspond à "ajout de note". Donc typiquement on serait obligé de surveiller SelectionChange (chaque changement de selection), sauvegarder la cellule dans une variable, et au prochain...

Oui si la macro est lancée depuis le shape c'est une solution robuste pour retrouver le nom 👍

Bonjour, Basé sur ma compréhension de votre code assez original, voici une proposition découpée en 2 parties pour bien comprendre : Sub LLI() ' 1) Choix des couleurs selon le contenu dim interiorColor As Long, fontColor As Long Select Case ActiveSheet.DrawingObjects("Rectangle ...

Bonjour, Dans l'état il faudrait passer par VBA pour obtenir ce résultat. C'est ok pour vous ? Il faut se baser sur les numéros de la 1e colonne ? Autrement, pour éviter du VBA je vous conseillerai de faire un TCD, c'est justement inclus par défaut ce genre de présentation.

Le lien n'est peut être pas le meilleur sur le sujet c'est vrai. Globalement en 32 bits tu limites ton Excel à 4 GB de RAM, alors que ton système en a probablement beaucoup plus. C'est donc contre-productif. A moins d'avoir un vieux pc, pour toutes les installations récentes il faut privilégier...

Non au contraire... https://support.microsoft.com/en-us/office/choose-between-the-64-bit-or-32-bit-version-of-office-2dee7807-8f95-4d0c-b5fe-6c6f49b8d261 Quant au problème évoqué par Nain, il est contournable avec le dernier Sub que j'ai proposé. Souvent passer en "step by step" détaillé aide le...

Aucune idée... C'est toujours la dernière feuille ou la feuille Active qui ne va pas ? @TooFatBoy content d'aider 👍

ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 1 C'est écrit dans le code. La sélection d'une cellule ne force pas le scroll de la page vers ladite cellule. D'où l'ajout que j'ai proposé.

Bonjour, Essayez avec "<>" plutot que "><" ;) Il s'agit de l'opérateur "différent de" par défaut sur Excel. Dans votre fichier Excel cherche en réalité les textes "supérieurs à "<"".

Bonjour & bienvenue sur le forum, Je suis également ingénieur INSA mais plus "récent" (promo. 2024) 😁 Au plaisir d'échanger

Voici comment procéder pour un retour en A1 propre sur toutes les feuilles du workbook : Sub RetourA1() Application.ScreenUpdating = False Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Activate ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 1...

Bonjour, D'où est tirée cette interface de révision du code ?

Bonjour, Pour ne pas avoir de défilement de l'écran il faut placer Application.ScreenUpdating = False au début de votre module (cf. ma réponse sur votre autre fil). https://learn.microsoft.com/en-us/office/vba/api/excel.application.screenupdating Il n'est pas nécessaire de le remettre à True en...

Bonjour, Dans votre Sub RAZ, j'imagine que vous bouclez sur les feuilles, auquel cas dans chaque feuille, il faut ajouter à la fin l'instruction Range("A1").Activate Public Sub Example() dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets...