Discussion :

[Alex86]

Bonjour,
J'essaye de copier l'ensemble des valeurs utilisées d'une feuille et de les coller à la suite d'une autre feuille.
Cependant bug à chaque fois à Sheets("Feuil3").Cells(i,1)...

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim i As Integer
ActiveSheet.UsedRange.Select
Selection.Copy
 
For i = 1 To 300 Step 1
    If Sheets("Feuil3").Cells(i, 1) = "" Then Exit For
Next
 
Sheets("Feuil3").Cells(i, 1).Select
ActiveSheet.Paste

[Matthou]

Salutations,

Code :

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

Sheets("Feuil3").Cells(i, 1).Select

1) Le "i" est égal à combien ? il n'est que définit dans le For en haut mais pas repris pour cette ligne
2) Ton erreur elle est à quelle ligne ?
3) Il n'y a pas de "End If" ?

---

Le Tuc

[Alex86]

i=1 je viens de le changer.
Lorsque je met un End if il met un message d'erreur Bloc End if sans if.

Il me signale l'erreur à la ligne que tu sites.

[Marc-L]

Bonjour !

Code :

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

1
2
3
    With Feuil3.UsedRange.Rows
        ActiveSheet.UsedRange.Copy .Item(.Count).Cells(1)(2)
    End With

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________

Je suis Paris, Charlie, …

[Alex86]

ça marche ! Merci en plus avec un code moins loin
Petite question supplémentaire: Est il possible de conserver la largeur des lignes et des colonnes en collant ?

[Marc-L]

Apparemment non, il fait mettre à jour la propriété ColumnWidth de chaque colonne

et la propriété RowHeight de chaque ligne …

Si plusieurs colonnes ou lignes se suivant ont la même valeur, il est possible de l'effectuer groupé.