Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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 :

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
Trier par date Trier par votes

dysorthographie

XLDnaute Accro
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 !
 
Dernière édition:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour Lionel, dysort,

Il faut aller sur la feuille "truc" pour savoir quelle est sa cellule active :
VB: 
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+
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour gérard
Merci pour ton code,
je vais voir avec mon fichier de travail...
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Usine à gaz à dit:
Bonjour gérard
Merci pour ton code,
je vais voir avec mon fichier de travail...
Cliquez pour agrandir...
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...
 

Pièces jointes

  • test.xlsm
    24.9 KB · Affichages: 3
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re Gérard
Je crois que c'est tout bon
VB: 
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
 

Pièces jointes

  • test.xlsm
    25.6 KB · Affichages: 0
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
XL 2021 code que je n'arrive pas à faite fonctionner avec Range("ActiveCell.Offset(0, 0).Resize(10, 1)")
2 3 4
Réponses
55
Affichages
1 K
Staple1600
  • Résolu(e)
XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide
2
Réponses
27
Affichages
675
TooFatBoy
G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
241
gui22
G
  • Résolu(e)
XL 2021 Formules que je n'arrive pas à faire
2
Réponses
29
Affichages
925
Staple1600
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
238
piga25
  • Résolu(e)
XL 2021 Sélectionner plusieurs plages jusqu'à la dernière ligne NON vide en col "E"
Réponses
5
Affichages
87
Usine à gaz
  • Résolu(e)
Microsoft 365 Enregistrer dans une feuille mais pas dans une autre
Réponses
11
Affichages
410
Olive de BI
  • Résolu(e)
XL 2021 Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles
Réponses
6
Affichages
369
Usine à gaz
T
  • Question
Microsoft 365 Code VBA
Réponses
2
Affichages
330
thierry33670
T
  • Résolu(e)
Microsoft 365 Code VBA pour un Formulaire
2
Réponses
17
Affichages
745
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…