XL 2010 Copier cellules non contigües avec vba

patricktoulon

XLDnaute Barbatruc

• 27 Janvier 2021

• #2

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

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 27 Janvier 2021

• #3

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Janvier 2021

• #4

re
un exemple de fichier ?

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 27 Janvier 2021

• #5

Voici le classeur teste.

 

Pièces jointes

• TST_Clas.xlsx

  60.2 KB · Affichages: 14

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Janvier 2021

• #6

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

VB:

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

😉

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 27 Janvier 2021

• #7

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Janvier 2021

• #8

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)

 

Vote positif 0 Vote négatif