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

demande d'aide concernant une problematique en exc

  • Initiateur de la discussion Initiateur de la discussion Laurent
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

Laurent

Guest
Bonjour,

j'aurai aimé avoir un peu d'aide concernant la programmation en excel.

je n'ai pas de connaissances assez poussées afin de pouvoir résoudre cette problématique.

je dispose de deux feuilles excel, sur la premiere, je dispose d'une liste (sans doublons). je voudrais pouvoir mettre un bouton a coté de chaque record. ce bouton me permettrait d'ouvrir une fenetre dans laquelle on pourrait retrouver de l'information qui est reprise dans la deuxieme feuille excel et qui correspond au record initial (il peut il y avoir plusieurs records dans la seconde qui sont associés à un seul record de la premiere feuille.

si qqun pouvait me donner un coup de main.

Merci d'avance,
 
Bonjour Laurent

Je suis près a relever le défis. Mais j'aurais besoin que tu joigne ton fichier(fichier zippé sans accents ni caractères spéciaux ni espaces et inférieur à 50 Ko ) pour mieux voir s.v.p.

merci !
 
Voici un extract du fichier

Mon probleme est donc le suivant.
J'aimerais faire apparaitre dans la feuille 'List Name', une nouvelle fenetr qui s'ouvre quand on clique sur un bouton a coté de chaque 'Code', avec à l'interieur un détail de l'information qui se trouve dans la feuille 'List Détail'et qui est relative au meme 'Code' (il peut y avoir plusieurs information relative à un même code).

un grand merci pour votr aide.

le fichier est en annexe (c'est une partie d'un bcp plus grand fichier mais si cela fonctionne sur cet extrait ca devrait facilement êtr adaptable a l'entiereté du fichier).

[file name=testexcel.zip size=3035]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testexcel.zip[/file]
 

Pièces jointes

Bonjour tout le monde

Une solution en affichant une 'photo' d'une plage de cellules.

Voir le fichier joint, la 'picture 2' est affichée en double cliquant sur une cellule de la colone A ou B. Le changement de la cellule active cache la 'picture 2'.

@+Jean-Marie [file name=testexcel_20050612224634.zip size=12736]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testexcel_20050612224634.zip[/file]
 

Pièces jointes

JeanMarie écrit:

Bonjour,

un grand merci pour cette premiere solution.

Laurent
 
JeanMarie écrit:

Si je peux encore demander:

serait-il possible de faire apparaitre l'image SUR la ligne sur laquelle on clique?
cela permettrait d'avoir l'info en visuel, même si il s'agit d'un grand fichier.

un grand merci
Laurent
 
Bonjour

Je suis content que mon idée est attirée l’attention, hihi

Merci Hervé pour le rajout, cependant, le code n’est pas complètement viable.

Après avoir afficher toutes les précédemment filtrées, il faut supprimer les valeurs de la plage de critère.
Code:
.Range('A2:F2').ClearContents

@+Jean-Marie
 
je dois bien avouer que cela me fait gagner un temps énorme dans la creation des procédures.

je vous en remercie...

et n'hésiterai pas a faire encore appel a vos connaissances...
🙂

j'ai juste encore une question..
pour faire apparaitre les ligne, il faut cliquer aussi bien sur le code que sur le nom du code (les deux premieres colonnes en fait...) y aurait-il un moyen d'éviter la redite des actions?

Merci bcp
 
Re...

Fait ce que j'indiquai dans le fil de 13:39.

@+Jean-Marie

Ton code devra être ainsi
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim LimiteDroite As String
On Error Resume Next
If Target.Column <= 3 And Len(Target) > 0 Then
   With Worksheets('List Detail')
      .ShowAllData
      .Range('A2:F2').ClearContents
      .Range('A2').Offset(0, Target.Column - 1) = Target
      LimiteDroite = Cells(.Range('A65356').End(xlUp).Row, .Range('IV3').End(xlToLeft).Column).Address
      .Range('A3:' & LimiteDroite).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
      .Range('A1:F2'), Unique:=False
   End With
   ActiveSheet.Shapes('Picture 2').Visible = True
End If
End Sub
 
JeanMarie écrit:

Ca marche
un tout tout grand merci...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…