Ubound

Résolu/Fermé

blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - Modifié le 23 oct. 2019 à 14:39
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - 23 oct. 2019 à 14:50

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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
23 oct. 2019 à 14:48

Bonjour,

Regardez z1 et z3 ......peut etre la solution

blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020
23 oct. 2019 à 14:50

bonjour

effictivement

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

merci

Newsletters