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

Usine à gaz · 4 Novembre 2023

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 :

Pourriez-vous m'aider svp ?
Merci à vous,

job75 · 4 Novembre 2023

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 · 4 Novembre 2023

Super comme toujours...
Merci pour ton indulgence

Usine à gaz · 4 Novembre 2023

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

TooFatBoy · 4 Novembre 2023

Bonjour,

Usine à gaz à dit:
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...

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
@+

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

Usine à gaz

XLDnaute Barbatruc

job75

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Discussions similaires