Contenu récent par Remteyss

  1. R

    XL 2016 VBA - Fonction traduction, accès refusé

    Bonjour, Je suis enfin parvenu à la traduction que j'attendais ! Mais bon qu'une seule fois, les autres fois ça m'arrivait même de demander une traduction vers l'allemand et j'obtenais du français... J'attends donc l'intervention du service info et en attendant j'ai une petite question ; J'ai...
  2. R

    XL 2016 VBA - Fonction traduction, accès refusé

    Re, D'accord je vois ! Je vais donc tester sur d'autres PC car j'ai lancé la macro et ça a fonctionné niquel ! Puis celle d'après la macro traduit encore "" Merci pour ton aide en tout cas ainsi que pour ta fonction ;) Remteyss
  3. R

    XL 2016 VBA - Fonction traduction, accès refusé

    Oui je ne doute pas que ta fonction fonctionne :D Je suis encore novice en VBA et n'avais pas activé les librairies "Microsoft HTML Object Librairy" et "Microsoft XML, v6.0". C'est chose faite mais le problème persiste
  4. R

    XL 2016 VBA - Fonction traduction, accès refusé

    Bonjour @patricktoulon Oui mais dans la fonction Translate2 il y a cette ligne : If Convert <> 0 Then If Convert = 1 Then SendText = EncodeText1(SendText) Else SendText = EncodeText2(SendText) Il faut en fait lire EncodeText2 donc ? C'est un fichier très volumineux que je ne peux...
  5. R

    XL 2016 VBA - Fonction traduction, accès refusé

    Bonjour @patricktoulon Merci pour ton retour, j'ai lancé ma macro et ça a bien marché jusqu'à l'une des dernières cases à traduire Puis j'ai réessayé et là j'ai eu le message d'accès refusé directement... P:S: A quoi correspond EncodeText1 ?
  6. R

    XL 2016 VBA - Fonction traduction, accès refusé

    Bonjour le forum, Dans une macro, j'utilise la fonction traduction ci-dessous : Public Function Translate(Optional texte As String, Optional From As String, Optional ToLang As String, Optional urlI As String) Dim RQ As Object, URL As String, code As String, elem As Object, x As Long Set...
  7. R

    XL 2016 Erreur "L'indice n'appartient pas à la sélection"

    Merci pour ton retour @Dranreb Oui ma worksheet est déclarée en public En fait, l'utilisateur de la macro sélectionnent les classeurs dans un formulaire et à partir de là ils sont définis. Ducoup autant pour moi il y a bien une de mes colonnes sur les 78 qui était restée vide... Je clos donc...
  8. R

    XL 2016 Erreur "L'indice n'appartient pas à la sélection"

    Bonjour le forum, J'ai créé une macro avec un userform contenant un bouton qui a pour nom "CB_SelectColumns" et je l'ai paramétré comme suit : Sub CB_SelectColumns_Click() Dim Last_Column_targetfolder As Integer Dim i As Integer Dim title As String Dim x As Variant...
  9. R

    XL 2016 Quitter la procédure à partir d'une fonction

    Bonjour @mapomme, Merci pour ton idée, je vais essayé d'adapter cela :)
  10. R

    XL 2016 Quitter la procédure à partir d'une fonction

    Bonjour @_Thierry Oui j'ai testé le Exit function, il permet juste de sortir de la fonction mais la procédure continue Pour mon cas, il y a donc un message d'erreur qui s'affiche demandant à l'utilisateur de modifier sa sélection puis la procédure continue sans laisser la main à l'utilisateur...
  11. R

    XL 2016 Quitter la procédure à partir d'une fonction

    Bonjour le forum, Travaillant depuis 3 mois sur une même code, je l'améliore de jour en jour pour gagner en lisibilité si des collègues chercheraient à le retravailler. J'ai donc implémenté pas mal de fonctions. Je souhaiterais maintenant implémentés des messages d'erreur (qui apparaissent lors...
  12. R

    XL 2016 VBA - Valeur 1.0 donne 1

    D'accord je vois ! Merci à vous deux @pierrejean et @Dranreb Après modification, ça fonctionne ! Voici le code modifié si ça peut servir : Sub test() With ActiveWorkbook.Worksheets("Feuil1").Cells(1, 1) .NumberFormat ="@" .Value = "1.0" End with End Sub Bonne fin...
  13. R

    XL 2016 VBA - Valeur 1.0 donne 1

    Bonjour pierrejean, Merci pour ton retour. C'est-à-dire ? :D Le format n'est pas TEXTE si j'écris la valeur sans "" non ?
  14. R

    XL 2016 VBA - Valeur 1.0 donne 1

    Bonjour le forum, Quelqu'un saurait t-il me dire pourquoi lorsque l'on donne une valeur String "1.0" à une cellule en VBA, alors la valeur 1 apparaît ? Sub test() ActiveWorkbook.Worksheets("Feuil1").Cells(1, 1).Value = "1.0" End Sub Alors que si on écrit directement "1.0" dans la cellule...
  15. R

    XL 2016 VBA - Vérifier qu'au moins une case est cochée dans une listbox

    Bonjour, Merci à vous deux pour vos retours. Je vais donc créer une fonction perso pour gagner en lisibilité. @fanch55 le CounterCheckBox ne m'était pas très utile mais finalement je l'utilise :D Encore merci à vous, je passe le sujet en "Résolu" Bonne journée !