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

XL 2021 copier en B7 la valeur de la cellule active (Cells(ActiveCell.Row, 7)) de la feuille "Appels"

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous

Le titre dit tout mon besoin (enfin, je pense).
Formule ou vba je n'y arrive pas.

Voudriez-vous m'aider ?

Grand merci à toutes et à tous
Je joins le petit fichier test et je continue mes recherches...
 

Pièces jointes

  • Colle val cel active autre feuille.xlsm
    37 KB · Affichages: 7
Dernière édition:
Solution
Bonsoir Lionel, sylvanu,

Utiliser ici une variable Public n'est pas une bonne idée.

Placez plutôt cette macro dans le code de la feuille "Mon besoin" :
VB: 
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheets("Appels")
    .Activate
    [B7] = .Cells(ActiveCell.Row, 7)
End With
Me.Activate
Application.EnableEvents = True
End Sub
Elle se déclenche quand on active la feuille.

A+
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Lionel,
Peut être avec dans feuille Appels :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Sheets("Mon besoin").[B7] = Target
End Sub
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Sheets("Mon besoin").[B7] = Target
End Sub
Le premier cas si on clique sur une cellule.
Le second cas si on modifie une valeur.
 

Pièces jointes

  • Colle val cel active autre feuille.xlsm
    41.5 KB · Affichages: 3
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour Lionel, sylvanu,

Place dans le code de la feuille Appels :
VB: 
Private Sub Worksheet_Deactivate()
Dim F As Object
Set F = ActiveSheet
Application.ScreenUpdating = False
Application.EnableEvents = False
Me.Activate
Sheets("Mon besoin").[B7] = Cells(ActiveCell.Row, 7)
F.Activate
Application.EnableEvents = True
End Sub
A+
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Bjr sylvanu , Bjr Gérard ,

Un grand merci pour vos retours
@sylvanu
Ton code m'intéresse, je te remercie, et je le conserve pour un autre besoin

@Gérard
Ton code correspond mieux à mon présent besoin.
Merci Gérard

LOL, voilà le fil le plus court de "ma carrière d'usine à gaz"
Quoique...

EZncore merci à vous deux
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Evidemment si l'on ne va jamais sur la feuille Appels la cellule B7 ne se remplira pas.

On peut alors ajouter ce code dans ThisWorkbook :
VB: 
Private Sub Workbook_Open()
Dim F As Object
Set F = ActiveSheet
Application.ScreenUpdating = False
Sheets("Appels").Activate
F.Activate
End Sub
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Merci gérard
Mais lol :
En fait, je n'avais pas donné tout le contexte car je pensais qu'un code dans la feuille "Mon besoin" pourrait s'exécuter à la sélection de la feuille.

Le but du code est de récupérer (à l'activation de la feuille "Mon besoin") et en B7 la valeur de la cellule active (Cells(ActiveCell.Row, 7)) de la feuille "Appels"

si on reste sur le code de Gérard, il suffirait d'ajouter la condition que le code ne s'exécute qu'uniquement si c'est la feuille "Mon besoin" qui est activée (donc ne s'exécute pas si une autre feuille est activée).

Code dans la feuille "Appels"
VB: 
Private Sub Worksheet_Deactivate()
[B][U]condition : le code s'exécute uniquement si la feuille "Mon besoin" est activée[/U][/B]
Dim F As Object
Set F = ActiveSheet
Application.ScreenUpdating = False
Application.EnableEvents = False
Me.Activate
Sheets("Mon besoin").[B7] = Cells(ActiveCell.Row, 7)
F.Activate
Application.EnableEvents = True
End Sub

Je remets le fichier avec des onglets en + et j'essaie de voir comment coder la condition.
 

Pièces jointes

  • Colle val cel active autre feuille.xlsm
    45.7 KB · Affichages: 1
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Usine à gaz à dit:
voilà le fil le plus court de "ma carrière d'usine à gaz"
Cliquez pour agrandir...
Ca m'étonnais aussi !

Un essai en PJ avec :
Module standard :
VB: 
Public AppelsActiveCell
Feuille Appels :
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    AppelsActiveCell = Cells(ActiveCell.Row, 7)
End Sub
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    AppelsActiveCell = Cells(ActiveCell.Row, 7)
End Sub
Feuille Besoin :
Code: 
Sub Worksheet_Activate()
    [B7] = AppelsActiveCell
End Sub
 

Pièces jointes

  • Colle val cel active autre feuille (2).xlsm
    44 KB · Affichages: 2
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonsoir Lionel, sylvanu,

Utiliser ici une variable Public n'est pas une bonne idée.

Placez plutôt cette macro dans le code de la feuille "Mon besoin" :
VB: 
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheets("Appels")
    .Activate
    [B7] = .Cells(ActiveCell.Row, 7)
End With
Me.Activate
Application.EnableEvents = True
End Sub
Elle se déclenche quand on active la feuille.

A+
 

Pièces jointes

  • Colle val cel active autre feuille.xlsm
    42.9 KB · Affichages: 2
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Question
Microsoft 365 recherche multicritère de la valeur suivante
2
Réponses
29
Affichages
799
alexga78
A
  • Question
XL 2021 Formule compter les cellules vides lusqu'à la dernière ligne NON vide
Réponses
10
Affichages
545
Usine à gaz
  • Résolu(e)
XL 2021 Sélectionner la 1ère cellule après filtrage
Réponses
2
Affichages
461
Usine à gaz
  • Résolu(e)
XL 2021 Compter le nombre de cellules qui contiennent la date d'aujourd'hui
2
Réponses
17
Affichages
1 K
job75
  • Résolu(e)
XL 2021 Mettre en numérique une cellule texte
2
Réponses
26
Affichages
1 K
TooFatBoy
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
140
AlCapone
  • Résolu(e)
XL 2021 Sélectionner plusieurs plages jusqu'à la dernière ligne NON vide en col "E"
Réponses
5
Affichages
273
Usine à gaz
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
496
Usine à gaz
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
375
Nel'
N
G
  • Question
XL 2021 Alimenter X fois d'une base de données en fonction de la valeur d'un TextBox
Réponses
7
Affichages
346
GG Delcroix
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…