XL 2010 Copier cellules non contigües avec vba

[kadelmalin]

Bonjour le forum,
Peut on copier plusieurs cellules non contigües avec vba dans une autre feuille en forme de formulaire. La formule "Cellule_cible=Contenu_cellule_source" me prend énormément de temps, 40 secondes environ. Merci de votre aide.

 

[patricktoulon]

bonjour
avec un fichier exemple je pense que l'on cernerait mieux ton besoin
la restitution doit elle être contiguë?

 

[kadelmalin]

Non, les cellules cibles sont disposées comme un formulaire de renseignements.

 

[patricktoulon]

re
un exemple de fichier ?

 

[kadelmalin]

Voici le classeur teste.

 

[patricktoulon]

re
tu verifiera si je me suis pas trompé
pour le choix de la ligne tu change juste le"2" dans " ligne = 2"

Sub test()
    Dim Fx1, Fx2, ligne&
    Set Fx1 = Sheets("Formulaire")
    Set Fx2 = Sheets("Base")
    ligne = 2
    addr1 = Split("g15,g17,g19,h19,g23,g25,g27,g29,g31,h31,g33,g35,h35,L15,l17,l19,l25,l27,l33,p17,p21,p25,q25,r27", ",")
    addr2 = Split("c,e,h,h,j,l,m,o,q,aa,ab,s,z,cb,d,f,i,n,p,t,a,w,af,y,x", ",")
    For i = LBound(addr1) To UBound(addr1)
        Fx1.Range(addr1(i)) = Fx2.Range(addr2(i) & ligne)
    Next
End Sub

 

[kadelmalin]

Merci Patrik. Je vais tester ça grandeur nature . L'opération de remplissage des champs est plus rapide avec quelques décalages décelés. Si je comprends bien les cellules cible sont ordonnées comme les cellules source.

 

[patricktoulon]

re
oui c'est ça
les array doivent être dans le mémé ordre
je t'ai mis l'index de ligne dynamique (pour le choix de ligne)