Discussion :

[Xavstarblues]

Bonjour j'ai une incompréhension, je cherche a recopier les cellules d'une feuille vers une autre

Code :

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

1
2
3
4
5
6
 
Sub Copie()
Worksheets("Resultat").Range("A2:A61").Copy _
Destination:=Worksheets("MAJ").Range("A38")
 
End Sub

Mais au lieu de recopier les cellules a partir de A38 -jusqu'a A97-, elles ne sont affichés qu'a partir de A38 jusque A61

Je reviens a VBA après plusieurs siècles d'absences, merci de m'éclairer

[fring]

Bonjour,

Essaye comme ceci

Code :

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

Sheets("Resultat").Range("A2:A61").Copy Sheets("MAJ").Range("A38")

[Xavstarblues]

Merci mais cela n'a pas fonctionné,
j'ai essayé aussi avec Range("A38:A97") pour essayer de forcer la zone de destination mais même resulta

[fring]

Si si ça fonctionne...je viens de tester et no problem

Quel code as tu essayé ?

[Xavstarblues]

Le codes que j'avais essayés

Code :

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

Sheets("Resultat").Range("A2:A61").Copy Sheets("MAJ").Range("A38")

Code :

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

1
2
 
Sheets("Resultat").Range("A2:A61").Copy Sheets("MAJ").Range("A38:97")

et a chaque fois mon résultat ne s'affichait pas correctement
(les premières données n'apparaissant pas, la série commençant au milieu de ma zone a A38)

J'ai réussi en rajoutant certaines options que j'avais vu dans un code trouvé sur un autre site

Code :

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

1
2
3
4
5
6
Sub Copie()
Sheets("Resultat").Range("A2:A61").Copy
 
Sheets("MAJ").Range("A38:A97").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Je ne sais pas ce qui est utile et ce qui ne l'est pas, en tout cas, cela fonctionne merci de ton aide