Discussion :

[Atdd91]

Bonjour,
je souhaiterais copier les valeurs des cellules B2 à B(2+(nombre_de_valeurs_de_la_colonne_C-1)) de la feuille Source
vers les cellules H5 à H(((nombre_de_valeurs_de_la_colonne_C-1)*60)+5) de la feuille cible

Code :

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

1
2
3
4
5
Nb_Val = NBVAL(Source!C:C)-1
'boucle for next : 
for Compteur = 1 to Nb_Val
copier source! B(1+Compteur)
coller Cible! H((Compteur -1)*60)+5

ce qui devrais donner
B2 => H5
B3 => H65
B4 => H125

etc .....

reste à mettre en forme

Merci de votre aide !!!

[Atdd91]

Petit UP de topic qui n'a pas l'air de susciter la moindre passion

[Wololol]

Petit UP de topic qui n'a pas l'air de susciter la moindre passion

Voici ce qu'il te faut :

Code :

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

1
2
3
4
For compteur = 1 To Nb_Val
          Worksheets("source").Range("B" & 1 + compteur).Copy
          Worksheets("cible").Range("H" & (((compteur - 1) * 60) + 5)).PasteSpecial
        Next

J'ai tester ça met bien ce qu'il faut, la où il faut.

Bonne journée

[Atdd91]

Merci pour la syntaxe !!!

simple ; clair ; net et concis !


j'n'ai plus qu'a adapter ce qui ne vas pas être bien compliqué

en plus, je n'avais pas fait attention mais j'ai besoin d'un pastespécial car je ne dois coller que les valeurs

1 big M E R C I !!!
je valide