Discussion :

[carpediem2807]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
compte = Cells(Rows.Count, 79).End(xlUp)(2).Row
 
    For j = 102 To 225 Step 123
 
        For i = compte + 4 To compte + 23
 
            wbrecu.ActiveSheet.Cells(i - 4, 79).Value = wbcache.ActiveSheet.Cells(j, i).Value
 
        Next i
        compte = Cells(Rows.Count, 79).End(xlUp)(2).Row
    Next j

Bonjour ce que je veux faire c'est de faire en sorte que le i de wbcache augmente toujours de 4 à 23.

Est-ce que je peux faire une boucle for avec to variable dedans dans le style

for i = blablabla to blablabla and k = 4 to 23

Mon k remplacerai le i de cette cellule

Merci

Marie

[fring]

Bonjour,

Pour répondre à ta question, non tu ne peux pas mettre différentes plages dans une boucle.

Concernant ton code, il me semble bizarre, tu obtiens le résultat voulu ?
Dans cette partie, le i et le j ne doivent pas être inversés ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wbcache.ActiveSheet.Cells(j, i).Value

Essaye aussi d'éviter les ActiveCell, ActiveSheet, ActiveMachin...et utilise les noms , tôt ou tard tu risques d'avoir des surprises parce que ça ne sera pas la bonne feuille active, ou pas la bonne cellule ou pas le bon classeur.

[carpediem2807]

Oui c les bons indice, car dans un les valeurs sont horizontales et dans l'autre verticales.

Mais si je ne peux pas faire ca, alors je fais quoi

Car j'ai essayer de faire un autre for , mais les réponses étaient toutes la dernière valeur, car il écrivait toujours par dessus

et aussi , pour les active, ben je sais juste pas comment le changer, parce qu'en plus mes fichiers vont toujours changer

c certain qu'il y a une solution bien simple, mais je la vois pas...

Marie

[fring]

Mais si je ne peux pas faire ca, alors je fais quoi

J'aimerais pouvoir te répondre mais ya trop longtemps que je n'ai plus fait de spiritisme !
Tu pars de quoi ? Tu veux obtenir quoi ?
Si tu ne parviens pas à l'expliquer clairement (je sais que ce n'est pas toujours évident de mettre des mots sur un truc qu'on a dans la tête), fais un petit fichier avec quelques lignes de ce que tu souhaiterais obtenir et on arrivera bien à trouver une solution

[carpediem2807]

ok je vais tenté d'être le plus clair possible!

Donc, j'ai un fichier A et un fichier B.

Je veux que les données de A4 à A23 et ceux de F4 à F23 du fichier B soient tranférées dans la colonne F du fichier A.

Je ne veux pas de trou, je veux que les données soient à la suite l'une de l'autre.

De plus, je dois pouvoir exécuter ce code plusieurs fois par semaine, donc voila pourquoi j'utilise la variable compte, qui m'indique le nombre de ligne dans ma colonne afin d'y place les nouvelles données à sa suite.

Mon problème présentement c'est que le i 'ma varible pour les ligne, suit l'incrémentation. C'Est parfait pour ce qui est des lignes de mon fichier A., mais pour le fichier B(celui ou je prends mes données) il doit toujours être entre 4 et 23

J'espère avoir été beaucoup plus clair

Marie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
wbrecu.ActiveSheet.Cells(1, 79).Value = "DRS"
 
    compte = Cells(Rows.Count, 79).End(xlUp)(2).Row
 
    For j = 102 To 225 Step 123
 
        For i = compte + 4 To compte + 21
 
            wbrecu.ActiveSheet.Cells(i - 4, 79).Value = wbcache.ActiveSheet.Cells(j, i).Value
 
        Next i
        compte = Cells(Rows.Count, 79).End(xlUp)(2).Row
 
    Next j

[carpediem2807]

wow , je sais pas ce que tu as fais, mais j.ai tout compris en l'expliquant en détail...

Bref, je devais juste soustraire le compte .... (i-compte).value , me donnais mon 4 et 23.

Merci de ton aide

Marie