Afficher le nom de l’équipement
Résolu
faisdlair
Messages postés
171
Date d'inscription
Statut
Membre
Dernière intervention
-
faisdlair Messages postés 171 Date d'inscription Statut Membre Dernière intervention -
faisdlair Messages postés 171 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Encore une fois, j'ai besoin de votre aide
Je m'explique
Mon classeur Excel contient 3 onglets
Le premier onglet (SUIVI) me permet de suivre toute la machinerie sur les 2 villes pour tous mes chantiers
Ce que je cherche a avoir, sur l'onglet SUIVI, si je clique sur une cellule contenant un numéro,
d'obtenir a la CELLULE N1, le nom de L'ÉQUIPEMENT correspondant a ce numéro.
Par exemple, je clique sur B5 (1320), j'obtiendrais a la cellule N1, TRACTEUR CASE SV185
et non pas TRACTEUR CASE SV185 1320. (ne pas mettre les 4 derniers caractères)
voici mon classeur https://www.cjoint.com/c/HIcljsCdXhz
merci
Encore une fois, j'ai besoin de votre aide
Je m'explique
Mon classeur Excel contient 3 onglets
Le premier onglet (SUIVI) me permet de suivre toute la machinerie sur les 2 villes pour tous mes chantiers
Ce que je cherche a avoir, sur l'onglet SUIVI, si je clique sur une cellule contenant un numéro,
d'obtenir a la CELLULE N1, le nom de L'ÉQUIPEMENT correspondant a ce numéro.
Par exemple, je clique sur B5 (1320), j'obtiendrais a la cellule N1, TRACTEUR CASE SV185
et non pas TRACTEUR CASE SV185 1320. (ne pas mettre les 4 derniers caractères)
voici mon classeur https://www.cjoint.com/c/HIcljsCdXhz
merci
4 réponses
Bonjour,
Les valeurs ne correspondent pas toujours d'une feuille à l'autre. En H13, sur la feuille SUIVI, tu as un caractère avant "750".
Corrige test données.
Daniel
Les valeurs ne correspondent pas toujours d'une feuille à l'autre. En H13, sur la feuille SUIVI, tu as un caractère avant "750".
Corrige test données.
Daniel
Bonjour
je reviens avec une demande un peu plus poussé
Quand je double clics sur une cellule qui contient du texte, A la cellule F1, apparait l'information
Plusieurs cellules contiennent 3 critères d'informations. Alors au double click sur certaines cellules,
aux cellules F1, N1, S1 apparaissent les informations requises.
Mais ou est mon problème, lorsque je double clic sur une cellule qui contient seulement 1 critère, si j'avais des informations aux cellules N1 et S1, J'aimerais que ces informations disparaissent.
Meme chose si je clic sur une cellule vide, N1 et S1 devrait rester vide, ce qui n'est pas le cas
Voici mon VBA
Option Explicit
Dim celX As Range, numéro%
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
If .CountLarge > 1 Then Exit Sub
If Intersect(Target, [B5:W80]) Is Nothing Then Exit Sub
[F1] = "": numéro = Val(Target): If numéro = 0 Then Exit Sub
End With
With Worksheets("ÉQUIPEMENTS")
Set celX = .Columns(2).Find(numéro, , -4163, 1)
If Not celX Is Nothing Then [F1] = .Cells(celX.Row, 1)
End With
With Target
If .CountLarge > 1 Then Exit Sub
If Intersect(Target, [B5:W80]) Is Nothing Then Exit Sub
[N1] = "": numéro = Val(Target): If numéro = 0 Then Exit Sub
End With
With Worksheets("ÉQUIPEMENTS")
Set celX = .Columns(2).Find(numéro, , -4163, 1)
If Not celX Is Nothing Then [N1] = .Cells(celX.Row, 6)
End With
With Target
If .CountLarge > 1 Then Exit Sub
If Intersect(Target, [B5:W80]) Is Nothing Then Exit Sub
[S1] = "": numéro = Val(Target): If numéro = 0 Then Exit Sub
End With
With Worksheets("ÉQUIPEMENTS")
Set celX = .Columns(2).Find(numéro, , -4163, 1)
If Not celX Is Nothing Then [S1] = .Cells(celX.Row, 7)
End With
End Sub
Je ne peut mettre le fichier au complet car il y a trop d'informations personnelles.
Merci
Espérons m’être fait bien comprendre
je reviens avec une demande un peu plus poussé
Quand je double clics sur une cellule qui contient du texte, A la cellule F1, apparait l'information
Plusieurs cellules contiennent 3 critères d'informations. Alors au double click sur certaines cellules,
aux cellules F1, N1, S1 apparaissent les informations requises.
Mais ou est mon problème, lorsque je double clic sur une cellule qui contient seulement 1 critère, si j'avais des informations aux cellules N1 et S1, J'aimerais que ces informations disparaissent.
Meme chose si je clic sur une cellule vide, N1 et S1 devrait rester vide, ce qui n'est pas le cas
Voici mon VBA
Option Explicit
Dim celX As Range, numéro%
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
If .CountLarge > 1 Then Exit Sub
If Intersect(Target, [B5:W80]) Is Nothing Then Exit Sub
[F1] = "": numéro = Val(Target): If numéro = 0 Then Exit Sub
End With
With Worksheets("ÉQUIPEMENTS")
Set celX = .Columns(2).Find(numéro, , -4163, 1)
If Not celX Is Nothing Then [F1] = .Cells(celX.Row, 1)
End With
With Target
If .CountLarge > 1 Then Exit Sub
If Intersect(Target, [B5:W80]) Is Nothing Then Exit Sub
[N1] = "": numéro = Val(Target): If numéro = 0 Then Exit Sub
End With
With Worksheets("ÉQUIPEMENTS")
Set celX = .Columns(2).Find(numéro, , -4163, 1)
If Not celX Is Nothing Then [N1] = .Cells(celX.Row, 6)
End With
With Target
If .CountLarge > 1 Then Exit Sub
If Intersect(Target, [B5:W80]) Is Nothing Then Exit Sub
[S1] = "": numéro = Val(Target): If numéro = 0 Then Exit Sub
End With
With Worksheets("ÉQUIPEMENTS")
Set celX = .Columns(2).Find(numéro, , -4163, 1)
If Not celX Is Nothing Then [S1] = .Cells(celX.Row, 7)
End With
End Sub
Je ne peut mettre le fichier au complet car il y a trop d'informations personnelles.
Merci
Espérons m’être fait bien comprendre
Quand j'ouvre le classeur que tu m'as retourné, a la cellule N1, c'est bien identié ENGINE NLB 40225G.
Par contre, si je change de cellule, tout disparait et ça ne fonctionne pas.
merci