Unp'tit renseignement

[kromitou]

Bonsoir...
juste besoin d'un renseignement..voilà, j'ai un fichier que BrunoM45 m'a super bien dépatouillé.

Et qui fonctionne parfaitement..mais comme j'suis tête en l'air...j'ai oublié de demander , comment fonctionne les lignes...

: Essayant de comprendre comment cela fonctionne...

Je voudrais mettre 3 colonnes de plus aprés A.B.C (comment et qu'elles lignes du code fais référence à ça?)

Voilà...

Merci d'avance....

 

[BERRACHED said]

Re : Unp'tit renseignement

Salut,kromitou

avec tous le respect a notre cher ami BrunoiM45 mais je crois qu'il faut modifier
la :

.Range("A5:C" & DerLig).Copy Destination:=ShtD.Range("A5")

au lieu du "C" il faut faire référence au range ou tu veut t'arrêter

est aussi ici :

Adr = .Range(Cells(Lig, 4), Cells(Lig, 4 + NbCol - 1)).AddressLocal

ici c'est "4" entendre jusqu'au la cellule de fin

Cordialement

 

[kromitou]

Re : Unp'tit renseignement

Merci pour ta réponse mais....

Imaginons que je rajoute une colonne aprs "C"...je vais modifier mon code comme suit :

Range("A5😀" & DerLig).Copy Destination:=ShtD.Range("A5")

et aussi

Adr = .Range(Cells(Lig, 5), Cells(Lig, 5 + NbCol - 1)).AddressLocal

et bien tout marche, sauf que sur la feuillela collne "D" n'apparais pas !!!

 

[job75]

Re : Unp'tit renseignement

Bonjour,
Dans :

.Range(Cells(1, ColS), Cells(DerLig, ColS + NbCol - 1)).Copy Destination:=ShtD.Range("D1")

Remplacer "D1" par "E1".
A+

 

[kromitou]

Re : Unp'tit renseignement

Bon bnen j'ai trouvé en fait..... merci pour le reste ... mais ça ne fonctionnait pas car lors de ma modif j'avais oublié d'effacer l'ancien résultat. Ce qui avait pour conséquences de coller les nouvelles données sur des cellules fusionées.

Bref....suffisait d'effacer.....

Aller.... Fil terminer merci pour tout.