Résultats de la recherche

  1. T

    XL 2013 Recherche valeur mini sans selectionner une plage

    Bonjour a tous je cherche une formule pour extraire la valeur mini a partir du 02/01/2020 sans sélectionner manuellement une plage Quelqu'un aurais une idée ? 18/12/2019 10,405 19/12/2019 10,04 20/12/2019 9,95 23/12/2019 9,92 24/12/2019 10,02 27/12/2019 9,95 30/12/2019...
  2. T

    Liste de validation par double clic

    Bonjour, je voudrais activer une liste de validation (Données - Validation des données) par un double clic sur la cellule. Ma macro fonctionne sauf que je n'arrive pas a selectionner le 1er item de ma liste dès sa création dans une cellule. Pas trés clair... j'en conviens Voici mon...
  3. T

    Macro enregistrer et quitter plante XL2007

    Bonjour, La macro suivante fonctionnait très bien sous XL 2003 mais depuis que je suis passé a XL 2007 elle me plante systématiquement l'application. J'ai essayé sur plusieurs PC utilisant la version XL 2007 : même résultat Voici la macro qui est pour le moins basique Sub...
  4. T

    Marche pas sous XL2010 ?

    Bonjour, Cette petite ligne de macro pour sélectionner la date du jour dans la colonne C qui contient toutes les dates de l'année fonctionne bien sous XL2003 et 2007 mais provoque une erreur sous XL2010 "Erreur de compilation - Projet ou Bibliothèque introuvable" Private Sub...
  5. T

    Pb de variable

    Bonjour Je voudrais transmettre une variable (en fait un message) par le biais d'une macro à un label d'un userform. Dans la macro J'ai déclaré dim Msg J'ai meme essayé de déclarer dim Msg$ en tete de module et pourtant le userform s'ouvre avec un label vide. Une info pour...
  6. T

    Définir une plage en VBA

    Bonjour, En fait je cherche à définir une plage qui serait au maxi de A3:I8 mais qui devra etre A3:I5 s'il n'y a pas de valeur en A6:I6 malgré la présence de valeur soit en A7:I7 et/ou en A8:I8 C'est pas très clair non ? ci-joint mon fichier exemple
  7. T

    Touche Entrée dans un textbox

    Bonjour à tous, J'ai un textbox sur une feuille qui me sert à faire de la recherche dès que j'appuie sur un Label OK placé sur la même feuille. Je souhaiterais lancer la recherche en entrant le mot dans le textbox et en tapant entrée. Je n'y arrive pas avec : Application.OnKey...
  8. T

    Tirage aleatoire entre 3 valeurs

    Bonjour, Je cherche à faire un tirage aléatoire entre les 3 valeurs suivantes: 0.5 0.75 1 Avez-vous une piste pour la formule en VBA ? Merci.
  9. T

    Problèmes incompréhensibles

    Bonjour, Je vous sollicite afin de savoir si vous avez déjà pu observer ce type de dysfonctionnement. J'ai un classeur qui me pose problème depuis hier. certaines feuilles qui ont une procédure Private Sub Worksheet_Activate() ne posent pas de problème alors que pour l'une d'entre elles...
  10. T

    Pb de double-clic

    Bonjour, J'ai un problème avec ce code: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim ligne As Integer On Error GoTo finerreur 'Traitement de TERM par double-clic If (Target.Column <> 8 Or Target.Row < 3) Then Exit Sub...
  11. T

    Type d'argument Byref incompatible

    Bonjour à tous, Quel type de variable dois-je déclarer afin de pouvoir transmettre le nom de fichier à la fonction Isopen ? Actuellement je reçois le message: Type d'argument Byref incompatible Sub essai() Dim NomdeFichier NomdeFichier = "Agenda.xls" If IsOpen(NomdeFichier) Then...
  12. T

    Envoi paramètre à classeur fermé

    Bonjour à tous, J'ai un classeur ouvert avec un menu au travers d'un USF. (jusque là: ça va) Depuis ce classeur ouvert, je voudrais transmettre un paramètre à un classeur fermé de manière à ce que ce classeur fermé s'ouvre sans dérouler totalement sa procédure Private Sub Workbook_Open...
  13. T

    identifier le N° de la dernière ligne affichée à l'écran

    Bonsoir à tous, Je voudrais savoir s'il est possible d'identifier le N° de la dernière ligne affichée à l'écran (meme lorsque certaines lignes sont masquées) J'ai essayé avec ActiveWindow.VisibleRange qui me donne l'adresse de la plage visible mais je n'arrive pas à capter le N° de la...
  14. T

    Centrer un shape avec zoom

    Bonjour, Pour centrer un shape à l'écran j'utilise : shp.Left = (Application.UsableWidth - shp.Width) / 2 Mais si j'applique un zoom de 140% par exemple, le shape n'est plus centré. shp.Left = (Application.UsableWidth - (shp.Width * (ActiveWindow.Zoom / 100)) / 2) ne va...
  15. T

    Pb de macro de recherche de date

    Bonjour, J'ai un problème de macro de recherche de date en interaction avec une autre macro qui sert à ajuster les lignes après avoir employé la méthode find (pour trouver vraiment la dernière ligne utilisée sur la feuille)r La macro Today fonctionne si je la lance avant celle qui sert à...
  16. T

    Pb avec textbox

    Bonjour, Quand je fait une modification par le biais d'un textbox, le contenu de la cellule fait apparaître des caractères de retour chariot ou saut de ligne. Est-ce une mauvaise configuration des paramètres du textbox ? Est il possible d'inhiber automatiquement ces caractères ? Merci...
  17. T

    positionner un userform sur cellule active

    Bonjour à tous, J'ai un problème de positionnement de userform je voudrais centrer le userform au centre de la cellule active (en X) et positionner le bas du userform sur le top de la cellule active Quelqu'un a une idée ? Merci.
  18. T

    Pb de graphique

    Bonjour à tous, Je cherche depuis ce matin a réaliser un graphique assez basique avec en ordonnée des heures (représentant un temps passé) et en abcisse un nombre d'éléments. Je cherche donc a obtenir une seule courbe. Si quelqu'un peut m'aider, je vous remercie vivement.
  19. T

    Positionner un shape nouvellement créé

    Bonjour, Comment pourrais-je centrer automatiquement "Mon message xy" sur l'écran vu que sa taille est fonction du texte ? :confused: Merci de vos idées. Sub Affiche_Message() Dim shp As Shape Dim Fin Set shp = ActiveSheet.Shapes.AddTextEffect( _...
  20. T

    Le code ne s'exécute pas entièrement...

    Bonjour à tous, Ci- après un bout de code: Tout fonctionne sauf les instructions Sheets("Accueil").Select Range("A1").Select Bizarre non ? Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ActiveSheet.Name = ("TUNZINI") _ Or...