Ubound

Résolu
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention   -  
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Regardez z1 et z3 ......peut etre la solution
0
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour

effictivement

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

merci
0