| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 16/09/2013 à 17:52 | yoda60 | Fermeture classeur | Désolé , j'ai beau essayer de comprendre le code , je n'y arrive pas du tout. je crois que cela marche !! je pense avoir compris la mécanique (grosse satisfaction perso ...) si quelqu'un peux me dire si je suis dans la vrai et si mon code est "propre " un petit doute sur <= If Len(WbkB) <= 31... |
| 16/09/2013 à 09:53 | yoda60 | Fermeture classeur | En fin de macro la ligne Workbooks(WbkB).Close savechanges:=False me met une erreur ( quand l'onglet a un nom trop long et que celui ci est raccourci par la macro ) cdt Dim chemin As String, Fichier As String Dim WbkA As String ' Nom de ce fichier Dim WbkB As String ' Nom du fichier ouvert Applicati... |
| 16/09/2013 à 09:33 | yoda60 | Nom onglet trop long | Oui les onglets sont bien nommé , je remet un autre sujet pour la fermeture classeur merci... |
| 15/09/2013 à 23:56 | yoda60 | Nom onglet trop long | Je suis un peu perdu sur l'endroit ou placer cette partie de code la démarche sur le nb de caractere me parait celle qu'il faut mais je rame ... merci a priori si je le place ici c'est a la fin du code que cela plante il ne referme pas le classeur d'où cette feuille est importé If Len(WbkB) > 31... |
| 15/09/2013 à 22:22 | yoda60 | Nom onglet trop long | Je peine a l'adapter, un petit coup de main serait bienvenu merci... |
| 15/09/2013 à 18:36 | yoda60 | Format | C'est nickel la solution de Raja , me fait la même chose (décalage vers le haut ) curieux en tous cas ! j'utiliserais celle de Jean Eric merci a vous 3 pour votres implication... |
| 15/09/2013 à 18:32 | yoda60 | Nom onglet trop long | J'importe des onglets grace a cette macro le probleme est que je les nommes comme le fichier dont ils prviennent. parfois le nom est trop long et cela plante j'ai essayer un début de piste If WbkB(Len(Fichier.Value) > 32) Then mais cela dépasse mes compétences , une idée cordialement Dim chemin A... |
| 12/09/2013 à 22:23 | yoda60 | Format | Oui je suis comme toi , j'en perd mon latin... cela marche également si les cellules N1 et N2 son pleines. si quelqu'un a une explication ... merci Jean eric et h2so4 encore un point j'appelais cette macro avec celle ci dessous pour l'appliquer a toutes les feuilles peut etre y a t il un moyen de le... |
| 12/09/2013 à 22:03 | yoda60 | Format | Le voilà merci de ton aide... |
| 12/09/2013 à 21:24 | yoda60 | Format | J'ai dans une colonne certaines cellule contiennent des nombres stocker en format texte. j'ai bricolé ça ,mais cela me décale tout dans la colonne (a chaque utilisation tout se décale vers le haut d'une cellule ) une idée ou une meilleur solution ? merci Range("N1:N10000").Select Application.CutCopy... |
| 11/09/2013 à 22:47 | yoda60 | Si colonne vide exit sub | Merci c'est ce qu'il me fallait j'avais penser a On Error Resume Next ce qui peux faire l'affaire mais si une autre erreur se présentait dans la macro je n'aurais pas l'info merci encore... |
| 11/09/2013 à 22:00 | yoda60 | Si colonne vide exit sub | Sur une partie d'un de mes codes j'ai inscrit If Range("N1").Value = "" Then Exit Sub Range("N3:N10000").Select Application.CutCopyMode = False Selection.TextToColumns Destination:=Range("N1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon... |
| 10/09/2013 à 18:44 | yoda60 | Nom onglet colonne | Impécable !! rien a retoucher merci Raja... |
| 10/09/2013 à 18:21 | yoda60 | Nom onglet colonne | Est il possible par macro de remplir dans toutes les feuilles du classeur dans la colonne R jusqu'à la derniere ligne rempli en colonne A (je suppose avec xlup) de mettre le nom de l'onglet cordialement... |
| 09/09/2013 à 22:42 | yoda60 | Macro format texte en nombre | J'ai trouvé une soluce ,peut etre pas la meilleur , mais cela marche la macro ci dessous supprimera mon problème colonne M de M3 a M10000 Sub ttest() Dim Feuille As Worksheet For Each Feuille In Worksheets 'parcoures toutes les feuilles If Feuille.Name <> "aaa" And Feuille.Name <> "bbb"... |
| 09/09/2013 à 21:37 | sylvain78 | Somme des bénéfices du mois en cours | Voir le fichier en colone B bien mettre format date =SOMMEPROD(($B$4:$B$1552>DATEVAL("15/08/2013"))*($B$4:$B$1552<DATEVAL("31/08/2013")))... |
| 09/09/2013 à 21:07 | yoda60 | Macro format texte en nombre | Je vous explique mon probleme, j'importe par macro des onglets (il n'ont jamais le même nom ) certains contiennent des cellules en format texte alors que ce sont des nombres. est il possible de faire une macro qui change toutes ces cellules dans tous le classeur en format nombre ? cordialement... |
| 30/08/2013 à 17:54 | yoda60 | Importation onglets | Dure a expliquer en effet en tout cas tu as réussi a contourner le problème super boulot MERCI... |
| 30/08/2013 à 16:57 | yoda60 | Importation onglets | Il essai toujours de prendre le fichier xlsm curieux!!... |
| 30/08/2013 à 15:31 | yoda60 | Importation onglets | Re bonjour décidement je n'arrete plus j'ai une macro vraiment top qui importe toutes les 1ere feuil des fichiers excel contenu dans un dossier le problème c'est qu'elle importe aussi les .xlsm d'où un bug (pas le même nombre de ligne ) est il possible soit importer uniquement les .xls ou bien l'ide... |
| 30/08/2013 à 13:55 | nernono | Géolocalisation | Surf sur le net et tu en trouvera un fichier excel utilisant bingmap mais tous se paie (avec de la patience et du travail ) sur une de ces feuil il te faudra les coordonnées gps/code insee de tes clients. pour ma part mon appli fonctionne parfaitement (je peaufine les détails actuellement ). je sera... |
| 30/08/2013 à 13:35 | yoda60 | Listbox | Dans le fichier ci dessous (ou h2so4 m'a déjà aidé ) , je souhaiterais que les listbox soit classé par ordre alphaétique sans perdre les propriétés de celle ci dure a expliquer mais l'exemple sera plus explicite (enfin j'espère) merci de l'aide que vous m'apporter si souvent cordialement... |
| 29/08/2013 à 20:32 | yoda60 | Lier listbox | C'est parfait tu as bien cerné le problème merci h2so4... |
| 28/08/2013 à 22:07 | yoda60 | Lier listbox | J'ai une listbox1 lieé avec beaucoup de textbox je souhaiterais lier ma listbox2 a la listbox1 , est ce possible merci de votre aide... |
| 28/08/2013 à 20:13 | yoda60 | Listbox onglet | Parfait Banzaï merci de ton aide cdt... |
| 28/08/2013 à 18:42 | yoda60 | Macro imparfaite | Tu as raison, je n'étais pas très clair... j'ai trouvé ce que je voulais , je le met si cela intérresse quelqu'un cdt Sub fusiononglets() Dim ws As Worksheet For Each ws In Worksheets If ws.Name <> "a" And ws.Name <> "b" And ws.Name <> "c" Then Application.ScreenUpdating = False ws... |
| 28/08/2013 à 18:39 | yoda60 | Listbox onglet | J'ai un listbox dans lequel la macro ci dessous affiche tous les onglets du classeur serait il possible d'y mettre une exeption , par exemple ne pas y inclure la "Feuil1" et la "Feuil2" merci de votre aide cordialement Private Sub UserForm_Activate() Dim i As Integer UserForm1.ListBox1.Clear ' vider... |
| 27/08/2013 à 21:32 | yoda60 | Macro imparfaite | J'ai une macro que j'ai adapter a mes besoin, mais lors de la fusion des onglets la macro ne prend pas la ligne entiere si il y a une cellule vide dans celle ci si quelqu'un a une idée merci... |
| 27/08/2013 à 12:20 | yoda60 | Boucle onglet | Parfait , merci Hervé... |
| 27/08/2013 à 11:54 | yoda60 | Boucle onglet | Dim l As Range Dim m As Range Set l = Sheets("aaaa")Range("N1:" & Sheets("aaaa").Cells(Rows.Count, 1).End(xlUp).Address) Set m = Sheets("Feuil1").Range("A1:" & Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Address) For Each cell In l If Application.CountIf(m, cell.Value) > 0 Then cell.Interior... |
| 16/08/2013 à 13:01 | yoda60 | Boite de dialogue | Merci c'est parfait, c'est vrai que je n'ai pas ton niveau , mais celle ci j'aurais dû la trouver seul !! merci encore banzaï... |
| 16/08/2013 à 09:25 | yoda60 | Boite de dialogue | Merci banzaï cela fonctionne bien et la piste est très intéressante ! aller pour faire la fine bouche peut on préselectionner un dossier dans la boite de dialogue genre C:\Users\yoda\Desktop\essai\ le plus souvent les fichier voulus seront dans celui ci cordialement... |
| 14/08/2013 à 23:40 | yoda60 | Boite de dialogue | Est t il possible dans la macro ci dessous de selectionner le fichier par une boite de dialogue. donc remplacer l'instruction activeworkbook par le fichier xls selectionné dans cette boite. ActiveWorkbook.Sheets(1).Copy before:=Workbooks("essai .xls").Sheets(1) If Err.Number = 0 Then ActiveSheet.Nam... |
| 31/07/2013 à 22:43 | yoda60 | Ligne doublon VBA | Parfait Yvouille ! j'ai juste modifier pour n'avoir qu'une seul couleur , merci de ton aide Sub essai2() Dim i As Integer, Index_Couleur As Integer Dim Première_Ligne As Integer, Dernière_Ligne As Integer Application.ScreenUpdating = False 'Index_Couleur = 1 For i = 1 To Range("A" & Rows.Count).End(... |
| 31/07/2013 à 20:49 | yoda60 | Ligne doublon VBA | Une fois n'est pas coutume je demande de l'aide je désirerais une macro de doublon macro qui mettent les lignes STRICTEMENT identique en couleur. je ne souhaite pas de MFC , il me le faut par macro j'ai essayer d'en adapter une que j'avais en stock , mais je plante. merci de votre aide cordialement... |
| 02/07/2013 à 20:43 | yoda60 | Listbox | Je m'y casse les dents, si quelqu'un a une idée elle sera bien venu merci pour l'aide en tout cas cordialement... |
| 02/07/2013 à 17:25 | yoda60 | Listbox | Je plante sur le fait de lier une listbox1 au code ci dessous mes valeurs son renseigné dans celle ci au lieu de prendre les valeur dans la feuille onglet prendre la valeur selectionné dans la list box Java1 = "var Mark = new VEShape (VEShapeType.Pushpin, new VELatLong(" & Sheets("ongletListeCommune... |
| 02/07/2013 à 15:25 | yoda60 | Cartographie | C'est bon , j'ai trouvé ce qu'il me fallait , pour info merci encore pour ton aide Dim s As Long Dim Java1 As String s = 2 While Sheets("ongletListeCommunes").Range("A" & s).Value <> "" Java1 = "Var Mark = new VEShape (VEShapeType.Pushpin, new VELatLong(" & Sheets("ongletListeCommunes").Cells(... |
| 01/07/2013 à 23:07 | yoda60 | Cartographie | Un pb sur cette ligne a = Split(Cells(i, 1), ", ") as tu une idee merci encore de ton implication... |
| 01/07/2013 à 10:22 | yoda60 | Cartographie | Probleme de variable je te met l'exemple par contre si tu veux voir l'appli fonctionner il faut créer un fichier d'initialisation HTMl ( tu en as peut etre déjà un ) merci pour ton aide cordialement ps j'avais également ajouté dans le module 1 ajoutRepere j'ai oublier de le remettre dans l'exemple q... |
| 30/06/2013 à 23:28 | yoda60 | Cartographie | Dans le principe c'est bon, mais j'ai un fichier client que je doit mettre a jour tous les mois avec pres de 140 ref . c'est pour cela que j'ai récupérer un fichier avec toutes les coordonnée gps des communes de France. je voulais opter pour une feuille avec le nom de la commune et ses coordonnées g... |
| 28/06/2013 à 23:20 | yoda60 | Cartographie | Je voulais une fichier excel pouvant placer des point sur une carte. j'ai trouver une merveille sur le net (bravo et merci mr F. ), mais l'auteur ne souhaite pas que l'on modifie son fichier, je comprend bien. cependant je ne peux utiliser celui ci , j'ai besoin de mon acces visual basic. il a laiss... |
| 22/06/2013 à 09:04 | yoda60 | Remplissage colonne | Ca marche !!! , merci pour l'aide !... |
| 20/06/2013 à 12:55 | yoda60 | Remplissage colonne | Notre ami tulipe m'a gentiment fournit une formule mais la donne a changé...(il peut y avoir du texte ou des nombres...) comment peut on copier dans une colone la 1ere cellule non vide jusqu'a la derniere cellule non vide , et ainsi de suite sur toute la colone. donc dans mon exemple ne pas remplir... |
| 19/06/2013 à 20:34 | yoda60 | Remplissage colone sous condition | Merci pour les formules!!! cela pourrais m'être très utile pour d'autre soucis , mais si possible j'aimerais l'inclure en VBA , en effet j'aurais besoins de l'inclure dans une macro existente. en tout cas bravo pour les formules , mais si une ame charitable a une idée en vba ce serais très sympa... |
| 19/06/2013 à 18:06 | yoda60 | Remplissage colone sous condition | Comment peut on copier dans une colone la 1ere cellule non vide jusqu'a la derniere cellule non vide , et ce sur toute la colone. donc dans mon exemple ne pas remplir les cellule vide de ma colone E merci pour l'aide cordialement... |
| 11/06/2013 à 18:48 | yoda60 | Nb valeur entre 2 plage horaires sous conditions | Parfait , merci mille fois !... |
| 11/06/2013 à 18:26 | yoda60 | Nb valeur entre 2 plage horaires sous conditions | Je sollicite une fois de plus de l'aide.. je souhaiterais comptabilisé le nombre de cellule comprise entre 17:00 et 18:00 dans la colone B si la date qui est en face (colone A ) est identique a celle de la cellule F3 merci de votre aide cordialement... |
| 30/05/2013 à 22:02 | yoda60 | Impression | J'essai de bricoler un code pour imprimer certaine feuilles du classeur et avoir le nombre que je veux par un textbox. je voudrais avoir votre avis sur celui ci n'ayant pas d'imprimante a la maison je ne suis pas sur de mon coup ... je pense que les "ténors" d'exel pratique veront au premier coup d'... |
| 28/01/2013 à 20:55 | yoda60 | Copie vers classeur fermé sous condition | Voir une tel implication fait plaisir a voir, merci . je vais être très occupé ces prochain jours , je vais regarder cela dés que possible. merci de ton aide cordialement... |