Afficher le nom de l’équipement Résolu/Fermé

Question

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

M-12 · Answer

Bonjour,

Un test
https://www.cjoint.com/c/HIcl63VhUNu

danielc0 · Answer

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

faisdlair · Answer

Résolu maintenant

merci

faisdlair · Answer

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

Afficher le nom de l’équipement

4 réponses

Discussions similaires