[VBA-E] Echec de sélection

Bonjours,

Je recontre un problème avec le code suivant :

Code:

---

1 2 3

ThisWorkbook.Sheets("BdD").Cells(NbLig, 1).Select Selection.Copy ThisWorkbook.Sheets("Calc").Cells(i, 1).Paste

---

J'ai dejà utilisé ce type de code mais c'est la première fois que je recontre un bug "La sélection de classe Range à échoué."

Pourquoi la macro refuse t elle de séléctionner la cellule?

Idéalement je voulais même faire :

Code:

---

ThisWorkbook.Sheets("BdD").Cells(NbLig, 1).EntireColumn.Select

---

Merci d'avance! :D

Déjà tu n'es pas obligé de sélectionner la plage pour la copier
Par contre, tu dois la sélectionner pour la coller

Code:

---

1 2 3

Cells(1, 5).Copy Cells(6, 1).Select ActiveSheet.Paste

---

Enfin, vérifie la valeur de NbLig
Pour ta seconde question

Code:

---

1 2 3

Range("E:E").Copy ou Columns(5).copy

---

te permettent de copier une colonne entière
A+

PS - regarde aussi ce que permet "destination", dans l'aide

Merci pour cette réponse rapide.

Mon code ressemble à cela desormais, et maintenant l'erreur précédente est reporté à la ligne suivante... donc je ne pense pas que ça venait de NbLig, ensuite i est bien defini comme Integer. Honnétement je comprend pas pourquoi ça bug?

Code:

---

1 2 3 4 5 6 7

For Each NbLig In LigInf ThisWorkbook.Sheets("BdD").Cells(NbLig, 1).EntireRow.Copy ThisWorkbook.Sheets("Calc").Cells(i, 1).Select ActiveSheet.Paste i = i + 1 CutCopyMode = False Next NbLig

---

EDIT :

Je viens de bidouiller :

Code:

---

1 2 3 4 5 6 7 8

For Each NbLig In LigInf ThisWorkbook.Sheets("BdD").Cells(NbLig, 1).EntireRow.Copy ThisWorkbook.Sheets("Calc").Activate Cells(i, 1).Select ActiveSheet.Paste i = i + 1 CutCopyMode = False Next NbLig

---

et maintenant ça marche... là je cherche pas à comprendre :x