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

dysorthographie

XLDnaute Accro

• 4 Novembre 2023

• #2

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

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Novembre 2023

• #3

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

• 4 Novembre 2023

• #4

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

 

Pièces jointes

• test.xlsm

  16.8 KB · Affichages: 0

Dernière édition: 4 Novembre 2023

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 4 Novembre 2023

• #5

job75 à dit:

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+

Cliquez pour agrandir...

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

• 4 Novembre 2023

• #6

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

job75

XLDnaute Barbatruc

• 4 Novembre 2023

• #7

Usine à gaz à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 4 Novembre 2023

• #8

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Novembre 2023

• #9

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 4 Novembre 2023

• #10

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.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 4 Novembre 2023

• #11

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

Usine à gaz

XLDnaute Barbatruc

• 4 Novembre 2023

• #12

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Novembre 2023

• #13

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

VB:

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

:

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 4 Novembre 2023

• #14

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 ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Novembre 2023

• #15

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