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

Microsoft 365 Double clic dans une cellule envoie vers la cellule d'une autre feuille

M

mdlrt44

XLDnaute Nouveau
Bonjour à tous,

J'aurais besoin de vos lumières parce que je sèche...
Sur un fichier (il y a déjà une macro) mon fichier est composé d'1 onglet "récap" et de plusieurs onglet "mois". L'onglet récap, récapitule certaines infos qui se trouve dans les onglets mois.
J'ai souhaité que dans l'onglet nommé "Recap" lorsqu'on double-clic sur une cellule, elle nous envoie directement sur la cellule de la feuille correspondante. Seul problème, j'ai besoin du mois de décembre de cette année et je viens de me rendre compte que les dates de décembre ne fonctionne pas...

Pourriez vous m'aider ?

Merci d'avance,

MDLRT44
 

Pièces jointes

  • Copie de Plannif pour forum (2).xlsm
    98.4 KB · Affichages: 11
Trier par date Trier par votes

job75

XLDnaute Barbatruc
Bonsoir mdlrt44, bienvenue sur XLD,

Remplacez votre macro Worksheet_BeforeDoubleClick par celle-ci :
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lig&, col%, w As Worksheet, i As Variant
lig = Target.Row: col = Target.Column
If lig < 5 Or col = 1 Or Not (Cells(lig, 1) <> "" And Cells(lig + 1, 1) = "" Or Cells(lig - 1, 1) <> "" And Cells(lig, 1) = "") Then Exit Sub
Cancel = True
For Each w In Worksheets
    If w.Cells(3, col + 2) = Cells(3, col) Then 'dates
        i = Application.Match(Cells(lig + (Cells(lig, 1) = ""), 1), w.Columns(2), 0)
        If IsNumeric(i) Then
            w.Visible = xlSheetVisible 'si la feuille est masquée
            Application.Goto w.Cells(i - (Cells(lig, 1) = ""), col + 2)
        End If
        Exit For
    End If
Next
End Sub
A+
 

Pièces jointes

  • Copie de Plannif pour forum (2).xlsm
    111.8 KB · Affichages: 20
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour mdlrt44, le forum,

On notera que la macro précédente fonctionne bien même si dans les feuilles des mois il manque des noms de techniciens ou si les lignes 16 (NORD) et 21 (EST) sont supprimées.

Bonne journée.
 
Vote positif 0 Vote négatif
M

mdlrt44

XLDnaute Nouveau
Bonjour Job75,

Merci beaucoup pour votre retour.
Je suis seulement ennuyé parce que le fichier que j'ai fourni n'est pas mon fichier final et je n'arrive pas à adapter la macro à mon fichier. il y a 1 onglets par mois, est ce que c'est ça qui pourrait poser problème ?

Bonne journée,
 
Vote positif 0 Vote négatif
M

mdlrt44

XLDnaute Nouveau
Je sais bien , mais la structure est très similaire, je pensais pouvoir faire les modifications nécessaires pour l'adapter à mon fichier final. Mais visiblement je n'y arrive pas.

Je vous joint un nouveau fichier. La structure est exactement la même, il est juste moins complet que celui dont je me servirais.
 
Dernière édition:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Non, la structure n'est pas similaire à celle des fichiers des posts #1 et #2.

Les dates en feuille "RECAP" ont été modifiées mais tant mieux, ça m'a permis de voir que ma solution n'allait pas.

Ensuite les noms des techniciens ne correspondent pas à ceux des feuilles des mois, j'ai donc corrigé.

Enfin les couleurs des cellules ne correspondent plus, je n'ai pas corrigé.

Cette nouvelle macro dans le fichier joint doit cependant faire l'affaire :
VB: 
 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lig&, col%, w As Worksheet, j As Variant, i As Variant
lig = Target.Row: col = Target.Column
If lig < 5 Or col < 3 Or Not (Cells(lig, 1) <> "" And Cells(lig + 1, 1) = "" Or Cells(lig - 1, 1) <> "" And Cells(lig, 1) = "") Then Exit Sub
Cancel = True
For Each w In Worksheets
    If w.Name <> Me.Name Then
        j = Application.Match(Cells(3, col), w.Rows(3), 0)
        If IsNumeric(j) Then
            i = Application.Match(Cells(lig + (Cells(lig, 1) = ""), 1), w.Columns(2), 0)
            If IsNumeric(i) Then
                w.Visible = xlSheetVisible 'si la feuille est masquée
                Application.Goto w.Cells(i - (Cells(lig, 1) = ""), j)
            End If
            Exit Sub
        End If
    End If
Next w
End Sub
 

Pièces jointes

  • Copie de idée plannif tech (version 1).xlsm
    234.6 KB · Affichages: 18
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

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
454
Nel'
N
A
  • Résolu(e)
XL 2016 Transfert de formule d'une feuille à une autre.
Réponses
2
Affichages
419
Al1_44
A
B
  • Question
XL 2016 Formule Recherche d'une cellule dans plusieurs onglets différents
Réponses
2
Affichages
405
oguruma
J
  • Question
XL 2016 envoie mail automatique lors de double-clic sur cellule
Réponses
6
Affichages
576
J@ba
J
T
  • Résolu(e)
Microsoft 365 Chercher si dans une plage de cellule la valeur d'une autre cellule est présente
Réponses
4
Affichages
279
TomJoad
T
  • Résolu(e)
XL 2021 En restant sur Feuille 1 active, comment activer dans ma feuille2 la 1ère cellule vide de la colonne A
2
Réponses
29
Affichages
1 K
TooFatBoy
H
  • Question
XL 2016 double clic pour aller à la ligne
Réponses
5
Affichages
661
Oneida
D
  • Question
XL 2016 macro pour copier coller des cellules d'une feuille dans une autre feuille avec condition
Réponses
2
Affichages
436
Phil69970
L
  • Résolu(e)
Microsoft 365 VBA double clic et saisie de cellule avec texte et horaire
Réponses
4
Affichages
512
Le novice
L
K
  • Question
Microsoft 365 incorporer des lignes dans une autre feuille selon titre
Réponses
9
Affichages
798
KELLY
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…