Ubound [Résolu]

Signaler
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
Bonjour,

POUR KOI ce code ne marche pas?
pour z5 et z6 , il me recupere le mot mais avec un saut !!!



 If UBound(bdgo) = 4 Then
w1 = Left(ThisWorkbook.Sheets("Validation non fausse detection").Cells(i, 14).Value2, InStr(ThisWorkbook.Sheets("Validation non fausse detection").Cells(i, 14).Value2, Chr(10)) - 1)
x1 = Mid(ThisWorkbook.Sheets("Validation non fausse detection").Cells(i, 14).Value2, Len(w1) + 2, Len(ThisWorkbook.Sheets("Validation non fausse detection").Cells(i, 14).Value2))
z1 = Left(x1, InStr(x1, Chr(10)) - 1)
z2 = Mid(x1, Len(z1) + 2, Len(x1))
z3 = Left(z2, InStr(z2, Chr(10)) - 1)
z4 = Mid(z2, Len(z3) + 2, Len(z2))
z5 = Left(z4, InStr(z4, Chr(10)))
z6 = Mid(z4, InStr(z5, Chr(10)))

End If


merci pour tt reponses

1 réponse

Messages postés
15259
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 août 2020
1 319
Bonjour,

Regardez z1 et z3 ......peut etre la solution
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020

bonjour

effictivement

je iens me rendre compte que j'ai mal ecrit pour z5 et z6

merci