Sheets et ActiveCell

[krysos]

Bonjour,

Je n'arrive pas à associer Sheets et Activecell, Si quelqu'un peut m'aider à trouver la solution.

Sheets("Données").Select
Sheets("TESTS").ActiveCell.Offset(3, 2).Value = Sheets("Données").Range("L6").Value

Pour le moment, je n'en ai trouver qu'une seule, mais qui ne me convient que partiellement : c'est de me positionner sur la feuille TESTS afin de ne pas avoir à mettre Sheets devant ActiveCell

Sheets("TESTS").Select
ActiveCell.Offset(3, 2).Value = Sheets("Données").Range("L6").Value

Mon problème va se poser quand je vais passer ensuite à la formule suivante :

Sheets("TESTS").Select
ActiveCell.Offset(8, 12).Value = Sheets("Données").ActiveCell.Offset(5, 7).Value

ou

Sheets("TESTS").ActiveCell.Offset(8, 12).Value = Sheets("Données").ActiveCell.Offset(5, 7).Value

J'ai une cellule active sur chaque feuille suite à une recherche et je dois transférer des données de part et d'autre. Sinon, je peux utiliser des variables, mais vu la quantité de données, cela risque de saturer.

 

[Grand Chaman Excel]

Re : Sheets et ActiveCell

Bonsoir krysos,

Que veux-tu faire au juste? Peux-tu joindre ton fichier avec quelques données non confidentielles pour nous aider à comprendre, avec un exemple du résultat que tu veux obtenir?

J'ai une cellule active sur chaque feuille suite à une recherche et je dois transférer des données de part et d'autre

Je crois que le problème vient de là : tu ne peux avoir qu'une seule cellule active à la fois...

À te relire.

 

[Pierrot93]

Re : Sheets et ActiveCell

Bonjour,

regarde peut être ceci :

Dim c As Range
Sheets("Données").Select
Set c = ActiveCell
Sheets("TESTS").Select
ActiveCell.Offset(8, 12).Value = c.Offset(5, 7).Value

bien que les "select" soient rarement utiles en vba... sans doute moyen de déterminer tes "activecell" autrement... à voir selon ton projet...

bonne journée
@+

 

[krysos]

Re : Sheets et ActiveCell

Bonjour et merci pour vos réponses.

Pour répondre d'abord à Grand Chaman, mon but est de conserver les données de certaines cellules d'une feuille sur d'autres feuilles selon certains critères.

A titre d'information, certaines données doivent être conservées sur une feuille clients et d'autres sur une feuille transactions.

En utilisant les cellules nommées par cells ou range, cela fonctionne, mais pas avec activecell.

Sinon :

Sheets("TESTS").select
ActiveCell.Offset(13, 2).Value = Sheets("Entrées").Range("L6").Value

fonctionne parfaitement, mais

Sheets("TESTS").ActiveCell.Offset(13, 2).Value = Sheets("Entrées").Range("L6").Value

ne fonctionne pas. Seule la fonction select permet à la formule de s'appliquer.

J'ai essayé la solution de Pierrot, mais dans ce cas, j'ai un message d'erreur : erreur "9", l'indice n'appartient pas à la sélection.

Dim c As Range
Sheets("Données").Select
Set c = ActiveCell
Sheets("TESTS").Select
ActiveCell.Offset(1, 1).Value = c.Offset(2, 1).Value

L'erreur se signale dès que j'arrive à la sélection de la feuille : Sheets("Données").Select

Petite question au passage concernant la fonction Dim avec laquelle je suis fâché 🙂

N'étant pas vraiment un expert, je n'utilise pas cette fonction, mes variables étant utilisées dans la même procédure. En général, j'utilise les variables pour récupérer des valeurs dans les cellules d'une feuille pour les transférer sur une autre feuille,ou pour récupérer une valeur afin de réaliser un calcul, mais sans utiliser la fonction Dim, et je ne comprends pas très bien l'utilité de Dim. Si je ne dis pas de bêtises, les variables sont perdues dès que l'on sort de la procédure.

 

[Pierrot93]

Re : Sheets et ActiveCell

Re,

J'ai essayé la solution de Pierrot, mais dans ce cas, j'ai un message d'erreur : erreur "9", l'indice n'appartient pas à la sélection.

vérifie bien le nom de la feuille, peut être n'existe t elle pas dans le classeur actif.... sans pouvoir tester, difficile de t'en dire plus....

 

[krysos]

Re : Sheets et ActiveCell

Merci Pierrot. Effectivement, il y a une erreur d'accentuation sur le nom du fichier.