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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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
Supporter XLD
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

  • Question
Microsoft 365 Code VBA
Réponses
2
Affichages
320
Réponses
17
Affichages
649

Membres actuellement en ligne

Statistiques des forums

Discussions
312 215
Messages
2 086 330
Membres
103 186
dernier inscrit
Eliyass