XL 2010 aide sur userform

komarlehomard

XLDnaute Junior
Bonjour
Bien malin j'ai tenté d'adapter un userform que j'ai pris dans le forum, et bien évidemment je n'y arrive pas.
le fichier joint est un fichier de ctrl de prod et kms.
J'aimerais lorsque je double click sur la plage de cellule (E28)(P28) qui est le nb de valeurs sur le mois en (E4)(P4) et l'année (B2),
qu'apparaisse un message avec les équipements concernés et l'écart de kilomètre colonne (B) & (L) dans base. Et si il est possible de prendre en compte que ma base est évolutive.
J'espère avoir été clair, et je vous remercie d'avance du temps que vous allez m'accorder.
 

Pièces jointes

  • aide ctrl HIT.xlsm
    266.4 KB · Affichages: 6

Oneida

XLDnaute Impliqué
Bonjour,
Le Cancel doit etre tout au debut a cause des cellue sans valeur
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True

Comprends pas trop ceci avec des -1. Normalement impossible
Code:
    With Sheets("base").[A4].CurrentRegion
        .Cells(2, -1) = "=(S7=Action)*COUNTIF(S7:S10000,Rame)" 'critère
        .AdvancedFilter xlFilterCopy, .Cells(1, -1).Resize(2), F.[A1:G1] 'filtre avancé
        .Cells(2, -1) = ""
    End With
 

komarlehomard

XLDnaute Junior
Quand je double click sur la plage E28:p28, j'aimerais qu'apparaisse l'équipement et écart kms.
le modèle se trouve sur l'onglet filtre, les données sont dans l'onglet base.
Je joins le fichier avec le filtre pour vous expliquer un peu mieux ma demande.
Merci du temps que vous m'accordez
 

Pièces jointes

  • aide ctrl HIT.xlsm
    272.7 KB · Affichages: 4

Oneida

XLDnaute Impliqué
Re,
Si j'ai bien compris, meme si ce n'est pas explique par ecrit, il faut faire une recherche sur le mois de la cellule selectionnee par le double click
Dans la listbox qu'est ce qui doit etre affiche si par hazard c'est le "message"
 

komarlehomard

XLDnaute Junior
oui c'est ça , recherche mois et année en cellule B2
dans le listbox "EQ_impu" colonne "B" dans onglet base et "écart kms" colonne "L" dans onglet base.
exemple pour le click sur la cellule "N28" , j'aimerais que s'affiche un truc du style.
1699271899805.png

Merci du temps que tu m'accordes.
 

Pièces jointes

  • 1699271855973.png
    1699271855973.png
    1.7 KB · Affichages: 5

Oneida

XLDnaute Impliqué
Bonjour,
Ok, une methode simple est un filtre elabore mais il faut une feuille pour recevoir le resultat de facon a recupere les infos.
J'ai trouve des codes pour transferer le resultat de filtre dans un tableau, mais chez moi, ne marche pas.
La chose est interessante car pas besoin de feuille receptacle
 

Oneida

XLDnaute Impliqué
Re,
Ok, si vous en avez besoin.
Ai trouve pour trsf filtre dans un object range, donc je peux remplir la feuille Filtre
Sommes bien d'accord, la boite a message est bien la Listbox de l'UserForm1

Me suis ptete avance un peut vite pour le trsf dans range
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
314 717
Messages
2 112 166
Membres
111 447
dernier inscrit
jasontantane