VBA Range avec variables

[hypo78]

Bonjour,
je rencontre un petit problème avec ce code :

 Sub synthese()
Dim i As Long

For i = 3 To 12

Sheets("Synthese_Stagiaires").Range(Cells(i, 2), Cells(i, 39)) = Sheets("1").Range("B56:AN56").Value

Next i

End Sub

Ce code fonctionne mais bien évidemment me copie 10 fois la même ligne.
Lorsque je veux faire intervenir la variable comme çà :

Sheets("Synthese_Stagiaires").Range(Cells(i, 2), Cells(i, 39)) = Sheets("1").Range(Cells((51 + i), 2), Cells((51 + i), 39)).Value

J'ai le message :erreur d'éxecution 1004, erreur définie par l'application ou par l'objet.

Merci d'avance pour votre aide

 

[Dranreb]

Re : VBA Range avec variables

Bonjour.

Pourquoi ne faites vous pas simplement

FDest.[B3:AN12].Value = FSrc.[B52:AN61].Value

Avec FSrc le CodeName de la feuille "1" et FCbl le CodeName de la feuille "Synthèse Stagiaires" ?

 

[hypo78]

Re : VBA Range avec variables

Bonjour Dranreb,

je ne connaissais pas ce genre de syntaxe, je regarde et je reviens dès que je coince 😕

 

[Robert]

Re : VBA Range avec variables

Bonjour le fil, bonjour le forum,

Essaie comme ça :

Sub synthese()
Dim i As Byte

For i = 3 To 12
    Sheets("Synthese_Stagiaires").Range(Sheets("Synthese_Stagiaires").Cells(i, 2), Sheets("Synthese_Stagiaires").Cells(i, 39)) = Sheets("1").Range(Sheets("1").Cells((51 + i), 2), Sheets("1").Cells((51 + i), 39)).Value
Next i
End Sub

 

[hypo78]

Re : VBA Range avec variables

Re,


@Dranreb j'ai essayé çà mais çà ne fonctionne pas

Sub synthese()

Dim Fdest As Worksheet
Dim FSrc As Worksheet

Fdest = Sheets("Synthese_Stagiaires")
FSrc = Sheets("1")

Fdest.[B3:AN12].Value = FSrc.[B52:AN61].Value

End Sub

 

[hypo78]

Re : VBA Range avec variables

Bonjour Robert,

avec ton code j'ai le message : erreur de compilation, référence incorrecte ou non qualifiée

Merci

 

[Robert]

Re : VBA Range avec variables

Bonjour le fil, bonjour le forum,

En reprenant le code de Bernard ça donnerait :

Sub synthese()
Dim DEST As Object
Dim Src As Object

Set DEST = Sheets("Synthese_Stagiaires")
Set Src = Sheets("1")
DEST.[B3:AN12].Value = Src.[B52:AN61].Value
End Sub

Perso, j'aurais écris le code comme ça :

Sub synthese()
Dim D As Object
Dim S As Object
Dim I As Byte

Set D = Sheets("Synthese_Stagiaires")
Set S = Sheets("1")
For I = 3 To 12
    D.Cells(I, 2).Value = S.Range(S.Cells(I + 51, 2), S.Cells(I + 51, 39))
Next I
End Sub

 

[hypo78]

Re : VBA Range avec variables

@ Robert

çà fonctionne, il me reste à boucler sur l'ensemble de mes feuilles de 1 à 60...

Merci

 

[hypo78]

Re : VBA Range avec variables

@ robert,

ton premier code sur la base de Bernard fonctionne, mais pas le second.
je n'arrive pas à boucler sur l'ensemble de mes feuilles. Comment peut-on faire varier

Set Src = Sheets("1")

 

[Robert]

Re : VBA Range avec variables

Bonjour le fil, bonjour le forum,

Essaie comme ça :

Sub synthese()
Dim DEST As Object
Dim I As Byte
Dim Src As Object

Set DEST = Sheets("Synthese_Stagiaires")
For I = 1 To 60
    Set Src = Sheets(CStr(I))
    DEST.[B3:AN12].Value = Src.[B52:AN61].Value
Next I
End Sub

Si ça ne marche pas, envoie un fichier exemple...

 

[hypo78]

Re : VBA Range avec variables

Le code fonctionne, mais il faut aussi que je fasse varier DEST autrement je n'ai que les données de la feuille 60 😉
çà je devrait y arriver

 

[hypo78]

Re : VBA Range avec variables

Bon ben je reviens....

le code actuel

Sub synthese()
Dim DEST As Object
Dim I As Byte
Dim J As Byte
Dim Src As Object

Set DEST = Sheets("Synthese_Stagiaires")
For I = 1 To 60
J = 3


Set Src = Sheets(CStr(I))
    DEST.Range(Cells(J, 2), Cells(J + 9, 39)).Value = Src.[B54:AN63].Value
Next I


End Sub

mais comment faire varier J pour avoir 3, puis 13 puis 23 ......

 

[hypo78]

Re : VBA Range avec variables

C'est bon j'ai trouvé une solution

 Sub synthese()
Dim DEST As Object
Dim I As Byte

Dim Src As Object

Set DEST = Sheets("Synthese_Stagiaires")
For I = 1 To 5
J = [D65536].End(xlUp)(2).Row


Set Src = Sheets(CStr(I))
    DEST.Range(Cells(J, 2), Cells(J + 9, 39)).Value = Src.[B54:AN63].Value
Next I


End Sub