Dblclic sur cellule userform s'ouvre
Fermé
mohidou71
Messages postés
14
Date d'inscription
dimanche 31 janvier 2016
Statut
Membre
Dernière intervention
23 mai 2016
-
31 janv. 2016 à 12:51
mohidou71 Messages postés 14 Date d'inscription dimanche 31 janvier 2016 Statut Membre Dernière intervention 23 mai 2016 - 31 janv. 2016 à 18:27
mohidou71 Messages postés 14 Date d'inscription dimanche 31 janvier 2016 Statut Membre Dernière intervention 23 mai 2016 - 31 janv. 2016 à 18:27
A voir également:
- Dblclic sur cellule userform s'ouvre
- Verrouiller cellule excel - Guide
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Aller à la ligne dans une cellule excel - Guide
- Messenger ne s'ouvre pas ✓ - Forum Messagerie
- Excel si cellule contient texte alors ✓ - Forum Excel
2 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
31 janv. 2016 à 14:19
31 janv. 2016 à 14:19
Re,
Faudrait avoir un peu de patience!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Regardez sur votre demande precedente
Faudrait avoir un peu de patience!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Regardez sur votre demande precedente
mohidou71
Messages postés
14
Date d'inscription
dimanche 31 janvier 2016
Statut
Membre
Dernière intervention
23 mai 2016
31 janv. 2016 à 16:12
31 janv. 2016 à 16:12
Bonjour
j'ai essayé sa marche nikel mais quelle ligne de code rajoutée pour récupérer l'information d'une autre feuille.
j'ai essayé je n'y arrive pas, excusé moi mais je suis débutant dans le VBA.
merci d'avance
j'ai essayé sa marche nikel mais quelle ligne de code rajoutée pour récupérer l'information d'une autre feuille.
j'ai essayé je n'y arrive pas, excusé moi mais je suis débutant dans le VBA.
merci d'avance
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
31 janv. 2016 à 16:29
31 janv. 2016 à 16:29
Re,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("A1:A4")) Is Nothing Then
Cancel = True
With Worksheets("feuil2") 'mettre le nom de la feuille
'recherche
Nb = Application.CountIf(.Range("I1:I4"), Target)
If Nb > 0 Then
lig = 1
lig = .Columns("I").Find(Target, .Cells(lig, "I"), , xlWhole).Row
UserForm1.Label1.Caption = .Cells(lig, "J")
UserForm1.Show
Else
MsgBox "Desole, n'exite pas dans table !!!!!"
End If
End With
End If
End Sub
mohidou71
Messages postés
14
Date d'inscription
dimanche 31 janvier 2016
Statut
Membre
Dernière intervention
23 mai 2016
>
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
31 janv. 2016 à 18:27
31 janv. 2016 à 18:27
Bonjour
un grand merci a vous et merci encore pour votre aide précieuse
Merci
un grand merci a vous et merci encore pour votre aide précieuse
Merci