Récupérer chiffre dans cellule
Hello,
J'ai toute une série de cellule qui contiennent :
un chiffre
un espace
la chaine de caractère "day(s)"
Je souhaiterais récupérer le chiffre dans une variable.
Après une recherche, j'ai trouvé la fonction :
=LEFT(C4;SEARCH(" ";C4))qui fonctionne parfaitement dans la feuille Excel.
Par contre, lorsque je la met dans mon code :
Variable = Essai=LEFT(C4;SEARCH(" ";C4))Il bloque sur le ";"
Est-ce que quelqu'un saurait comment procéder ?
Merci d'avance et bonne fin de journée.
Fab
Bonjour...Cela doit bloquer sur d'autres point aussi car la syntaxe d'écriture n'est pas la même que sur excel.
Vous pouvez essayer ceci :
Variable = Left(Feuil1.[C4], Application.WorksheetFunction.Search(" ", Feuil1.[C4]))Par contre étrangement cela rajoute un espace après le chiffre...Dans se cas vous pouvez le retirer avec :
variable = Left(Feuil1.[C4], Application.WorksheetFunction.Search(" ", Feuil1.[C4]) - 1)Bonjour,
Merci pour l'aide.
Malheureusement, ça ne fonctionne pas chez moi (Excel 2010 en Anglais).
J'ai naturellement remplacé "Feuil1" par le nom de mon onglet, mais la macro plante et surligne en jaune toute la ligne.
Fab
Bonjour,
Ou encore
Variable = CDbl(Split(Sheets("Feuil1").Range("C4").Value, " ")(0))A+
Super,
ça fonctionne parfaitement.
Merci
Fab
frangy a écrit :Bonjour,
Ou encore
Variable = CDbl(Split(Sheets("Feuil1").Range("C4").Value, " ")(0))A+
En fait, j'ai un autre problème.
J'avais donné la cellule C4 comme exemple, mais en fait dans mon fichier, j'ai toute une colonne à "convertir" (boucle for i = 3 To DerniereLigne) et le positionnement de la colonne peut être variable. Il est stocké dans la variable "ColonneStart".
En résumé :
ColA ColB ... ColonneStart
xxxx yyyyy ... 2 day(s)
mm nnnn ... 15 day(s)
J'ai essayé d'adapter ton code avec :
Variable= CDbl(Split(Range(Cells(i, ColonneStart + 1)).Value, " ")(0))Mais ça ne fonctionne pas.
J'ai essayé pas mal d'autres choses en vain.
Aurais-tu une autre idée ?
Merci d'avance.
Fab
Plus simplement, si ColonneStart est un entier :
Variable = CDbl(Split(Sheets("Feuil1").Cells(i, ColonneStart).Value, " ")(0))A+
frangy a écrit :Plus simplement, si ColonneStart est un entier :
Variable = CDbl(Split(Sheets("Feuil1").Cells(i, ColonneStart).Value, " ")(0))A+
Parfait,
Ca fonctionne parfaitement.
Merci beaucoup et bonne journée.
Fab