• Initiateur de la discussion Initiateur de la discussion JCGL
  • 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 !

JCGL

XLDnaute Barbatruc
Bonjour à tous,

Félicitations MJ13

https://www.excel-downloads.com/threads/excel-4-0-et-fonction-personnalisees.171851/

Aujourd'hui 12h28 #19
MJ13
user-offline.png

XLDnaute Barbatruc
avatar638_8.gif

Date d'inscription : mars 2005 Messages : 5 000 Utilise Excel 2007 (PC)​

Toujours un plaisir de te lire

A++
A+ à tous
 
Dernière édition:
Re : 5 000 pour Michel

Bonjour Jean-Claude, Bonjour Michel,

Toujours aux aguets notre Jean-Claude 🙂
Toutes mes félicitations à Michel pour son passage du 5ème kilo, au plaisir de se croiser sur les fils 😉
 
Re : 5 000 pour Michel

🙂 Bonjour à tous 🙂

Bien vu JC alias oeil de lynx 🙂 (bise 🙂 )

Et merci à toi Michel pour la qualité de tes interventions, que comme tout le monde j'ai beaucoup de plaisir à lire.

Vraiment dommage que tu ne sois pas , mais à bientôt au détour d'un fil 🙂

Bise 🙂

Mireille
 
Re : 5 000 pour Michel

Bonjour toutes et tous,

toutes mes félicitations à Michel🙂 pour ce passage... Au plaisir de te croiser sur un fil..

bon après midi
@+
 
Re : 5 000 pour Michel

Salut Michel🙂, JC😎, Toto🙂, Mimi🙂, le Fil

Comme mes camarades je te félicite pour ce passage de cap, que de bonnes réponses données, de fichiers bien ficelés et de codes commentés. Un Xlnaute sur lequel on peut compter. 🙂

EDITION: Arf... Pierrot 🙂 je m'améliore ...1 minute ...maijel'auraisunjour...jel'aurais... 😛

Bonne Journée à tous
 
Dernière édition:
Re : 5 000 pour Michel

Bonjour à tous,

Je passe à mon tour pour adresser mes félicitations à Michel.

Merci pour ton apport sur le Forum.

A bientôt peut-être au détour d'un fil.

@+
 
Re : 5 000 pour Michel

Bonsoir,

Sous forme de charade:
  • La bouche de mon premier est fendue au-delà de l'œil et ses lèvres sont épaisses. Sa mâchoire supérieure est légèrement proéminente (mais non, ce n'est pas Michel!)
  • Mon second est une interjection expressive marquant un sentiment vif (plaisir, douleur, admiration, impatience...)
  • Mon troisième est souvent employé dans un contexte de familiarité.
  • Mon quatrième: interj. – XIIe: de l'adj. xxx "malheureux", en ancien français.
  • Mon dernier est une ville et une commune suisse

Contrairement aux usages du forum et comme il ne s'agit pas d'Excel la solution est ici, si on sélectionne: congre ah tu las Sion, Michel!
 
Re : 5 000 pour Michel

Bonjour Jean-Claude, Tototiti, Mireille, Pierrot, Didier, Tibo, David, Modeste, Brigitte, Paritec, Jean-marcel, 00

Merci beaucoup pour vos messsages de sympathie et touchantes attentions. Il est vrai que j'étais un peu moins présent ces temps-ci par manque de temps.

Pour mon 5000 ème voici un petit fichier à télécharger avec mes 12999 posts d'abonnement glanés au fils du temps sur XLD et bien d'autres choses 🙂. Click droit pour rechercher un nom et double click pour ôter le filtre.




Malheureusement je ne pourrais être présent à la Dombes. Mais je serai de tout coeur avec ceux qui y seront 😱.
 
Re : 5 000 pour Michel

Bonjour le fil 🙂,
Désolé, un peu à la bourre, et souvent absent ces temps-ci 🙁...
Mais mes chaleureuses félicitations à Michel pour ses 5ko 😉 !
Au plaisir de te lire souvent 🙂 !
Bonne journée 😎
 
Re : 5 000 pour Michel

Bonjour Jean-Noël

Merci beaucoup 🙂.

Sinon avec le fichier MJ_12999.xls, vous pouvez modifier le code ainsi. Et la, Click droit pour rechercher, et double click alterne pour trier en descendant ou en ascendant 😕.
Vous pouvez aussi rajouter un module avec Ote_Filtre pour ôter le filtre avec un ctrl+lettre de votre choix en faisant alt+F8 puis Options et taper la lettre ( ouf 😱).

Code:
'A mettre dans Thisworkbook
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'On Error Resume Next
    Cancel = True
    'ActiveSheet.ShowAllData
    On Error GoTo suite
    nlact = ActiveCell.Rows.Row
    ncact = ActiveCell.Columns.Column
    ordre = Mid$(ActiveWorkbook.Names("ordretexte").Value, 2, 1)
    Cells(nlact, ncact).Select
    Selection.CurrentRegion.Select
    ActiveWorkbook.Names.Add Name:="Fortri", RefersToR1C1:=Selection
    If ordre = "1" Then Selection.Sort Key1:=Cells(nlact, ncact).Value, Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
       DataOption1:=xlSortNormal
    If ordre = "2" Then Selection.Sort Key1:=Cells(nlact, ncact).Value, Order1:=xlAscending, Header:=xlGuess, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
       DataOption1:=xlSortNormal
    Cells(nlact, ncact).Select
    ordre = ordre + 1: If ordre = 3 Then ordre = 1
    ActiveWorkbook.Names.Add Name:="ordretexte", RefersToR1C1:=ordre
    End
suite:
    ActiveWorkbook.Names.Add Name:="ordretexte", RefersToR1C1:=1
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Cancel = True
'Stop
'ActiveSheet.ShowAllData
derl = [A65536].End(xlUp).Row: derc = [IV1].End(xlToLeft).Column
If ActiveCell.Row <> 1 Then Exit Sub
ColN = ActiveCell.Column
Application.ScreenUpdating = False
NAT = InputBox("Filtre contient?")
Selection.AutoFilter
    ActiveSheet.Range(Cells(1, 1), Cells(derl, derc)).AutoFilter Field:=ColN, Criteria1:="=*" & NAT & "*" _
        , Operator:=xlAnd
End Sub
'------------------------------------------------------------------------------------------
'A mettre dans un module normal
'Sub ote_filtre()
'Cancel = True
'ActiveSheet.ShowAllData
'End Sub
 
Re : 5 000 pour Michel

J'arrive très très en retard car j'avais raté ce post.

Un grand bravo à Michel pour cette barre symbolique et un grand merci pour ce fichier qui va m'être très utile.
 
- 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

Discussions similaires

Retour