Résultats de la recherche

Re Donc on a de 7 a 12 avec un pas de 1 a 9 7.1,7.2 ....7.9 8.1,8.2.....8.9 Etc 11.1, 11.2 ......11.9 Y'a t'il 7.0 , 8.0....11.0 , 12.0 ? Jean marie

Re Et ben mon ami ! Ça pourra sûrement servir à quelqu'un ! Mdr Cordialement Jean marie

Bonjour le Fil une interprétation de ce que j'ai compris Lol pas évident Lol jean marie

Bonjour le Fil a dit : le barème Normal correspond à ces Limites soit de 7.00 ,7.01 ,7.02 ,7.03 etc. etc. jusqu'à 12.10 (ce qui représente 511 valeurs) y'a t'il des Plages exemple valeur Entre 7.02 et 7.20 alors - 1 ? c'est en dessous ou au dessus des ces valeurs qu'il y a traitement...

Bonjour Patrick ,le Fil ,Le Forum Dans cette procédure , que doit on avoir en retour si le Tableau est Vide ? Sub reliste(LO As ListObject, lst) Dim i& With LO.DataBodyRange: tablo = .Resize(.Rows.Count + 2, .Columns.Count + 1).Value: Set LTO = LO: End With For i = 1 To...

Moi oui ! j'avais utilisé un TextBox sur une feuille et pas un Shape , ca fonctionnait avec Forecolor ! cher moi ActiveSheet.Shapes("Texte Rafale").ForeColor = RGB(R, G, B) me renvoie une erreur Jean marie

Re j'ai ca en fin de procédure ActiveSheet.Shapes("Texte Rafale").TextFrame.Characters.Font.Color = RGB(R, G, B) jean marie

Re ce que j'ai mis dans ton fichier - Zone de texte "Vent en rafale" If Not Intersect(Target, Range("I13")) Is Nothing Then Select Case Target.Value Case Is = 0: R = 0: G = 250: B = 250 Case Is < 11: R = 190: G = 240: B = 250 Case Is < 21: R = 120: G = 170: B = 220 Case Is < 31: R = 230: G =...

Re peux tu expliquer la démarche ? C'est l'inverse ? Jean marie

Re Mdr ! Laquelle ? Bonne fin de Journée Jean marie

Bonsoir le Fil pas évident ! dommage qu'il n'y est pas de Fichier ! ce que j'ai cru comprendre (les couleurs ne correspondent pas au Code RGB()) With ActiveSheet.TextBox1 Select Case True Case .Value = 60: .ForeColor = &HFFFFFF Case...

Bonsoir le Fil une autre approche Private Sub TextBox3_Change() Select Case True Case OptionButton1 = True And TextBox3.Value = "7.3" TextBox6.Value = "20" Case OptionButton2 = True And TextBox3 = "7.3"...

Bonsoir le Fil , je me suis permis de changer la Colonne cible du Filtre remplacement du 15 par 13 Range("tSaisie").AutoFilter Field:=13, Criteria1:="Sortie" If Range("tSaisie").ListObject.ListColumns(13).Range.SpecialCells(xlCellTypeVisible).Count <= 1 Then Bonne fin de journée Jean marie

Re Pour essayer s'expliquer cela Tablo= .Resize(.Rows.Count+2, .Resize() permet de redimensionner (virtuellement) la plage du tableau source .Rows.Count correspond au nombre de lignes de la plage source Le + 2 veut dire qu'on agrandit (virtuellement ) la plage qui sera récupérée dans le tableau...

Bonjour Constantin Pour essayer de faire avancer le Schmilblick Tu as la procédure événementielle . qui te renvoie la cellule concernée par le Changement donc QtSortie prend la valeur de la cellule (Target) qui est modifiée . En espérant avoir pu t'aider Bonne Journée Jean marie

Re le fichier avec le Code pour définir les Propriétés de la ListBox Jean marie

Bonjour franxy le ficher de ce projet est lequel ? pour ce qui est des Colonnes B et C , il suffit de les masquer dans ta ListBox ! tu récupére l'ensemble de la Ligne via un Tableau de 6 colonnes et tu masques les 2 ème et 3 ème Colonnes . Soit ListBox1.ColumnCount =6 'et...

Re As tu définit pour ta ListBox le Nombre des Colonnes et leur largeur ? (voir dans les Propriétés ou alors ajouter ces deux propriétés dans le Code ) Jean marie

Bonjour monsef Bienvenue sur xld ! Regarde au bas ce cette page ! Jean marie

re le fichier ! jean marie