Discussion :

[Yoshiblow]

Bonjours,

Je recontre un problème avec le code suivant :

Code :

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

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 :

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

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

Merci d'avance!

[ouskel'n'or]

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 :

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

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 :

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

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

[Yoshiblow]

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 :

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

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 :

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

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