Erreur sur une ligne VBA que je n'ai pas créée...

kioups · 3 Juin 2009

Bonjour ou rebonjour !

Un membre du site (vbacrumble) m'a aidé, ou plutôt, a créé une macro qui m'est bien utile.
Malheureusement, il y a un bug dans un cas très particulier et je sais exactement à quelle ligne. Mais je ne sais pas comment modifier cette ligne.

Code:

NumeroJournee = 1 * Left(Split(Split(s, ":")(1))(1), (IIf(Len(Split(Split(s, ":")(1))(1)) = 5, 2, 1)))

Elle permet de ressortir la valeur x dans un cellule du type
Rencontre : L1 xeme journee
où x est un nombre.
Pour x = 1 à 38, aucun souci SAUF pour x=11...

Je touche au but, manque juste cette petite ligne à modifier...

Merci d'avance !!

Kioups

kioups · 3 Juin 2009

Re : Erreur sur une ligne VBA que je n'ai pas créée...

Ah, ça plante aussi pour 13...

soenda · 3 Juin 2009

Re : Erreur sur une ligne VBA que je n'ai pas créée...

Salut kioups, le fil

Envoie le classeur exemple... Nous n'avons pas forcément suivi tous les épisodes...

A plus

pierrejean · 3 Juin 2009

Re : Erreur sur une ligne VBA que je n'ai pas créée...

bonjour kioups
Salut soenda

A tester:

Code:

NumeroJournee =1*Right(Left(s, InStr(s, "eme") - 1), Len(Left(s, InStr(s, "eme") - 1)) - InStrRev(Left(s, InStr(s, "eme") - 1), " "))

kioups · 3 Juin 2009

Re : Erreur sur une ligne VBA que je n'ai pas créée...

Bonjour Soenda, bonjour PierreJean

Soenda : je renvoie le lien vers la macro complète de vbacrumble. Dans ce fil, il doit y avoir un lien vers mon classeur.

https://www.excel-downloads.com/threads/trop-de-calculs-tue-le-calcul.120197/

PierreJean : cela fonctionne à merveille pour ces deux journées.
Je suppose que cela fonctionne aussi pour les autres, sauf pour
Rencontre : L1 1ere journee

pierrejean · 3 Juin 2009

Re : Erreur sur une ligne VBA que je n'ai pas créée...

Re

Un petit supplement pour le cas particulier :

Code:

If InStr(s, "1ere") <> 0 Then
  NumeroJournee = 1
Else
  NumeroJournee = 1 * Right(Left(s, InStr(s, "eme") - 1), Len(Left(s, InStr(s, "eme") - 1)) - InStrRev(Left(s, InStr(s, "eme") - 1), " "))
End If

kioups · 3 Juin 2009

Re : Erreur sur une ligne VBA que je n'ai pas créée...

Merci beaucoup Pierrejean, ça roule !

Erreur sur une ligne VBA que je n'ai pas créée...

kioups

XLDnaute Occasionnel

kioups

XLDnaute Occasionnel

soenda

XLDnaute Accro

pierrejean

XLDnaute Barbatruc

kioups

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

kioups

XLDnaute Occasionnel

Discussions similaires