Passionné d'Excel

Inscrit le :03/10/2017
Dernière activité :06/12/2019 à 09:44
Version d'Excel :2007 FR
Messages
6'872
Votes
928
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par dhany - page 137

DateAuteur du sujetSujetExtrait du message
14/10/2017 à 06:38billycat Lire une chaine de caractères en boucleBonjour billycat , Je te propose cette formule : =SI(OU(A2="";B2="");"";"Mot" & SI(ESTERREUR(CHERCHE(A2;B2 & B2));" non";"") & " trouvé") Cordialement...
14/10/2017 à 04:26pierrick80 Cellule vide = 0Bonjour pierrick80 , Mettons que tes nombres à additionner sont en colonnes A, ligne 5 à 20 => plage A5:A20 ; si tu veux ton résultat juste en dessous du dernier nombre, la formule doit être en A21 : =SOMME(A5:A20) Si tu as une cellule vide (ou plus) dans ta plage A5:A20, la fonction SOMME() les...
14/10/2017 à 03:46wallErreur code supprimerBonjour wall , Il faut que ShTrace et ShEval soient correctement initialisés pour référencer les bonnes feuilles. Il faut aussi que LI soit correctement initialisé ; tel que c'est, LI peut contenir n'importe quoi : variable sans type déclaré => variable du type par défaut Variant ; et imagine si...
14/10/2017 à 03:06Fredo1200 Recherche FormuleBonjour Fredo1200 , Je te retourne ton fichier Excel modifié. Si besoin, tu peux me demander une adaptation. Merci de me dire si ça te convient. Cordialement...
13/10/2017 à 14:40ValocheRAZ sur USERFORMTu as écrit : Peut-être que c'est arrivé suite à une mise à jour récente d'Excel ou de Windows ? c'est juste une piste possible : on ne peut pas l'affirmer ; ça n'a peut-être rien à voir, et peut-être que la cause est ce que je t'ai indiqué dans mon précédent message ? ou encore autre chose ? là, ça...
13/10/2017 à 13:28ValocheRAZ sur USERFORMJe ne comprends pas : sur mon PC, ça marche correctement avec les 2 fichiers que je t'ai transmis. C'est donc un problème de différence de version entre ton Excel 2010 et mon Excel 2007, et / ou ton paramétrage d'Excel qui est différent du mien (paramétrage = une des options). Je n'ai pas d'autre id...
13/10/2017 à 08:10PG59180Comment sélectionner mes plages nomméesBonjour PG59180 , Tel que tu l'as écrit, c'est juste une chaîne de caractères ; il faut mettre Range() aussi : Cordialement...
13/10/2017 à 07:52ValocheRAZ sur USERFORMBonjour Valoche , Tu as écrit : Dans ce cas, essaye le fichier joint ci-dessous : j'ai changé le bouton « Recherche » (même s'il a la même apparence) . En fait, ton bouton était un contrôle de formulaire , et je l'ai remplacé par un contrôle ActiveX . J'espère que ça sera mieux ainsi ; à te lire pou...
13/10/2017 à 02:29addouFonction qui ne fonctionne pasBonjour addou , Je te retourne ton fichier modifié, avec de petites améliorations. Cordialement...
13/10/2017 à 01:32Joh2001Plantage Macro au bout de 3 utilisationsBonsoir MFerrand , Oui, c'est bien ça ; le demandeur Joh2001 l'avait déjà trouvé : Cordialement...
13/10/2017 à 01:15ValocheRAZ sur USERFORMJe viens d'essayer ton fichier ; quand je clique sur le bouton « Recherche », le formulaire correspondant s'affiche bien. Si ta cellule active est en mode modification de cellule , cliquer sur le bouton « Rechercher » ne marchera pas, ce qui est normal ; appuie sur F2 ou Entrée, puis le clic marcher...
13/10/2017 à 00:04Florian53Accélérer une macro SommeBRAVO NCC 1701 ! Ta méthode avec Tableau en mémoire est super efficace !!...
12/10/2017 à 23:11Florian53Accélérer une macro SommeJe suis bien content que ça fonctionne. effectivement, sur 240 000 lignes, ce n'est quand même pas instantané ! Application.Calculation = -41 3 5 => mode de calcul d'Excel mis sur manuel. Application.Calculation = -41 0 5 => mode de calcul mis sur automatique. Cependant, j'ai fait trop vite :...
12/10/2017 à 22:43Florian53Accélérer une macro SommeBonjour Florian53 , Je te retourne ton fichier Excel modifié ; Ctrl e => travail effectué Tu peux faire Ctrl e depuis la feuille "BDD" ou depuis "Feuil1". Cordialement...
12/10/2017 à 22:08Joh2001Plantage Macro au bout de 3 utilisationsEssaye avec : Cordialement...
12/10/2017 à 19:47fksoParser document en différentes feuillesBonjour fkso , Dans ton message de 10:18, tu as écrit : à propos de cette ligne de code : Range("g7") est la cellule G7 ; tu peux aussi écrire : Range("G7") ; ou plus simplement : [G7] Range("g" & .Rows.Count).End(xlUp)) est la cellule de la dernière ligne du tableau, colonne G. Le .Range()...
12/10/2017 à 09:25Odieux Bonhomme Sélection aléatoire (sans doublon) historiséeTu as : Mac Excel 2011 FR Je pense que le code de gmb marche sur Excel version PC et pas sur Excel version Macintosh. Plus précisément, il me semble bien que le composant ActiveX "Scripting.Dictionary" n'a pas de version Macintosh. Cordialement...
12/10/2017 à 08:52luc NANOU Copier/coller code VBA demandeExact : je confirme ce que tu as écrit ; merci de passer le sujet en résolu, sauf si tu as autre chose à demander. rappel : le bouton V pour indiquer que le problème est résolu est près du bouton EDITER. Cordialement...
11/10/2017 à 16:36VH_AEValeur la plus récente, groupe de 4 lignesBonjour VH_AE , Je te propose le fichier ci-dessous. Ctrl e => travail effectué Je sais que tu connais le chemin pour voir la macro. Cordialement...
11/10/2017 à 15:46luc NANOU Copier/coller code VBA demandeBonjour Luc NANOU , Je te propose le Fichier Excel ci-dessous. Ctrl e => travail effectué Alt F11 pour voir la macro, puis revenir sur Excel Attention : lis bien le commentaire du code VBA (lignes en vert, juste après Option Explicit). Si besoin, tu peux me demander une adaptation. Merci de me di...
11/10/2017 à 12:38vesteEcrire valeur SI condition dans 2 cellulesBonjour curulis57 , J'avais pensé à ta formule n° 2, mais si en colonne R il y a une Ligne 0040 ? Les données de veste ne sont peut-être qu'un échantillon très limité... d'ailleurs, idem pour la colonne S ZONE. Et comme ci-dessous ? (j'espère que ton chef bien-aimé ne m'en voudra pas ): Cordialement...
11/10/2017 à 02:04AlainpolFaire appel aux noms des feuilles pour copier des valeurs1) Les & servent à concaténer (unir) 2 éléments. Exemple : En A1 : Jean En B1 : Dupont En C1 : =A1 & " " & B1 => texte "Jean Dupont" (sans les guillemets et avec l'espace) 2) Pour la fonction ADRESSE(), le 3ème paramètre 4 => adresse relative (exemple D5) par opposition à adresse absolue (exem...
11/10/2017 à 01:31vesteEcrire valeur SI condition dans 2 cellulesBonjour veste , Je te propose cette formule en T2 (à tirer vers le bas) : =SI(ET(S2="0010";OU(R2="0010";R2="0020"));"L" & R2/10;"commun") Cordialement...
11/10/2017 à 00:37vinceshiverFormule répartition taches à effectuerBonjour vinceshiver , En B8 : =ENT(B3/B5) En B9 : =B8 En B10 : =B3-2*B9 Pour 3 femmes de chambre : a) si 58 chambres : 19 ; 19 ; 20 b) si 46 chambres : 15 ; 15 ; 16 Je te laisse essayer mon fichier VBA. Merci de me dire si ça te convient. Cordialement...
10/10/2017 à 23:27rocket4 Application.ontimeBonjour rocket4 , Je te propose ce code VBA : Si je ne me suis pas trompé : a) macro1 sera lancée à partir de 10 h 00 ... puis arrêtée à 11 h 00 b) macro2 sera lancée à partir de 21 h 16 ... puis arrêtée à 22 h 00 Cordialement...
10/10/2017 à 22:54luc NANOU Copier/coller code VBA demandeBonjour et bienvenue luc NANOU , Selon ton énoncé, tu veux descendre tes données une ligne plus bas ; selon ta copie d'écran, la dernière ligne est celle de "cahier" (avec un stock initial de 97). Si tu descend la ligne "cahier" une ligne plus bas, elle va remplacer la ligne sur fond vert " VERSEMEN...
10/10/2017 à 22:17tonton2nfLimiter le nombre de colonneRavi que tu aies reçu mon message TV5 sur TV5 ! euh, non ; je veux dire 5 sur 5...
10/10/2017 à 17:54Hetfield1998 Colonnes masquées en fin de feuille de calculComme te l'ont déjà indiqué les messages précédents, avec Excel 200 3 (et versions antérieures ), il y a seulement 256 colonnes. La dernière colonne, donc la colonne n° 256 est la colonne IV ; quand il a été écrit « ça s'arrête là », ce n'est pas qu'il y a des colonnes supplémentaires à droite et ca...
10/10/2017 à 17:16Yeshua Sélectionner une plage pour parcourir des colonnesJe suis content que tu aies apprécié mon 2ème code VBA (celui de mon précédent message du 9 octobre à 18:38). Pour répondre à ta question : Application.Calculation = xlCalculationManual met le mode de calcul d'Excel en manuel ; xlCalculationManual est une constante Excel qui vaut -41 3 5 ; c'est don...
09/10/2017 à 21:43tonton2nfLimiter le nombre de colonneCeci pourra peut-être t'aider : Range("TV5") = " TV5 " OU [TV5] = " TV5 " => la cellule TV5 contient le texte " TV5 " MsgBox Range("TV5") OU MsgBox [TV5] affiche le contenu de la cellule TV5 : " TV5 " Dans les instructions ci-dessus, tu peux donc voir que VBA ne fait pas de confus...
09/10/2017 à 18:38Yeshua Sélectionner une plage pour parcourir des colonnesYeshua, Je viens de voir que tu as lu mon message précédent, et je suis ravi que mon fichier Excel te plaît. Après avoir lu ton message de 17:16, je te propose une version plus courte de mon code VBA...
09/10/2017 à 17:58Yeshua Sélectionner une plage pour parcourir des colonnesYeshua, Ma réponse est par rapport à ton message de 16:17 ; je te retourne ton fichier modifié (voir plus bas). À l'ouverture, tu seras sur la 2ème feuille V (vide). Ctrl e => travail effectué Alt F11 pour voir la macro remplissage() Merci de me donner ton avis...
09/10/2017 à 15:21Yeshua Sélectionner une plage pour parcourir des colonnesEssaye ce petit code VBA : Ce code n'est pas pour une colonne dynamique mais juste pour la syntaxe utilisée pour l'instruction Range. Cordialement...
09/10/2017 à 02:42melanie27Macro et feuille protegéMerci pour ton complément d'info...
08/10/2017 à 18:30melanie27Macro et feuille protegéBonjour MFerrand , La solution que tu indiques est bien ce que j'ai fait dans le code VBA qui est inclus dans mon post du 6 octobre à 21:49 ; l'essentiel est que le demandeur melanie27 aie pu résoudre son problème (même si elle n'a pas cliqué sur le bouton ☑). J'aurais dû mettre : Cordialement...
07/10/2017 à 07:03JorahFormule pour croiser deux colonnesBonjour Jorah , sabV a oublié de mentionner la source de son fichier : elle est partie de mon fichier Excel 2007 qui est inclus dans mon message du 7 octobre à 02:51 : Exo Jorah.xlsm ; je crois que tu n'as pas essayé mon fichier : avec ma version, les références trouvées sont copiées côté gauche pui...
07/10/2017 à 02:51JorahFormule pour croiser deux colonnesAprès avoir ouvert le fichier joint : Ctrl e => travail effectué ; s'il reste des données en colonnes E:G, ce sont les références qui n'ont pas été trouvées en colonnes A:B ; si toutes les références ont été trouvées, le tableau de droite sera vide : tu devras seulement effacer les en-têtes (en E...
06/10/2017 à 22:12melanie27Macro et feuille protegéDans ton message initial, tu as écrit : « ... mais je rencontre un problème voir fichier joint. » et plus loin : « Pour voir le fichier c'est gestion des étalons du 6oct mot de passe effluents » mais je n'ai vu aucun fichier joint ; il y a bien un cadre dont le titre est « FICHIERS JOINTS », mais ce...
06/10/2017 à 21:49melanie27Macro et feuille protegéJe te propose ce code VBA : Vérifie bien le nom de tes feuilles (caractères et espaces) ; par exemple : est-ce "Etalons chlorure 1000ppm" ou "Etalon chlorure 1000 ppm" ? Merci de me dire si ça te convient. Cordialement...
06/10/2017 à 20:59JdViRuS Ajouter valeur dans une cellule si une autre est de couleurNouveau fichier ...
06/10/2017 à 20:41JdViRuS Ajouter valeur dans une cellule si une autre est de couleurLe fichier joint est en bas ; si ça ne passe pas non plus ...
06/10/2017 à 19:07xTazVBA travailler sur plusieurs feuillesJ'ai téléchargé ton fichier joint, mais à l'ouverture, ça demande un mot de passe. :( Je te propose ce code VBA (mais je n'ai pas pu le tester) : Je pourrais faire mieux avec ton vrai fichier, et faire un test réel. À partir de quelle feuille lances-tu la macro ? a) toujours depuis Feuil1 ? b) toujo...
06/10/2017 à 17:57Flodariege Mise en forme invisible sur certains PCPour ta 3ème image (celle sur un fond noir), j'ai peut-être une réponse : Panneau de configuration, Options d'ergonomie, « Améliorer la lisibilité de l'ordinateur », 1ère rubrique « Contraste élevé », clique sur : « Choisir un jeu à contraste élevé ». Si c'est bien de là que ça vient, tu devras choi...
06/10/2017 à 13:17Jujuchon Macro de copie sous condition planteTon long code VBA peut être ainsi réduit : Attention Remarque bien ceci : « Case Is >1: » est pour tes cas 2 à 7. Si tu as (ou auras) un cas 8 pour lequel ça fait le même travail, tu pourras laisser tel que car « Case Is >1: » sera pour 2 à 8. Si tu as (ou auras) un cas 8 pour lequel ça fait l...
05/10/2017 à 18:51DohvakiinAdresse d'une série de cellulesQuelques remarques sur ton propre code : 1) Tu as mis : Dim Depart As Integer puis : Depart = Range("E28") mais ensuite, tu n'as pas utilisé Depart => j'ai supprimé cette variable inutile. 2) Tu as mis : Sheets(1).Move After:=Sheets(4) puis Sheets(4).Select or suite au déplacement de la feuille 1...
05/10/2017 à 05:31D.Prive Liste selon la valeur d'une autre colonneJ'ai converti ton fichier Excel en classeur *.xls m pour y mettre une macro. Ctrl l (L minuscule) => travail effectué Alt F11 pour voir la macro, puis revenir sur Excel Si besoin, tu peux me demander une adaptation. Merci de me dire si ça te convient. Cordialement...
05/10/2017 à 04:44DohvakiinAdresse d'une série de cellulesJe te retourne ton fichier Excel modifié : Attention : c'est surtout une optimisation du code VBA ; comme je ne suis pas sûr de ce que tu voulais, vérifie bien tout , puis dis-moi ce que tu en penses. Cordialement...
04/10/2017 à 23:36lembmcPrononciationTu as demandé : « est ce qu'on peut changer la prononciation à homme ? », puis tu as ensuite écrit : « Je veux changer la voix de la femme à la voix d'un homme. » Le choix de la voix d'un homme ou d'une femme doit se faire dans le paramétrage du logiciel qui effectue la prononciation (il y aura des...
04/10/2017 à 20:55Pumpkinman Additionner deux formules distinctes avec SINon, il ne manque rien dans ma formule : si G5<18, alors l'expression (G5>=18) vaut FAUX, et FAUX = 0 => la dernière partie de la formule : +30*(G5>=18) = +30*0 = +0 ; le coût total sera donc de ce qui précède seulement, selon les autres conditions. Je te laisse faire des tests avec plus...
04/10/2017 à 20:35DohvakiinAdresse d'une série de cellulesSheets est l'ensemble de toutes les feuilles du classeur, quel que soit leur type : feuilles de calcul, feuilles graphiques, feuilles d'anciennes macros XL4, feuilles des anciennes boîtes de dialogue (ex-UserForm), feuilles UserForm, etc... Worksheets est un sous-ensemble de la collection Sheets ci...