Contenu récent par Benzema

Bonjours a tous, Je réalise une macro qui ouvre dans un nouvel onglet des pages HTML avec des tableaux de chiffres. Jusque la rien de sorcier, le seul soucis est le suivant les valeurs sont au format anglais (avec le point pour séparer les décimales ex:-53.22) et lorsque j'ai par...

Re : Run time error '1004' Merci de ta reponse, jai reussi a trouver par moi meme, c'est ce fameux type Variant qui fous la merde, en remplacant Public YPrmters() -----> Public YPrmters() As Integer Les guillemets ont disparu et ca marche ;) Merci de ton aide , Have a nice...

Bonjour a tous, J'ai 1 soucis d'erreur lors de la compilation d'une Macro: Le code possedant l'erreur est le suivant : Public y_choice As Range,YPrmters() ...... Set y_choice = Cells(31, YPrmters(0)) La valeur de YPrmters(0) vaut 1 a ce moment la comme le montre le AddWatch: Je ne...

Re : Extraire une nombre d'une phrase Bonjour a tous, je cherche a faire quelque chose de similaire: j'ai des chiffres 2;23;4;46;6...... je cherche a pouvoir les recuperer 1 par un dans 1 boucle For, cad valueur=2 pour i=0, valeur=23 pour i=1.... Quelqu'un a une idee ? Merci d'avance

Re : Recuperer indice d'une ligne dans 1 entier Merci de vos reponses, J'ai trouver dans 1 bouquin le meme code que Pierrot FinalRow = Sheets("Sheet35").Range("A65536").End(xlUp).Row Ca marche nickel. Merci a tous

Bonjour, Comment recuperer l'indice de la ligne du la derniere cellule remplie dans 1 Integer ?

Re : Ouverture multi page (saisie nom fichier) Re, Oue la est toute la question Ne fonctionne pas pour utiliser Range("A"& i)... Grrrr !

Re : Ouverture multi page (saisie nom fichier) Eureka, c'est bon ! J'ai mis un activesheet au debut et ca marche =) Encore merci Pierrot pour toutes les fois ou tu m'aide ;) Juste une question pour remplacer l'indice Range("A1") par Range("A"&i) si je suis dans 1 boucle For d'indice i, puis...

Re : Ouverture multi page (saisie nom fichier) Bonjour Pierrot, "FINDER;file:///C:/.../Report/" & Sheets("Sheet35").Range("A1").Value & ".html", Destination:=Range("A1")) .Name = "HTML_TEST(1)" Cette fois ci le compilateur me dit: je pense que le probleme vient donc de...

Bonjour, J'aimerai savoir si quelqu'un sait pourquoi, lorsque j'ouvre un fichier dans 1 nouvelle feuille avec le nom en dur ca marche, lorsque je remplace le nom par le contenu de la case qui contient son nom ca plante alors que cette manip marche pour l'ouverture dans 1 autre fenetre...

Re : Modifier un string en adresse de cellule Bonjours a tous , J'ai reussi a resoudre mon probleme, ca venait des type de selection de feuille Sub rajoutSerie() Dim c As ChartObject, s As Series, b As Range Set c = Sheet2.ChartObjects(1) With c.Chart Set s...

Re : Modifier un string en adresse de cellule Bonjour a tous ! Merci de vos reponses ! Je vais essayer d'eclaicir mon probleme pour tout le monde, n'hesitez pas a me reprendre si je ne suis pas clair! En gros j'ai 2 fonctions et une variable globale de type string. Dans la premiere fonction...

Re : Modifier un string en adresse de cellule Merci de ta reponse, en fait a est une variable globale donc c'est Public a as String Dim c As Range a = "$C$30:$C$33" Set c = Range(a) Mais ca ne marche pas malheureusement le compilateur me dit "Method 'Range' of object'_Global'...

Bonjour, si j'ai un string qui contient des adresse de cellules, comment les passer dans une variable de type Range ? en gros comment trouver un moyen de realiser ceci: Dim c As Range, a As String a= $C$30 :$C$33 c.Address= a (ceci ne fonctionne pas!) Merci d'avance, Clem

Re : [SOS] Multi courbes sur meme graphe Re, Ah tout s'explique il faut passer par 1 string ! J'apprend pas mal de truc grace a toi merci ! Si j'ai declarer a en globale : dans ma deuxieme fonction ou j'opere sur une autre feuille, si je fais le compilateur dit "Assignment to constant...