Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Equivalent Find

Equivalent Find

1 réponse
Avatar
Yvan
Bonjour,

J'ai un problème sur la dernière ligne. Excel ne reconnait pas l'instruction
Find. Par quoi dois-je la remplacer ???

Nom = ActiveWorkbook.Name
Cells(1, 1) = Nom
Cells(1, 1) = Left(Cells(1, 1), Find(".", Cells(1, 1) - 1))

--
Merci pour vos réponses.
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ilan
Bonjour,
Nom = ActiveWorkbook.Name
Cells(1, 1) = Nom
' Si Le caractere "." est trouve et n'est pas le premier caractere

' blablabla blablabla
if Instr(1,Cells(1,1),".")>1 then
Cells(1, 1) = Left(Cells(1, 1), Instr(1,Cells(1,1),".") -1)



Bonjour,

J'ai un problème sur la dernière ligne. Excel ne reconnait pas l'instruction
Find. Par quoi dois-je la remplacer ???

Nom = ActiveWorkbook.Name
Cells(1, 1) = Nom
Cells(1, 1) = Left(Cells(1, 1), Find(".", Cells(1, 1) - 1))

--
Merci pour vos réponses.