Contenu récent par mysti54

Top merci Franch 55, j'espère que ca fonctionnera

pour avoir les données et url, merci de ton aide

ok je vais me renseigner au concepteur de ce fichier

je veux récupéré pour chaque cheval ce genre d'infos

Bonjour à tous et meilleur vœux, j'ai un soucis avec une récupération d'élément de course hippique je récupère sous ce format date 19012025, après avoir choisi la réunion ensuite le course, l'extraction ne se fait dans aucune cellule et je n'ai aucun message ou fenètre qui apparait. je suis...

Ok merci désolé

Non en faite je vais garder votre code et adapter mon fichier à celui_ci. Merci beaucoup

Sans Vba est_ce que c'est possible ?

Merci Silvanu, je vais essayé d'adapter la formule à mon fichier. Merci

Bonjour à tous J'aimerais avoir de l'aide s'il vous plait Le tableau initial c'est celui qui se trouve en I6-P15, qui ne faut pas toucher, les doublons sont dans tableau R6-w15 si un doublons se trouve dans le tableau initial ligne par ligne, il est supprimé d'office et dans le tableau...

bonjour iso100 Merci pour la réponse mais comment l'adapter aux cellules sur le premier fichier joint. Colonne n°13 (M) ligne 15.

Bonsoir à tous J'ai parcouru le forum et je n'arrive pas à adapter ma recherche par code VBA sur ce que je trouve. J'aimerais archiver les valeurs de la feuille 1 qui sont en vertical à la feuille 2 qui doivent être archiver en horizontal à la suite. En feuille 1 les valeurs en M13 M14 et M15...

Bonjour à tous J'ai fait une recherche manuelle de mise à jour et j'en ai eu pas mal concernant excel et tout est rentré dans l'ordre. Le problème venait de là. Merci pour votre aide.

Merci j'ai modifié Mais quand je relance le fichier, j'ai Private Sub Workbook_Open() qui est surligné en jaune comme le problème du début. Option Explicit Private Sub Workbook_Open() With F01 .Activate .CBoxReunion.Visible = False Application.Goto .Range("A1")...

Désolé de ne pas saisir tout Voilà le module 1 'Option Explicit Sub test() 'Extraire Musique If I > 1 Then Musiques = Musique(Cells(Lig + I, "M").Value) Temp = Split(Musiques, " ") If UBound(Temp) < 5...