Contenu récent par peper_eliot

Bonjour Dranreb et merci beaucoup pour cette solution... C'est beau, propre, efficace👏👏:D Et tout ça sans ma flopée de "sélect" Par contre, j'ai du mal à décripter la boucle avec Ubound :rolleyes: ... Je vais creuser ça Encore merci

Bonsoir tout le monde. Je fais rapidement appel à vous pour un truc qui, j'en suis sûr, est bête comme chou pour les habitués du forum ;) Je cherche à supprimer les lignes d'un tableau qui ne correspondent pas à un certain critère Voici le bout de code correspondant : Sub Macro1() Dim c As...

Cool Merci à vous deux Alors, pour info, je suis très grand fan de la RECHERCHEV() mais comme elle oblige a avoir la première colonne de la base de triée, je me suis penché sur le combo INDEX + EQUIV... Grand merci @vgendron pour INDEX(Plage;EQUIV(A1;INDEX(Plage;;1);0);2) C'est PARFAIT :)

Bonjour à tous ;) Je me gratte la tête depuis un moment pour essayer de convertir cette formule en utilisant une plage : =INDEX('Feuil2'.$A$1:$G$100;EQUIV($A1;'Feuil2'.$A$1:$A$100;0);2) Donc, dans la "Feuil2", je nomme la plage de données $A$1:$G$100 ==> "PLAGE" (retour de vacances oblige...)...

Re : Balayage des cellules dans 2 colonnes contigues ou non contigues d'un tableau MAGNIFIQUE ! Et désolé de n'avoir pas répondu plus tôt... Dès hier 8h30, j'étais sur ta soluce dans le RER J'ai déjà vu des post parlant de UNION, mais c'est comme tout, si on ne pratique pas... Alors un grand...

Bonsoir à tous :rolleyes: Alors, voici ma petite question du soir... Dim cel As Range Set MaListe = Sheets("DATA").ListObjects("Tableau2") 'Je balaye TOUTES les cellules de mon tableau For Each cel In MaListe.DataBodyRange.Cells 'action Next cel 'Je balaye TOUTES...

Re : USF minimaliste : Boucler sur 1 seule TextBox Bon, ben, voilà... le code est nettoyé du mieux que je pouvais... J'espère que ça ne va pas vous faire dresser les cheveux sur la tête ;) L'userform1 est celui qui a été soumis à la création de ce fil L'userform2 est celui qui fait suite...

Re : USF minimaliste : Boucler sur 1 seule TextBox Je sais pas comment vous remercier tous les deux... Des vrais lumi_res en pleine nuit ;) LOL Alors voilà... j'ai laissé tombé la formule alambiquée... et j'ai remplacé par... Option Explicit Dim CHERCHE Private Sub UserForm_Initialize()...

Re : USF minimaliste : Boucler sur 1 seule TextBox TTF... t'es trop fort ;) Je coince encore un peu... une fois que la variable objet est ajoutée (Add) pour pouvoir la réutiliser mais je crois que je tiens le bon bout... je vais pouvoir me piotter en rêvant a ces DEUX pistes ;) Sinon, oui...

Re : USF minimaliste : Boucler sur 1 seule TextBox Bonsoir a tous... N'ayant pas encore trouvé ZE code miracle ;) j'en profite pour faire un petit up et demander une petite précision... Dans le code, ce qui me permet de revenir sur la TextBox1 dès qu'une saisie est validée, c'est cette...

Re : Problème calcul date N-1 Tu veux donc comparer la semaine 14-2013 avec la 14-2012... Mais, comme précisé, dans le système européen la semaine 1 est la première semaine contenant au moins 4 jours... (J-V-S-D) d'ou ton décalage En 2013, la semaine 1 commence le lundi 31 décembre En 2012...

Re : Easter egg : les pages de Laurent Longre accessibles plein de func pour le fun quoi ;) Merci pour ces pages collector

Re : Heure et minute actuelle + soustraction de temps vieux post... mais comme je viens de faire un fichier en réponse a ce post ça peut aussi servir au prochain visiteur de ce fil ;)

Re : Problème pour soustraire une heure avec l'heure actuelle Puisque tu veux la dater ta date texte... ben fait ça : =TEMPSVAL(STXT(REMPLACER(B3;CHERCHE("h";B3);1;":");13;99))+AUJOURDHUI()-1 Mais il faudra encore mettre une condition pour savoir si oui ou non il faut rajouter le -1 ;) voire...

Re : Problème pour soustraire une heure avec l'heure actuelle Ah, tu as été plus rapide que moi ;) Par contre... pour calculer une différence sur 24h ... on se moque que l'heure de départ soit datée ;)