Résultats de la recherche

TOP: Encore merci et à bientôt.

Bonjour AtTheOne, J'ai itrouvé une autre solution (en cherchant sur le site 🙂 ) LH = Right(LH, Len(LH) - InStrRev(LH, Application.PathSeparator)) fileExt = Split(LH, ".") LH = fileExt(0) C.Value = LH Et du coup ma boucle fonctionne parfaitement...

Bonjour AtTheOne, merci pour ton aide. ça fonctionne très bien! Une fois que le lien , je voudrais ajouter à la boucle, de changer le contenu de la cellule active. Avec la formule suivante je supprime tout le chemin du fichier ainsi que son extension pour ne garder que le nom du fichier, le...

Bonjour à tous, Je cherche a faire une boucle par rapport à une zone que j'aurais préalablement sélectionnée à la souris, qu'a chaque cellule soit mis l'hyperlien jusqu'a la fin de la sélection. au coup par coup, mon code fonctionne (à peu près) par contre je peine avec la sélection "MaZone" à...

Bonjour Hasco, et merci pour ta réponse. J'ai bien compris ta réponse et en prends bonne note. Personnellement, je pense que ça frise le ridicule, leurs tables étant disponibles et gratuitement sur le net, toutes ces histoires d'autorisation et bla, bla, bla, sont sûrement des astuces...

Bonjour à tous, Pour rester informé de l'évolution de certaines devises ou valeurs importantes, depuis Excel, j'importe des données a partir du Web (requête) et par la suite à l'aide d'une procédure VBA, j'en fais un petite base de données, que j'utilise pour établir un graphique représentant...

En brodant autour de mon problème et cherchant sur ce site j'ai trouvé ☺️ WorksheetFunction.CountA(Range("MonTableau[[#All],[Début]]"))

Bonjour à tous, Sur un tableau qui s'ajuste dynamiquement de jour en jour je souhaite utiliser la formule suivante (qui compte le nb de ligne du tableau) : Cells(3, 12).value = NBVAL(MonTableau[[#All],[Date]]) +1 Malheureusement, j'ai une erreur de syntaxe que je n'arriva pas à résoudre... Si...

(re) Bonjour Job75, Oui, bien sûr. Les deux procédures sont sur sur le module1 déclaré Public. Public bloque As Boolean 'mémorise la variable Sub USF() RAZ Quiz_Usf.Show End Sub Sub RAZ() bloque = False End Sub J'ai enlevé les SetFocus, mais ça ne change rien, le focus ne reste pas dans le...

Bonjour Job75, Je te remercie pour ton aide. J'avoue que je ne comprends pas "comment ça marche" mais J'ai placé le code que tu m'as suggéré (en espérant ne pas m'être trompé), , voir ci-après, mais malheureusement, ça n'a pas l'aire de fonctionner, je n'ai toujours pas le focus dans ce Lbl ...

Bonjour Job75, Merci pour votre aide. Je l'ai testé, malheureusement ça n'a pas fonctionné, tel quel ... 1) Le curseur ne reviens pas dans le label (Quiz_Usf.AnswerTxt_in) 2) L'UserForm qui continue d'être actif pour la suite du Quizz, n'a plus de possibilité de changer d'un bouton à l'autre...

Bonjour Patricktoulon, Merci pour ton aide! J'ai testé: Private Sub AnswerTxt_in_Exit(ByVal Cancel As MSForms.ReturnBoolean) Quiz_Usf.AnswerTxt_in.SetFocus End Sub Mais ça ne change rien, le focus va au bouton suivant quand même... :(

Bonjour à tous, J'ai parcouru le forum, mais n'ai pas trouvé ma solution. :( Je suis en train de programmer un Quizz (questionnaire / jeu), ou du moins j'essaie. Dans un textbox "AnswerTxt_in" d'un userform "Quiz_Usf" qui compte plusieurs labels, boutons et boutons radios, j'écris une donnée...

Merci Riton00, c'est ok 👍

:) If Intersect(Range("Tableau1"), Target) Is Nothing Then Exit Sub Et du coup il ne lance pas calculate

Bonsoir et merci riton00Ok, pour que ça fonctionne bien j'ai utiliser la solution 3 avec le code VBA : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate End Sub Comment puis-je faire pour arrêter le code si je ne suis pas dans le tableau1. Par exemple: (ça ne fonctionne...

Bonjour à tous, Je souhaite appliquer une mise en forme conditionnelle [MFC] dans un [Tableau1] qui en sélectionnant n'importe quel cellule dans le tableau1 sélectionnerait toute la ligne en lui changeant le format, afin de bien la mettre en surbrillance. Je pense que cela est possible avec un...

Bonjour SAM, merci pour ton aide.

Bonjour Thierry et merci pour ton aide. Je suis de ton avis, cette "ListObject" doit être ce qui m'empêche d'atteindre mon but... Malheureusement ça ne fonctionne toujours pas. ----------------------------------------------------- Erreur 438 Propriété ou méthode non gérée par cet objet...

Bonjour Thierry et merci pour ton aide. J'ai corrigé ce code (voir ci-dessous) en suivant ton conseil, mais ça ne fonctionne toujours pas. :( J'ai également créer la macro avec l'enregistreur pour un seul Query (voir après) qui fonctionne pour voir les différences... Ce qui est curieux c'est...