Résultats de la recherche

  1. M

    Microsoft 365 Select case ou If

    Bonjour, J'ai de la difficulté a figurer l'écriture d'un code. Prenons l'exemple simplifier suivant : Nous avons une feuille de papier blanche de dimension 8.5" x 11" Nous avons aussi plusieurs bandes papier de couleur jaune de dimensions : Bande #1 = 8.5" x 2" Bande #2 = 8.5" x 3" Bande #3 =...
  2. M

    Microsoft 365 Loop avec un Select Case

    Bonjour, J'ai crée un code qui fonctionne comme je le veux mais il est très lent. Je pense que je devrais crée une loop dedans pour le simplifier mais je ne voit pas comment faire. Merci ! Voici le code en question : Public Sub Worksheet_Change(ByVal Target As Range)...
  3. M

    Microsoft 365 Simplification de Code

    Bonjour, J'ai enfin réussi a faire fonctionner mon code parcontre, il est laid et long. J'aimerais le simplifier quelque peu avec votre aide ! Merci Sub PDF_Import() On Error GoTo Fin Dim Able2ExtracPath As String Dim PathAndFileName As String Dim ShellPathName As String With...
  4. M

    Microsoft 365 Range.cells dépasse la plage de donnée définiee

    Bonjour, J'ai définie une plage de donné "Plage_Compos" (qui peut varier) qui ne contient que 2 lignes (dans mon exemple) mais quand j'utilise ce code : Compos_3 = .Range("Plage_Compos").Cells(3, 1) 'Compos_3 Il me renvoie à la 3e ligne qui n'est plus dans ma plage définie. Que faire...
  5. M

    Erreur 91 - Pourquoi ?

    Bonjour, J'ai le code d'erreur 91 et je ne comprend pas pourquoi. Sub Autofill() Dim Compos_1 As String Dim Compos_2 As String Dim Début_Ligne As Long Dim Début_Colonne As Long Dim Fin_Ligne As Long Dim Fin_Colonne As Long Dim Plage_Compos As Range With Worksheets("Cost...
  6. M

    Microsoft 365 Évènement : Quand un nouvelle feuille est ajoutée au classeur

    Bonjour, J'aimerais créer un évènement personnalisé. Soit lorsque j'ajoute une feuille (Feuille de temps) a mon classeur de sommaire (cette nouvelle feuille provient d'un autre classeur que je drag and drop + crtl dans le classeur) que sur la feuille sommaire certaine cellule se remplissent en...
  7. M

    Simplification de code - Délais d'affichage

    Bonjour, j'ai crée ce code et il fonctionne comme je le veux. Par contre, j'obtiens un délais d'affiche. Je pense que ce code pourrait être simplifier pour accélérer l'exécution de celui-ci. Merci Private Sub Worksheet_Activate() Application.ScreenUpdating = False With Worksheets("Estimation...
  8. M

    Afficher et masquer des lignes - VBA - Arborescence

    Bonjour, J'ai un ficher Excel me permettant d'afficher et de masquer des lignes en VBA suivant différentes cases à cocher. J'aimerais créer une arborescence au lieu des case a cocher. Voici la structure de l'arbre 1) Ensemble de murs 2) Isolation 3) Option murs 3.1) Vis SDS 3.2) Membrane...