Discussion :

[Aurianelm]

Hello !

Voilà je travaille sur 2 classeurs Excel. L'un étant une maquette que je dois remplir avec les données de l'autre et tout ça bien sûr avec des conditions. Le problème est que je travaille avec un Activecell, ce qui fait que si j'active le 2ème classeur où je dois coller les données, je perdrai mon activecell du 1er classeur.

J'ai écrit ceci (extrait de mon code) :

Code :

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

1
2
3
4
5
6
7
8
9
 
While ActiveCell <> ""
    If ActiveCell = "ACTIVITE PART 16 17" Then
        If ActiveCell.Offset(0, 1).Value = "AUTO" Then
            ActiveCell.Offset(0, 2).Copy
            Workbooks("Maquette_effets_différés 2013.xls").Range("B4").PasteSpecial
            ActiveCell.Offset(0, 3).Copy
            Workbooks("Maquette_effets_différés 2013.xls").Range("C4").PasteSpecial
            ActiveCell = ActiveCell.Offset(1, 0)

Mais il bug sur la ligne :

Code :

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

Workbooks("Maquette_effets_différés 2013.xls").Range("B4").PasteSpecial

Avez-vous une solution ?

Merci !!!

Auriane

[issoram]

Bonjour,

1 . Au lieu de travailler avec ActiveCell, désigne explicitement ta cellule.
2. Quel est le bug affiché sur la ligne que tu indiques?

Cordialement.

[Aurianelm]

Bonjour,

Il affiche "Propriété ou méthode non gérée par cet objet".

Mais tu as raison je vais expliciter la cellule directement... C'était pour éviter d'avoir à tout remplacer dans mon code qui est assez long...

Merci pour la réponse

Je viens de revoir mon code et je ne peux pas spécifier la cellule directement car je me sers d'un while comme ci-dessous :

Code :

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

While ActiveCell <> ""

Sinon comment faire pour que mon programme s'arrête lorsqu'il n'y a plus de données dans la colonne ?

Merci.

[Aurianelm]

C'est bon je crois que je vais réussir à me débrouiller avec un compteur.

Merci quand même