Copier coller partiellement

bonjour,

je copie dans des logiciels des adresse , peut on copier partiellement et sous conditions (de manière a pouvoir

voir fichier

merci de votre aide

Bonjour,

Sous réserve qu'il n'y ai pas d'espaces dans les noms de ville

Sub ExtraitVille()
Dim Lg%, i%, x
    Application.ScreenUpdating = False
    Lg = Range("c65536").End(xlUp).Row

    For i = 3 To Lg
        x = Split(Trim(Cells(i, "c")), " ")
        Cells(i, "f") = Left(x(UBound(x) - 1), 2)
        Cells(i, "g") = x(UBound(x))
    Next i
End Sub

Amicalement

Claude

Bonjour

La solution Matricielle de J.B

Cordialement

j'ai remis une adresse , il ne la prend pas

kljjkjkl 752 rue dfgdfgdfg 86788 aaaaaa

peut elle également se réaliser sans bouton.

cordialement

-- 07 Juin 2011, 13:12 --

désoler amadeus je ne vois pas dans le fichier de changemnent

est ce le bon que tu m'as envoyé??

cordialement

-- 07 Juin 2011, 20:32 --

personne n'aurait une idées pour m'aider?

cordialement

-- 07 Juin 2011, 20:36 --

pardon amadeus c'est parfais je cherchais betement une macro ..

superbe formule merci a vous tous