Extraire valeur d'une cellule

Bonjour,

j'ai réussi a trouver les adresses des produits en double mais comment récupérer l'adresse car je les retrouves toutes deux dans la même cellule
exemple
$E$11-$E$39-
je voudrais extraire chaque adresse pour la traiter
qui peut m'aider merci d'avance

1 réponse

  • Votes
  • Date
  • Date décroissante
  1. Bonjour,
    si separteur comme ecrit: "-"
    exemple:
    Sub test()
    x = "$E$11-$E$39-"
    tAddr = Split(x, "-")
    For a = 0 To UBound(tAddr)
    If tAddr(a) <> "" Then
    adr = tAddr(a)
    'code de traitement de l'adresse cellule

    End If
    Next a
    End Sub
    1. merci beaucoup je vais le tester
    2. cela fonctionne bien merci mais comment faire pour récupérer les deux adresses dans deux textbox différents?
      j'obtiens toujours la même adresse
      merci encore et excusez moi de vous déranger une fois de plus
    3. Re,

      Sub test()
      x = "$E$11-$E$39-"
      tAddr = Split(x, "-")
      Textbox1 = tAddr(0)
      Textbox2 = tAddr(1)
      End Sub
    4. merci beaucoup cela marche bien bravo de votre aide