Microsoft 365 Report d'une cellule

[emmanuel.conche]

Bonjour
Je souhaite reporter la valeur d'une cellule vers une autre, par la simple clic sur une des cellule de la même ligne.
Dans mon exemple si je clique sur par exemple C12 je veux que le numéro client D12 s'affiche directement en D2.
Est-ce possible ?
Merci
Manu

 

[sylvanu]

Bonjour Emmanuel,
Un essai en PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C11:C100]) Is Nothing Then
        If Target <> "" Then [D2] = Cells(Target.Row, "D")
    End If
End Sub

 

[Phil69970]

Bonjour @emmanuel.conche
Edit Bonjour Sylvain

Je te propose ce fichier
Tu choisis en B2 l'entreprise et les données se mettent à jour

Merci de ton retour

 

[emmanuel.conche]

Bonjour @emmanuel.conche
Edit Bonjour Sylvain

Je te propose ce fichier
Tu choisis en B2 l'entreprise et les données se mettent à jour

Merci de ton retour

Merci pour ton aide J'ai actuellement cette option mais mon tableau comprend beaucoup de ligne et de colonnes cette option avec le menu déroulant n'est vraiment pas très utilisable c'est pour cela que je cherche une autre option

 

[sylvanu]

Re, bonjour Phil,
Ma PJ était incomplète car trop restrictive. ( clic uniquement sur colonne D )
Dans celle ci on clique sur n'importe quelle ligne pour exporter les données.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A11:H100]) Is Nothing Then
        If Target <> "" Then
            L = Target.Row
            [B1] = Cells(L, "A")
            [D1] = Cells(L, "B")
            [B2] = Cells(L, "C")
            [D2] = Cells(L, "D")
            [B3] = Cells(L, "E")
            [D3] = Cells(L, "F")
            [B4] = Cells(L, "G")
            [D4] = Cells(L, "H")
        End If
    End If
End Sub

 

[emmanuel.conche]

Bonjour Emmanuel,
Un essai en PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C11:C100]) Is Nothing Then
        If Target <> "" Then [D2] = Cells(Target.Row, "D")
    End If
End Sub

Mon Excel bloque tes macros

 

[sylvanu]

Re,
En formules je ne vois pas comment faire, ni même si cela est possible.
Pour les macros il vous suffit de les acceptez ( si vous le voulez ) lors de l'ouverture du fichier.
Ou de les autoriser avec :

Activer ou désactiver les macros dans les fichiers Microsoft 365 - Support Microsoft

Améliorez la sécurité, évaluez et atténuez les risques liés à l’exécution de macros, et découvrez comment activer ou désactiver des macros pour Microsoft 365.

support.microsoft.com

 

[emmanuel.conche]

Re,
En formules je ne vois pas comment faire, ni même si cela est possible.
Pour les macros il vous suffit de les acceptez ( si vous le voulez ) lors de l'ouverture du fichier.
Ou de les autoriser avec :

Activer ou désactiver les macros dans les fichiers Microsoft 365 - Support Microsoft

Améliorez la sécurité, évaluez et atténuez les risques liés à l’exécution de macros, et découvrez comment activer ou désactiver des macros pour Microsoft 365.

support.microsoft.com

ok jai pu ouvrir comment puis je utiliser cette méthode sur mon tableau , car la ce n'est q'un exemple sur un tableau simplifié ?

 

[sylvanu]

comment puis je utiliser cette méthode sur mon tableau

Donnez une PJ vraiment représentative.
Sinon il faut modifier la macro en conséquence avec les vraies référence de cellules.

 

[sylvanu]

Re,
Voir PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A16:AQ49]) Is Nothing Then
        If Cells(Target.Row, "F") <> "" Then [E1] = Cells(Target.Row, "F")
    End If
End Sub

 

[sylvanu]

C'est dans la feuille Suivi prospection qu'il faut mettre la macro, non dans la feuille Suivi clients. 🙂
Et le l'ai modifié pour que ce soit applicable quelle que soit la dernière ligne du tableau :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row
    If Not Intersect(Target, Range("A16:AQ" & DL)) Is Nothing Then
        If Cells(Target.Row, "F") <> "" Then [E1] = Cells(Target.Row, "F")
    End If
End Sub

 

[emmanuel.conche]

Re,
Voir PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A16:AQ49]) Is Nothing Then
        If Cells(Target.Row, "F") <> "" Then [E1] = Cells(Target.Row, "F")
    End If
End Sub

peux tu stp supprimer la piece jointe merci

 

[emmanuel.conche]

Re,
Voir PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A16:AQ49]) Is Nothing Then
        If Cells(Target.Row, "F") <> "" Then [E1] = Cells(Target.Row, "F")
    End If
End Sub

pareil supprimer mon tableau

 

[sylvanu]

peux tu stp supprimer la piece jointe merci

Fait. 🙂


Quel tableau ? Quel post ?

 

[emmanuel.conche]

Re,
Voir PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A16:AQ49]) Is Nothing Then
        If Cells(Target.Row, "F") <> "" Then [E1] = Cells(Target.Row, "F")
    End If
End Sub

cest juste de supprimer le tableau suivi secteur ! pour le tableau exemple cest ok