XL 2021 Ligne de code que je n'arrive pas à faire correctement

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous :)

Je n'arrive pas, coder correctement cette ligne :
ActiveCell.Offset(0, 4) = Sheets("truc").Range(ActiveCell.Offset(0, 1)).Value
Contexte
Je suis sur la feuille "Machin" active
je voudrais coller la valeur de la cellule active de la feuille "truc" NON active
ça beug :
1699087484147.png

Pourriez-vous m'aider svp ?
Merci à vous,
:)
 
Solution
OK, le code du post #3 modifié :
VB:
Dim ac As Range
Set ac = ActiveCell
Application.ScreenUpdating = False
Sheets("truc").Activate
ActiveCell.Offset(0, 4) = ac.Offset(0, 1).Value
Application.Goto ac 'retour

Usine à gaz

XLDnaute Barbatruc
Re-Bjr :)
OUI, je sais, têtu, bourrin et je suis très vilain 😍😘
En fait, c'est pour ce fichier que je souhaitais le code de la feuille.
C'est intégré...
Et intégré dans mon "Usine à gaz" de travail et nickel...
Voilà le fichier en pièce jointe
OK je vais me cacher 🤪🤣
:)
 

Pièces jointes

  • 01 Appels vers transfert.xlsm
    55.7 KB · Affichages: 3
Dernière édition:

TooFatBoy

XLDnaute Barbatruc
Bonjour,

je voudrais coller la valeur de la cellule active de la feuille "truc" NON active
Comme d'habitude, tu as bien lu et bien pris en compte ce qu'on t'a dit dans une de tes précédentes questions... :rolleyes:

Rappel de ce qu'on t'a dit précédemment : une cellule d'une feuille ne peut pas être active si la feuille n'est pas active.


Mais bon, c'est sûr que tant que certains continueront à t'encourager dans tes mauvais choix, il ne servira à rien que d'autres essaient de t'aider en t'expliquant les bonnes choses. :(

Bonne continuation
@+
 

Discussions similaires

Statistiques des forums

Discussions
315 098
Messages
2 116 190
Membres
112 679
dernier inscrit
Yupanki