Ubound [Résolu]

Messages postés
163
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
23 octobre 2019
-
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
Afficher la suite 

1 réponse

Messages postés
14850
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 novembre 2019
1189
0
Merci
Bonjour,

Regardez z1 et z3 ......peut etre la solution
blalaa
Messages postés
163
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
23 octobre 2019
-
bonjour

effictivement

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

merci
Commenter la réponse de f894009