Microsoft 365 probleme de recopie

B

blancolie

XLDnaute Impliqué

• 13 Septembre 2020

• #2

J'ai mis le bon fichier

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Septembre 2020

• #3

Bonjour Blancolie,
Je ne sais pas si j'ai tout résolu mais j'ai au moins avancé. Voir PJ.
Vous confondez deux choses : le nombre d'éléments dans une liste et le N° de ligne où ça doit être rangé.
"n" vaut 486, vous avez donc 486 éléments dans votre liste.
Cependant ils doivent être rangés de Ligne=19 à Ligne = 486+19. et non jusqu'à Ligne=486.
J'ai donc rajouté : n = n + 19 avant le with.

 

Pièces jointes

• Classeur1 (22).xlsm

  92.4 KB · Affichages: 3

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 13 Septembre 2020

• #4

bonjour sylvanu,

j'ai regarde vite fait mais je vois qu'il y a 2 lignes en plus. Est il possible qu'il y a autant de ligne que dans l'autre ? car ds les 2 lignes vierges ?

en te remerciant d'avance*

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Septembre 2020

• #5

VB:

n = n + 17

Car il n'y a que 485 lignes occupées. 486 étant la première cellule vide.

 

Pièces jointes

• Classeur1 (22)2.xlsm

  92.4 KB · Affichages: 5

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 13 Septembre 2020

• #6

je vois que tu as rajouter une ligne erLig = Range("G65500").End(xlUp).Row.

cela veut dire que cela n'ira pas apres la Colonne G 65500 ? et si mon interprétation est bonne, sommes nous obligé d'inserer cette ligne?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Septembre 2020

• #7

Vous pouvez conserver votre code initial.
Je voulais comprendre comment il marchait, j'ai préféré DerLig pour pouvoir le tracer.
La modif n'utilise que n, donc peut d'importance.
A tester.

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 13 Septembre 2020

• #8

Bonsoir,

Dans son post #6, Blancolie a écrit :

« cela veut dire que cela n'ira pas après la cellule G65500 ? »

Mettre : DerLig = Cells(Rows.Count, "G").End(xlUp).Row

ou : DerLig = Cells(Rows.Count, 7).End(3).Row

(c'est juste pour info, puisque la modif n'utilise que n)

soan

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 20 Septembre 2020

• #9

bonsoir Sylvanu,

je reviens sur ce que tu m'as dit sur ce que je confond n et les lignes.

Toujours du mal avec le vba,
n c'est toujours = aux nombres des éléments en vba ? et ligne est re^resenté comment ?

merci pour ton eclairage

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Septembre 2020

• #10

Bonsoir Blancolie,
Dans votre feuille la première ligne est en 19. Mais un tablo commence en indice 1.
Donc pour le transfert il faut décaler de 19.
Lorsque vous faites :

VB:

Range("D19").AutoFill Destination:=Range("D19:D" & n + 1), Type:=xlFillDefault

Le n qui est le nombre d'éléments dans tablo doit être de n+19 pour faire le décalage dans les lignes.
D'où le :

Code:

n = n + 19 ' n est le nombre d'éléments, 19 est le décalage des N° de lignes

Sinon votre liste dans la feuille ira de 19 à n, au lieu de 19 à n+19.

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 20 Septembre 2020

• #11

vraiment pas fait pour moi le vba

les éléments c'est quoi ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Septembre 2020

• #12

Quand vous faites tablo =xxxx , en fait vous transférer des valeurs dans le tablo, ces valeurs peuvent être des chaines, des chiffres ou n'importe quoi. On parle d'éléments.
Si on observe votre tablo après le transfert, on obtient ceci :

Vous voyez que le premier élément noté tablo (1,1) est Acalypha wilkesiana red qui est la valeur qu'il y a en ligne 19.
Quand on refera le transfert, il faudra transférer l'élément tablo(1,1) en ligne 19.

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 20 Septembre 2020

• #13

ok ou as tu eu ce schema ? il est interessant

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 20 Septembre 2020

• #14

Ce schéma est dans VBA, fenêtre Espions : tu dois espionner
la variable tablo, sans te faire repérer par d'éventuels
agents du contre-espionnage (sinon, tu es grillée !).

Dans le menu, tu as : Débogage / Ajouter un espion...
et : Affichage / Fenêtre Espions

(mes amitiés à James Bond 007)

soan

 

Vote positif 0 Vote négatif