Résultats de la recherche

Merci pour tes exemples mapomme j'ai étudier les codes présents ici mais je pense que ce n'ai pas tout a fait l'orientation que je désire pour mon code. Je n'utiliser pas les feuilles Excel pour ce code. Je doit stocker les possibilité avec des variables pour les utiliser pas la suite dans un...

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 =...

Merci pour votre réponse j'ai finalement trouver d'où venais le délais c'est au niveau de l'userform qui loppait dans cette feuille sans arrêt. J'ai aussi mis des limite a l'event worksheet change afin d'éviter a excel de refaire les calcul tout le temps.Je vais essayer de votre code pour...

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)...

J'ai fini par trouver Dim Compos_R() -----> Dim Compos_R(1 To 10) Dim Compos() ----- >Dim Compos(1 To 10)

Merci pour les conseils, j'avais justement un peu de difficulté avec les loops. Par contre, j'ai essayer votre première suggestion et j'ai le code d'erreur 9 - l'indice n'appartient pas à la sélection. With Worksheets("Cost list").Range("Plage_Compos") For i = 1 To 10 Ici --->...

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...

Voici le fichier

Oui effectivement c'est sur le même programme mais pas sur la même fonction. Je vous explique le processus derrière tout ca. J'importe un fichier PDF dans la feuille "Cost list". Ensuite je veux remplir toutes les case de la feuille "Estimation Rapide" selon les données de la feuille "Cost...

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...

Résolu Merci!

Merci maintenant sa bloque ici 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 list").Range("A1:G500") .Find("Project").Offset(0...

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...

Pour pouvoir changer des valeurs en G2 et N2

Je ne sais pas d'où cela peut venir mais je fini par avoir un bug qui ne fait que recopie intégralement les formules de la première feuille de temps.

Sérieusement sa fonctionne très bien. Petites chose a modifier 1) Lorsque l'on supprime une sheet, il faudrait que la ligne correspondente dans le sommaire s'éfface aussi 2)la colone H et M contienne des formules relatives ainsi lorsque la nouvelle ligne est créé il copie la formule de la 2e...

J'aurais un autre idée pour résoudre mon problème. Je vous explique la situation : J'ai un classeur avec plusieurs feuilles de temps de production et une feuille sommaire pour compiler le tout. Il faudrait faire une recherche de correspondance entre les nom de feuille de feuille de temps dans...

Merci pour vos propositions et vos conseil ! Résolu

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...

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...