Résultats de la recherche

  1. chifounou

    XL 2016 petit pb d'édition de format

    Bonjour, Je cherche à paramétrer un format personnalisé pour du kWh cependant celà se transforme automatiquement en format kW0 en dénaturant la valeur de mon nombre également Merci si vous avez la solution
  2. chifounou

    XL 2016 emails non linkifiés

    Bonsoir, lorsque je tape une adresse mail dans une cellule, automatiquement celle-ci est linkifiée pour que d'un click celà lance Outlook y-a-t'il un moyen pour que le texte saisi reste au format texte pur d'emblée
  3. chifounou

    XL 2016 application.onkey {DELETE}

    Bonjour, J'utilise à la racine de ThisWorkbook cet appel de macro Private Sub Workbook_activate() Application.OnKey "~", "key" End Sub Celà fonctionne parfaitement avec la touche Entrée Par contre, avec la touche Delete : Application.OnKey "{DELETE}", "key" ...celà ne réagit pas...
  4. chifounou

    XL 2016 macro : trie alphabétique sans redondance

    Bonjour, J'utilise cette macro, pour ranger dans l'ordre alphabétique la saisie d'emails au sein d'une même colonne Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A3:A2503")) Is Nothing Then Range("A3:A2503").Sort Key1:=Range("A3")...
  5. chifounou

    XL 2016 problème bords verrouillés

    bonjour à tous, depuis quelques jours maintenant, la fenêtre de formatage des bords s'est déglinguée. Je ne peux plus cliquer directement dans l'encadré pour faire disparaitre des traits et plusieurs des boutons sont devenus inutilisables, confrmémement à mon image Quelle résolution ? Merci...
  6. chifounou

    XL 2016 ignorer l'erreur, par VBA

    Bonjour, Je remplis une cellule par VBA comme ceci : Target = Target.Offset(0,20).Formula Ce changement induit que ma cellule avec la nouvelle formule est différente des autres adjacentes et provoque une erreur. Y'a-t'il un moyen par VBA d'automatiquement "ignorer l'erreur" pour faire...
  7. chifounou

    XL 2016 email hypertexte, lancer autre chose que Outlook

    Bonjour, Je regardais ceci https://www.extendoffice.com/documents/excel/2688-excel-mailto-link.html Et puis, chez moi, vu que je n'ai pas Outlook installé, je remarque qu'en cliquant sur un email hypertexte dans une cellule, celà me lance une page vide de mon navigateur par défaut ...bof...
  8. chifounou

    XL 2016 ActiveCell contenu dans une plage de cellule

    Bonjour, En VBA, J'aimerais tester si la cellule active appartient à une plage de cellule de type B2,C5:C8,C10 Comment l'écrire ? Merci bien
  9. chifounou

    XL 2016 VBA ne pas modifier formule si texte tapé

    Bonsoir, Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("F5")) Is Nothing Then If Not IsEmpty(Target) Then If IsNumeric(Target) Then Range("H5") = Range("F5").Formula Else Target =...
  10. chifounou

    XL 2016 problème ouverture page web pdf

    Re, J'applique ce code pour lancer une page web à l'ouverture du classeur. Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean) Cancel = True If c.Address = "$E$5" Then Address:="https://www.degiro.es/data/pdf/es/Relacion_de_tarifas.pdf" End If End...
  11. chifounou

    XL 2016 déclenchement sur touche sans modification cellule

    Bonsoir, J'utilise ce code qui s'enclenche suite à 2 conditions : modification de la cellule puis validation par la touche ENTREE notamment Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Target.Worksheet.Range("O15")) Is Nothing Then If Not IsEmpty(Target) And...
  12. chifounou

    XL 2016 lien hypertexte dans un commentaire

    bonsoir, est-ce possible ?
  13. chifounou

    XL 2016 ouvrir x liens sur 1 click hypertexte

    Bonjour, y-aurait-il un moyen pour ouvrir plusieurs pages webs distinctes par un seul lien hypertexte ? merci
  14. chifounou

    XL 2016 VBA ajouter commentaire

    Bonjour, J ai enregistré une macro consistant à ajouter un commentaire à une cellule. Voici le code pondu Range("L11").AddComment Range("L11").Comment.Visible = False Range("L11").Comment.Text Text:= _ "* depends :" & Chr(10) & "- yes with old licences acquired before...
  15. chifounou

    XL 2016 VBA déclenchement avec touche Page Down

    Rebonsoir, J'utilise ceci à la racine de la feuille, qui fonctionne bien comme attendu lorsque j entre une valeur dans la case puis ENTREE If Not Intersect(Target, Target.Worksheet.Range("B3")) Is Nothing Then If Not IsEmpty(Target) And IsNumeric(Target) Then Target.Offset(5, 0).Select...
  16. chifounou

    XL 2016 VBA se rendre à une cellule sélectionnée

    bonsoir, En VBA j'utilise Range("").Select ou .Activate Cependant si la cellule visée est en dehors du calage de la feuille vis à vis de mon écran, je suis obligé de toucher à l'ascenseur sur la droite pour aller chercher la cellule. Y'a-t'il un moyen pour que la cellule sélectionnée par VBA...
  17. chifounou

    XL 2016 Symbole Euro dans commentaire

    Bonjour, En commentaire de cellule, les symboles de revistes £ ou $ s'affichent correctament Par contre le symbole € lui non : il est remplacé visuellement par une simple barre verticale Solution ?
  18. chifounou

    XL 2016 Nom sub forcé avec module

    Bonjour, J'ai désormais sans explication la mention de la référence des modules dans lesquels se trouve certaines de mes macros. Exemple : Module13.prorealtime_minimum_commissions Pourtant je ne fais aucune déclaration spéciale de déclaration au niveau de mon Sub Cela ne me les fait pas...
  19. chifounou

    XL 2016 VBA texte casse majuscules

    Bonjour, Pour mettre à la racine de ma feuille suite à évènement de modification de cellule, j'aimerais que l'orquestra j'entre du texte, celui-ci soit automatiquement convertí en majuscules 2 exemples différents : off >>> OFF TExTe >>> TEXTE (à toute fin utile, il n'y aura jamais de lettres...
  20. chifounou

    XL 2016 Définir plage cellule sans référence à feuille

    Bonjour, J'essaye de définir la plage suivante =OFFSET($BA$89,,,41,COUNT($BB$89:$BG$89)+1) Mais lorsque je valide, cela la convertit automatiquement en l'assignant à la feuille active =OFFSET('Jan 2017'!$BA$89,,,41,COUNT('Jan 2017'!$BB$89:$BG$89)+1) Hors mon but est d'avoir cette plage...