Résultats de la recherche

Bonsoir à tous Voici le code, Format des Nombre dans la cellule 0.00000 Dans le Combobox1 0,00 avec virgule ? Private Sub Worksheet_Activate() Me.ComboBox1.Clear Set f = Sheets("DONNEES GRAPHIQUE") Set mondico = CreateObject("Scripting.Dictionary") a = f.Range("I5:I" &...

Bonjour à tous Comment transposer les données en I4 Merci pour votre Aide Sub transpose() Dim WS1 As Worksheet Set WS1 = Sheets("data for diagrams") 'Range("C32:CY32,C47:CY47,C63:CY63;C79:CY79,C95:CY95") Dim a(1 To 5) a(1) = WS1.Range("C32:CY32").Value a(2) =...

Bonsoir le Forum FIN = 10 Ce code ajoute sur ma feuille la Série de 0 - 0,25 - 0.50 -> 10 OK J'aimerais inclure 2 nombres dans cette suite Par Exemple valeur de la Cellule A1 = 4.05 et Valeur de la Cellule A2 = 7.85 Ceci pour alimenter une série de X pour un graphique Merci de votre Aide Voici...

Bonsoir le Forum Petite vidéo Petite questions comment partager des vidéos directement sur le site ??

Bonsoir le Forum Comment parcourir mes variables Publiques Option Explicit Public WS1 As Worksheet Public MShape1, MShape2, MShape3, MShape4, MShape5, MShape6 As Shape Sub InitVariables() Set WS1 = Worksheets("GRAPHIQUE") Set MShape1 = WS1.Shapes("RECT-UDL1D") Set MShape2 =...

Bonjour le Forum Problème d'alimentation de mon Tablo Lorsque les colonnes sont continues exemple 1 2 3 pas de problème Pourriez-vous me trouver une solution Private Sub TextBox1_Change() Dim i, clé, n Dim rngData As Range Dim x Set FL = Worksheets("CHANTIER") Set LSTOBJ =...

Bonsoir le Forum Explication : Dans mon fichier 1 Tableau (Tableau1) structure identique aux autres Je copie les tableaux sources depuis un classeur fermé. Dans le Classeur, il y actuellement 4 tableaux ( Tableau1 à 4) Chaque année il y a un tableau supplémentaire. Pas de problème, mais le...

Bonsoir le Forum Petit problème pour alimenter la 2ème listbox en fonction du choix de la 1ère Il bute sur chemin ( nothing ) Merci pour votre retour Option Explicit 'VBA FileSystemObject (FSO) 'Outils - Références - Microsoft Scripting Runtime à activer Dim FSO As FileSystemObject Dim MYFILE As...

Bonsoir le Forum J'aimerais alimenter me.combobox.2 avec Les données ci-dessous : Ce que je veux dans le combobox.2 HFSHS 40 / 2.6 HFSHS 40 / 3.2 HFSHS 40 / 4 HFSHS 40 / 5 HFSHS 50 / 2.6 HFSHS 50 / 3.2 HFSHS 50 / 4 HFSHS 50 / 5 HFSHS 50 / 6.3 HFSHS 60 / 2. HFSHS 40 HFSHS 50 HFSHS 60...

Bonjour le Forum Je souhaite trouver la formule pour trouver le minimum d'une colonne avec 1 condition commence par les 3 premières lettres =MIN(SI(AIRE>=$AB$65;AIRE) matricielle Ok me trouve la bonne valeur Mais avec la condition ...

Bonsoir Le Forum En PJ le fichier Je n'arrive pas à mettre la MFC sur les Week-End Pour les Mois de Janvier et Décembre Merci de Votre Aide @+

Bonsoir Le Forum Pourriez-vous me donner un coup de main pour supprimer les Zéros 2017.010 OK 2107.0110 NON = 2017.110 C'est à dire si 4 chiffres après le point enlever le zéro après le point Les Cellules sont au format standard suite à une importation par requête For each Cel in...

Bonsoir le FORUM Voici mon code Le Listbox1 dans USF se rempli bien avec les données de la colonne C et D avec la condition que les données de la colonne C commence par 20 et sans les lignes vides Par contre lors de la saisie dans le textbox le listbox ne se remplis plus correcetement Option...

Bonjour Le Forum Sur l'onglet MENU, un Combobox alimenter par un tableau 2 colonnes Je n'arrive plus mettre les valeurs dans les Cellules avec Event Change Merci de votre Aide. Option Explicit Private Sub ComboBox2_GotFocus() Dim Cel As Range Dim i Dim FL1 As Worksheet Set FL1 =...

Bonsoir le Forum, Depuis quelques temps je n'arrive plus à insérer un contrôle Active X (Microsoft Windows Webbrowser ) dans une feuille Excel. Auriez-vous des Infos à ce sujet. J'ai plusieurs applications qui marchaient auparavant. Maintenant Message ( Impossible d'insérer un Objet ) Merci...

Bonsoir le Forum Dans mon planning annuel des horaires Pour Janvier et Décembre Lundi à Jeudi 8:30 et Vendredi 5:00 Février à Novembre Lundi à Jeudi 9:30 et Vendredi 5:30 Je n'arrive pas à résoudre ce problème Voir fichier en PJ Pour le Mois de Janvier pas de problème C'est ensuite que cela se...

Bonsoir le Forum Quel Malheur, Pourquoi ?? Site supprimé le 29/12/2016! Bonne soirée

Bonsoir Le Forum J'ai besoin de trouver la dernière cellule d'une ligne sauf la valeur zéro Voici ma formule matricielle qui fonctionne pour 1 cas : =ADRESSE(LIGNE($B$3:$CL$3);EQUIV(MAX($B$3:$CL$3<>0);$B$3:$CL$3;0);1) Mais lorsque en B3 ma valeur commence par zéro. La formule ne fonctionne...

Bonsoir le Forum J'aimerais copier dans un range discontinue les valeurs de mondico La plage de destination PlageChoix comporte 15 cellules comme les 15 de mondico. voici le code : Option Explicit Option Compare Text Sub Proc111() Dim Maliste2 As ListObject Dim FDO As Worksheet Dim...

Bonsoir le Forum. Je suis actuellement dans la rédaction d'un programme de calcul sur excel pour le coût des soudures. Je me suis inspirer de ce site : Allemand et Français. Böhler Welding-Calc Böhler Welding-Calc Comment trouver les formules ou script utilisés sur ce site pour le...