Philippe LAMACHE
XLDnaute Junior
Bonjour à tous,
Dans un tableau colonnes D et CH, j'ai du texte sous cette forme " 0 0000 E Kx 000000 " (le x pouvant être C, D, F, J, M, U).
J'extrais le texte depuis le E jusqu'à la fin (par ex: E Kx 000000) avec ce code :
Pour toutes les lettres et dans les deux colonnes, cela fonctionne bien mais si mon "x" est un J alors cela ne m'affiche pas tout le texte.
Pouvez-vous m'aider ?
Par avance, merci.
Dans un tableau colonnes D et CH, j'ai du texte sous cette forme " 0 0000 E Kx 000000 " (le x pouvant être C, D, F, J, M, U).
J'extrais le texte depuis le E jusqu'à la fin (par ex: E Kx 000000) avec ce code :
VB:
For Each c In Range("B1:B1048576")
xx = InStr(c.Offset(0, 2).Value, "E")
TENANT = Mid(c.Offset(0, 2).Value, xx, 20)
TENANT1 = c.Offset(0, 2).Value
ABOUT = Mid(c.Offset(0, 84).Value, xx, 20)
ABOUT1 = c.Offset(0, 84).Value
Next
Pour toutes les lettres et dans les deux colonnes, cela fonctionne bien mais si mon "x" est un J alors cela ne m'affiche pas tout le texte.
Pouvez-vous m'aider ?
Par avance, merci.