Discussion :

[FJunior]

Bonjour,

j'éssaie de faire une copie depuis une feuille(Base) vers une seconde feuille (Base+); la taille de données dans la feuille(Base) étant dynamique(elle recoit de nouvelles lignes chaques jours); j'ai défini une plage de sélection dynamique dans la feuille(Base) mais la compilation m'affiche une érreur que j'arrive pas a détedter.

Merci pour votre aide

Cordialement

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim maPlage As Range
 
Dim DerniereColonne As Long, NbLignes As Long
 
NbLignes = Sheets("Base").UsedRange.Rows.Count
DerniereColonne = Sheets("Base").UsedRange.Columns.Count
maPlage = Sheets("Base").Range(Cells(1, 1), Cells(DerniereColonne, NbLignes)).Select
Selection.Copy
Sheets("Base+").Select
Sheets("Base+").Paste

[Philippe Tulliez]

Bonjour,
Tu mélanges tout.
Tu déclares une variable comme étant un objet (Dim maPlage As Range)
Ensuite tu lui attribues une valeur comme une variable normale tout en utilisant la méthode Select

Pour assigner la référence à un objet, le nom de la variable doit être précédée du mot clé Set et bien entendu sans le Select en final

[FJunior]

Merci pour ta remarque!Oui tu as raison! j'ai enlevé le "select" et affecté un set devant l'objet "maPlage"; mais j'ai toujours la même erreur.

[Philippe Tulliez]

Bonjour,

Je n'ai pas regardé tout le code mais c'est gentil de signaler que tu as une erreur mais son n° ainsi que la ligne où elle se signale serait un plus
J'ai une question. Quelle est la raison d'utiliser une variable objet nommé maPlage et ne pas l'utiliser ?
En plus, SelectionCopy déjà devrait être maPlage.Copy
Manifestement, tu recopies des lignes de code sans en comprendre la signification.
Tu devrais lire des tutoriels sur le VBA pour débutant sans quoi tu te prépares à de grosses catastrophes car autant de problèmes sur si peu de lignes est significatif d'un manque total de connaissances sur le sujet.

[FJunior]

J'ai trouvé la solution a mon probleme merci quand meme