Résultats de la recherche

Bonjour Petitbuzuc, Le code est correct mais il faut séparer les 2 actions et ne faire appel à la fonction sur J que si modification sur J (création de la "function colonne_J" au même endroit que le 1er code) . Option Explicit 'oblige à la déclaration de toutes les variables Private Sub...

bonjour, Vous pouvez aussi essayer ceci: =SOMME.SI(A1:A6;"<=" & D1;B1:B6) la colonne A contient le numéro de la ligne, la colonne B la valeur associée et en D1 la valeur cherchée. ;)

Bonjour Chaelie2015, A essayer: Sub Worksheet_Change(ByVal Target As Range) Rows("13:63").EntireRow.Hidden = True On Error GoTo Fin: If Target.Count > 1 Then Exit Sub 'Gestion des erreurs : En cas d'erreur, le code saute à l'étiquette "Fin" pour terminer proprement la procédure...

Bonjour gui22 A essayer: 'déclaration de variables' Dim Der_Ligne As Long Dim I As Long 'sélection des données à copier' Sheets("Données").Activate 'activation de la feuille données' Rows("55:74").Select Selection.Copy Sheets("F73").Activate 'activation de la feuille F73' Der_Ligne =...

Bonjour Saimone, En fait pour le calcul de tes coefficients, cela revient à la résolution d'équation du second groupe (y=ax²+bx+c) ou a, b et c sont tes coefficients. Par exemple: Pour ton type 2 en verre on obtient 229.72= (0.605)²*a + 0.605*b +c 276.85 = (1.28)² * a + 1.28*b + c...

Bonjour phil, D'abord essaie de trouver le répertoire ciblé: dim MonRep as string MonRep = Dir(x:\Z répertoire par société 2023\ & Cells(4, 2).Value& "*", vbDirectory) 'trouve un répertoire qui commence par le contenu de la cellule D2 * puis si trouver tu continues ton export avec le nom de...