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

[Usine à gaz]

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,
🙂

 

[dysorthographie]

Bonjour,
En suivant le même raisonnement que sur ce lien

XL 2021 - En restant sur Feuille 1 active, comment activer dans ma feuille2 la 1ère cellule vide de la colonne A

Bonsoir à toutes et à tous :) Je n'arrive pas à trouver un code : Si je suis sur ma feuille 2, au clic sur le bouton, Sub déplace() ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(2).Select End Sub j'active la 1ère cellule vide de la colonne A (soit A8 pour mon exemple) Mon besoin Je suis sur ma...

excel-downloads.com

😂😢😭🤣😅

Tu poses toujours des questions sur tel ou tel action, alors que tu pourrais poser la question du comment faire un truc genre ?

Si tu avais posé cette question avant l'autre tu aurais gagné du temps !

 

[job75]

Bonjour Lionel, dysort,

Il faut aller sur la feuille "truc" pour savoir quelle est sa cellule active :

Dim ac As Range
Set ac = ActiveCell
Application.ScreenUpdating = False
Sheets("truc").Activate
ac.Offset(0, 4) = ActiveCell.Offset(0, 1).Value
Application.Goto ac 'retour

Si nécessaire tu peux ajouter des Application.EnableEvents = False/True.

A+

 

[Usine à gaz]

Bjr dysorthographie 🙂
Pour cette utilisation, ce raisonnement n'est pas adapté 🙂
J'ai fait un petit fichier test...
🙂

 

[Usine à gaz]

Bonjour Lionel, dysort,

Il faut aller sur la feuille "truc" pour savoir quelle est sa cellule active :

Dim ac As Range
Set ac = ActiveCell
Application.ScreenUpdating = False
Sheets("truc").Activate
ac.Offset(0, 4) = ActiveCell.Offset(0, 1).Value
Application.Goto ac 'retour

Si nécessaire tu peux ajouter des Application.EnableEvents =False/True.

A+

Bonjour gérard 🙂
Merci pour ton code,
je vais voir avec mon fichier de travail...
🙂

 

[Usine à gaz]

Bonjour gérard 🙂
Merci pour ton code,
je vais voir avec mon fichier de travail...
🙂

Re-Bjr 🙂
J'ai mis le code de Gérard dans mon fichier test
lol Au clic sur "F6" feuille machin, ça devrait coller en feuille "truc" mais ça ne colle rien du tout snifff .
Je joins le fichier.
J'ai encore du faire un bêtise lol 🙂
Je continue à chercher...

 

[job75]

Au clic sur "F6" feuille machin, ça devrait coller en feuille "truc"

Ah non, d'après ton post #1 on colle en feuille "machin" la valeur prise en feuille "truc" !

 

[Usine à gaz]

Bon sang, j'ma trompé, c'est l'inverse.
copier la cellule machin chez truc...
dsl 🙄

 

[job75]

Dis-nous calmement, tu copies quoi et tu colles où ?

 

[Usine à gaz]

lol tu as raison j'm'affole 🙂
Je suis sur ma feuille "machin au clic sur la cellule "F6" (donc activée)
Je voudrais copier la cellule "G6"
dans la feuille "truc" 4eme cellule après la cellule active, soit en "E4"
dans mon exemple.
🙂

 

[Usine à gaz]

Re Gérard 🙂
Je crois que c'est tout bon 🙂

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("f6")) Is Nothing Then
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
Application.ScreenUpdating = True
End If
End Sub

voire fichier joint
🙂

 

[Usine à gaz]

Super !
Et que le retour me ramène sur la feuille "machin" même cellule active est génial !
Encore une fois MERCI à toi 🙂

 

[job75]

Oui c'est ça mais si tu veux que F6 soit la cellule active corrige ton test :

If Not Intersect(ActiveCell, Range("f6")) Is Nothing Then

:

 

[Usine à gaz]

Re-Gérard 🙂
En fait, c'est toi qui a trouvé le bon code.
Voudrais-tu le poster pour que je le mette en solution ?
🙂

 

[job75]

OK, le code du post #3 modifié :

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