Copie coller et nbr rangée indéterminé

Bonjour Forum

Le projet avance bien et sera terminé bientôt. Merci à vous tous,
Encore des petites choses à régler

1) Copie coller d'une feuille de calcul à une autre feuille de calcul. Cette feuille est destinée à l'impression et présente un calendrier format maison à partir de données copier.

Je dois copier tour à tour les deux zones et ca ne fonctionne pas lorsque je tente de le faire en une seule fois

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

' Sheets("Résultats")Range("F1:H175,J1:L175").Select ' Selection.Copy ' Sheets("Calendrier").Range("C4").Select ' ActiveSheet.Paste   Sheets("Résultats").Select Range("F1:H175").Select Selection.Copy Sheets("Calendrier").Select Range("C4").Select ActiveSheet.Paste Sheets("Calendrier").Select Application.CutCopyMode = False   Sheets("Résultats").Select Range("J1:L175").Select Selection.Copy Sheets("Calendrier").Select Range("F4").Select ActiveSheet.Paste Sheets("Calendrier").Select Application.CutCopyMode = False

---

2) Une petite question qui revient souvent: comment trouver le nombre de rangée lorsque celui est indéterminé. J'utilise

Code:

---

For i = 1 To Sheets("Résultats").Range("A65536").End(xlUp).row

---

ou

Code:

---

For Each rangee In Range(Xls.Cells(1, 1), Xls.Cells(Rows.Count, 1).End(xlUp))

---

mais je trouve qu'il y a de l'overshoot puisque le nombre de rangée oscille entre 100 et 300.

Voilà, merci encore
Bo

Bonjour à tous,


Je n'ai pas compris ce que tu demandes, juste pour le plaisir et pour pas que ça pique trop les yeux 8-) j'ai réecrit un peu ton code (pas tetsé) :

Code:

---

1 2 3 4

Sheets("Résultats").Range("F1:H175").Copy destination:=Sheets("Calendrier").Range("C4") Application.CutCopyMode = False Sheets("Résultats").Range("J1:L175").Copy destination:=Sheets("Calendrier").Range("F4") Application.CutCopyMode = False

---

Bonjour et merci, Aalex_38, forum

Je crois que l'on pourrait prendre les deux zones à copier d'un seul coup.
c.-à-d.

Code:

---

"F1:H175,J1:L175"

---

mais ca ne compile pas et je ne saisi pas pourquoi.

J'aime la refonte que tu as fait subir à mon code. Alors est ce que l'on peut pousser un peu plus loin et écrire (surtout que ca compile).

Code:

---

1 2	Sheets("Résultats").Range("F1:H175","J1:L175").Copy destination:=Sheets("Calendrier").Range("C4") Application.CutCopyMode = False

---

As-tu regarder ma deuxième question...

non ca me marche pas : erreur d'exécution 1004....


Bo

J'ai fait ce code à adapter, je le trouve plutôt sympa :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Copier_plage_discontinue() Dim Plage As Range, F1 As Worksheet, F2 As Worksheet   Set F1 = ThisWorkbook.Worksheets("Résultats") Set F2 = ThisWorkbook.Worksheets("Calendrier")   With F1 Set Plage = Union(.Range("F1:H175"), .Range("J1:L175")) Plage.Copy Destination:=F2.Range("C4") End With End Sub

---

Edit: je n'ai pas decommentaire particulier sur le point 2, ce que tu utilises fonctionne bien

Je te trouve très sympa toi et le code, vraiment tempête!

Merci encore

Bo

One down, one to go,

Il y a ce code qui permet de sélectionner une plage de longueur variable

Code:

---

1 2 3 4 5 6 7 8

Dim MonTableau() ' Création d'une variable de matrice redimensionnable Dim MaPlage As Range ' Définir la plage Set MaPlage = Range("A1") ' Initialise   While Range(MaPlage.End(xlDown).Address(rowabsolute:=False, columnabsolute:=False)).Value <> "" Set MaPlage = Range(MaPlage.End(xlDown).Address(rowabsolute:=False, columnabsolute:=False)) Wend Set MaPlage = Range("A1:" & MaPlage.Address(rowabsolute:=False, columnabsolute:=False))

---

Est ce qu'il y aurait d'autres façons d'y arriver. Tout ca a peu d'impact sur le temps d'exécution j'en conviens mais doit-on vraiment aller au nombre max de rangée.

Bo

Le code que tu avais indiqué :

Code:

---

Sheets("Résultats").Range("A65536").End(xlUp).row

---

a le mérite de partir du bas pour trouver la première cellule non vide.

alors que dans ton dernier code tu t'arrête sur la première cellule vide, tout dépend de ce que tu veux, les 2 méthodes sont bonnes en général j'utilise celle indiquée dans ce post, elle est rapide.

Bonjour Aalex_38, forum

ok, merci!

a+
Bo