Résultats de la recherche

  1. M

    VBA, Requète WEB

    Bonjour à tous, en Excel 2003 et XP, ce code tourne bien : With ActiveSheet.QueryTables.Add(Connection:= _ "URL;", _ Destination:=Range("a1")) .BackgroundQuery = True .Refresh BackgroundQuery:=False End With Mais avec Excel 2003 et Windows 10 erreur a la ligne suivante : .Refresh...
  2. M

    Trier les 5 premières colones d'une ligne en décroissant

    Bonjour à tous Je cherche une façon simple pour : Trier les 5 premières colones d'une ligne en décroissant 6 8 9 13 3 Résultat recherché : 13 9 8 6 3 Merci de votre aide
  3. M

    Par Macro, décortiquer chiffres ou nombres séparés par une virgule

    Bonsoir à tous, Je m'explique, Je saisis par une InputBox : 16,4,1 Je voudrais pouvoir obtenir les différentes conbinaisons de ces 3 éléments : a = 16,4,1 b = 16,1,4 c = 4,16,1 d = 4,1,16 e = 1,16,4 f = 1,4,16 Je galère un max ! Avez-vous une idée simple ? A vous lire
  4. M

    Par Macro, enregistrer le fichier sans les Macros

    Bonjour à tous, Comment par Macro, enregistrer le fichier sous un autre nom mais sans les Macros ? Ceci fonctionne mais garde les Macros : ActiveWorkbook.SaveAs Filename:=fcourse, FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _...
  5. M

    Tester si une feuille est cachée

    Bonjour, J'ai fais ce code, mais j'ai une erreur 'Décache la feuille 2 If Feuil2.Visible = False Then Sheets("Feuil2").Visible = True End If Si vous avez une idée
  6. M

    Alternance de coloriage

    Bonjours à tous J'ai une dans une feuille, les deux première lignes en col 1 avec des commentaires. Toujours en col 1 mais ligne 3, j'ai un texte (toujours le mème) ensuite dans les lignes suivantes, j'ai des chiffres ou des nombres cela commence toujours par 1 et sont incrémentés ligne...
  7. M

    Effacer toutes les variables

    Bonsoir, Je copie des données dans une feuille ou j'applique une Macro qui me trie, me clase, ou épure les données. Quand, je refait la mème oppération, certaines variables contiennes encore des valeurs qui affectent ou perturbent l'utilisation de la Macro. Comment faire pour que a...
  8. M

    Par Macro, épurer une feuille

    Bonjour a tous, Je m'explique : - Je copie une feuille dans une autre - Dans la nouvelle feuille, j'efface des lignes et des colonnes La dernière cellule remplie est A:97 Mais si je fais un control + fin, la cellule Z:270 est sélectionnée. Comment faire pour épurer la feuille pour...
  9. M

    Par Macro, supprimer tous les GIF

    Bonjour à tous, Je copie une page Web dans une feuille Excel, mais je me retrouve avec une dizaine d'images au format GIF. Est-t'il possible de supprimer ces images sachant qu'une fois copiées dans la feuille, elles n'ont plus de noms ni d'extentions ? Si vous avez une idée
  10. M

    Passer une date en quentième

    Bonsoir, j'ai une date sous la forme : dimanche 12 septembre 2010 Je l'ai épurée pour obtenir 12/09/2010 La cellulle affiche bien 12/09/2010, mais quand je fais un msgbox de la cellule, la date deviens : 09/12/2010 Par le fait le quantième est faux Pour obtenir le quantième je fais ...
  11. M

    Format de date

    Bonsoir, mydate = "12/09/2010" Je voudrais transformer cette date en quelque chose comme : 40521 Comment le faire ?
  12. M

    Par Macro, supprimer une feuille

    Bonsoir, J'utilise ce code : 'Supprime la feuille2 Sheets("Feuil2").Select ActiveWindow.SelectedSheets.Delete Cela fonctionne, mais Excel demande une confirmation de la suppression de la feuille. Est-il possible d'éviter ce message d'avertissement ?
  13. M

    Par macro, Récupérer une sous-chaine

    Bonsoir à tous, Voilà, je voudrais récupérer une valeur numérique se trouvant dans une variable (ou une chaine) C'est a dire, récupérer [2100] qui se trouve 5 caractères avant 'mètres' la chaine : Course 2 : PRIX MONADE - Plat - COURSE A CONDITIONS - 2100 mètres (12000, 4800, 3600...
  14. M

    Par macro, additionner 2 cellules numériques

    Bonsoir à tous, Je voudrais additionner 2 cellules, je m'explique : A1 = 12345,0000 A2 = 0101 Ce que je voudrais faire, c'est aditionner A2 dans A1 mais au niveau des décimales. J'ai fait des tests, mais cela me supprime le premier zéro de A2 Comment faire ?
  15. M

    Tester si une chaine contiens un môt

    Bojour à tous, Comment tester si une chaine contiens un môt chaine = "La petite maison dans la prairie" Si la chaine contiens "maison"
  16. M

    Formatage date

    Bonsoir à tous, J'ai une date sour la forme de : 03 août 2010 Je voudrais avoir : 03/08/2010 vdat1 = 03 août 2010 vdat2 = Replace(vdat1, "août", "/08/") Mais ma date deviens : 08/03/2010 Donc pas bon ! Si vous avez une idée
  17. M

    Couper une chaine

    Bonjour, Je voudrais couper une chaine en deux tout en supprimant 2 caractères la chaine : "ANGELIQUE *DUVAL" J'utilise : Instr ="ANGELIQUE *DUVAL" If InStr(yyy, "*") > 0 Then yyy = Mid(yyy, 1, InStr(1, yyy, "*") - 1) Cells(I, 2) = yyy End If Dans I,2 je récupère...
  18. M

    Supprimer boutons ce commande formulaire

    Bonjour à tous, Je fais un sélectionner tout d'une page html puis je fais copier. Ensuite, je la colle dans une feuille Excel et par Macro je récupère le contenu de certaines cellules dans une autre feuille. Jusque là, tout va bien ! Le soucis, c'et quand je veut effacer ce qu'il...
  19. M

    Tronquer une chaine

    Bonjour, Comment par Macro tronquer une chaine a partir d'un caractère ? La chaine : DULLDUMMAN USA* F.PS. 3 ans Ce qu'il faudrait : DULLDUMMAN USA Merci à vous
  20. M

    Enregistrement, fermeture fichier sans messages

    Enregistrement, fermeture fichier sans messages - [RESOLU] Bonjour, Ce que je voudrais faire, c'est par Macro, enregistrer et fermer un fichier XLS et ceci sans les boites de dialogue. Je m'explique : 1° - J'ouvre 11111.xls (une seule feuille) 2° - Je fais un petit traitement dans...