Résultats de la recherche

  1. Magic_Doctor

    XL 2010 Info-Bulle en survolant une icône

    Bonsoir, J'essaie de faire apparaître une info-bulle quand on survole avec le curseur une icône. Quand on cesse de survoler l'icône, l'info-bulle disparaît. Pour ce faire, j'ai tenté de m'inspirer d'une vidéo trouvée ici. J'ai suivi pas à pas, mais impossible de placer les Labels derrière...
  2. Magic_Doctor

    XL 2010 Développer un polynôme en VBA et récupérer ses coefficients

    Bonsoir, Un problème un peu ardu. J'ai un polynôme qui est toujours sous la forme : a (X - 1)^3 + b (X - 1)^2 + c (X - 1) + d Supposons, dans cet exemple, qu'il soit : (X - 1)^3 + 3 (X - 1)^2 - 24 (X - 1) + 28 Si on le développe, on obtient : X^3 - 27 X + 54 Il y aurait-il un moyen...
  3. Magic_Doctor

    XL 2010 Un contrôle de saisies psychédélique

    Bonsoir, Pour m'amuser, j'ai réalisé ceci pour une application. C'est, en fait, une compilation de plusieurs astuces glanées essentiellement sur ce forum. Pour ce contrôle de saisies, 3 cas de figure : 1/ la valeur entrée est inférieure à une valeur stipulée. On est averti, et la valeur...
  4. Magic_Doctor

    XL 2010 Modifier la couleur d'un Label (ActiveX) situé sur la FEUILLE

    Bonsoir, Tout est dans le titre. J'ai un peu tout essayé et je finis par me demander si c'est possible. Il y a un Label nommé "MonLabel" sur la feuille. Depuis une macro, je veux modifier sa couleur. Excel et les couleurs, c'est un peu le bordel avec les Hexa, Long et RGB. En général, j'utilise...
  5. Magic_Doctor

    XL 2010 Un message énigmatique

    Bonsoir, Une nouvelle barre est apparue avec le message suivant (je traduis) : Mise en garde de sécurité : les liens pour l'actualisation automatique ont été bloqués Qu'est-ce que ça veut dire ? Qu'est-ce que j'ai encore fait ? Comment se débarrasser de ce message ? Merci d'avance pour...
  6. Magic_Doctor

    XL 2010 Insérer un caractère spécial dans un Label

    Bonsoir, Je bataille pour tenter d'insérer un caractère spécial dans un Label. Dans une cellule, pas de problème, en revanche dans un Label le réultat n'est pas celui escompté. Si j'écris dans une cellule nommée "Titre_UXvsUY" : [Titre_UXvsUY] = "1 UY " & ChrW(&H225F) Cela me renvoie bien : 1...
  7. Magic_Doctor

    XL 2010 Code ChrW pour sensiblement égal

    Bonsoir, Tout est dans le titre. Quelqu'un du forum connaîtrait-il le code ChrW pour obtenir ce symbole hyper connu ?
  8. Magic_Doctor

    XL 2010 Regrouper 2 images et 1 label

    Bonsoir, Regrouper 2 images (shapes) je sais faire. En revanche, regrouper les 2 images avec 1 Label (ActiveX), est-ce possible ? Si oui, comment s'y prendre ? Je tâche d'être plus explicite en images : 1/ 2 icônes (boutons vert & rouge) + 1 label ("Durée fichiers Audio/Vidéo") 2/...
  9. Magic_Doctor

    XL 2010 Dresser un Array recensant les différentes extensions des fichiers d’un dossier

    Bonsoir, Je récupère la liste de tous les fichiers contenus dans un dossier. Il y a des fichiers de tous types : .pdf, .doc, .txt, .mp3, .avi… Forcément, pour chaque type de fichier, il y en a, au minimum, un ou plusieurs, Je voudrais dresser un Array recensant toutes les extensions des...
  10. Magic_Doctor

    XL 2010 Tri avec mise en évidence en couleur des groupes d'items triés

    Bonsoir, J'ai une BD que je peux trier via un ComboBox : - Tri par ordre alphabétique ascendant ou descendant - Tri par tailles ascendantes ou descendantes des fichiers - Tri en fonction des extensions des fichiers Jusque là, pas de problème. Je voudrais rajouter un plus. Quand on tri par...
  11. Magic_Doctor

    XL 2010 Une curiosité avec une fonction personnalisée qui renvoie une date

    Bonjour, Je fais un essai avec cette fonction personnalisée : Function MaDate(Nbjours#, Optional Date_Depart As Date) As String Dim fecha As Date fecha = IIf(IsMissing(Date_Depart), Date, Date_Depart) MaDate = DateAdd("d", Nbjours, fecha) End Function qui renvoie une date qui...
  12. Magic_Doctor

    XL 2010 Texte biffé dans un Label

    Bonsoir, Peut-on faire apparaître un texte biffé (par exemple ZORRO) dans un label ? Le Label s'intitulant "LabelDuration", j'ai bien tenté ceci : ActiveSheet.Shapes("LabelDuration").Font.Strikethrough = True sans succès. Si c'est possible, comment alors s'y prendre ?
  13. Magic_Doctor

    Date et heure ConvertSeconds

    J'en avais besoin, donc je l'ai fait. Mais je pense que l'on peut faire plus simple. Function ConvertSeconds(sec#) As String 'Converti des desondes en années | jours | heures | minutes | secondes 'Magic_Doctor Dim a#, j#, h As Byte, mn As Byte, s As Byte, suf1$, suf2$ j = Int(sec /...
  14. Magic_Doctor

    XL 2010 Énigmatiques fichiers "fantômes" qui commencent par "~"

    Bonjour, Je récupère la liste de tous les noms de fichiers contenus dans un dossier ; la liste se dresse correctement mais avec en plus des fichiers dont le nom commence par "~", comme, par exemple : ~$Vols d'Oiseau 29y.xlsm J'ai facilement réussi à me débarrasser de ces fichiers "parasites"...
  15. Magic_Doctor

    XL 2010 Récupérer la DURÉE d'un fichier AUDIO ou VIDEO

    Bonsoir Tout est dans le titre. Après avoir activé la référence "Microsoft Scripting RunTime", on peut récupérer nombre de donnés concernant un fichier (taille, type...), mais peut-on récupérer, quand il s'agit d'un fichier Audio ou Vidéo, la durée ? Je pense que cela doit être possible...
  16. Magic_Doctor

    XL 2010 Lister un dossier comportant des sous-dossiers

    Bonjour, Je voudrais, comme le titre l'indique, lister un dossier comportant des sous-dossiers. Supposons que le dossier, dans le disque "G", s'intitule "Musique". Ses sous-dossiers : "Blues" | "Classic" | "Folk" | "Jazz" | "Tangos Mortels" ... Mais, par exemple, dans "Jazz" il y a d'autres...
  17. Magic_Doctor

    XL 2010 Problème avec "ScrollArea"

    Bonsoir, Sur la feuille il y a 5 CommandButtons et 5 tableaux. À chaque CommandButton correspond un tableau. Quand on clique, par exemple, sur le 2ème CommandButton, la couleur du numéro qui lui est attribué (ici 2) passe du vert au rouge et vice versa si on clique de nouveau sur ce même...
  18. Magic_Doctor

    XL 2010 Collage de données dans le Boc-Notes à partir d’un tableau

    Bonjour, Dans mon classeur (fragment de l’application définitive) il y a une icône. Quand je clique dessus apparaît le Bloc-Notes. Dans le Bloc-Notes, quand on clique sur "Coller" (bouton droit souris), certaines données du classeur y sont collées. Pour m’y prendre, j’ai dû créer sur la feuille...
  19. Magic_Doctor

    XL 2010 Problème dans le paramétrage d'une fonction à partir d'un formulaire

    Bonsoir, J’ai une fonction personnalisée qui permet de transformer un nombre en chaîne de caractères. J’ai un formulaire à partir duquel je peux paramétrer cette fonction. La fonction ne se paramètre pas correctement et je n’arrive pas à comprendre pourquoi. Tout est bien expliqué dans le...
  20. Magic_Doctor

    XL 2010 Fermeture d'un classeur

    Bonsoir, J'ai un MessageBox. Quand je clique sur le bouton "OUI" le classeur doit se fermer ipso facto après enregistrement des dernières modifications qui y ont été faites. Le problème est donc à priori simple. Quand je dis que le classeur se ferme, c'est en même temps l'application Excel...