Contenu récent par david84

  1. D

    Boisgontier Jacques - quelles dernières nouvelles ?

    Bonjour, je n'étais pas au courant...décidément j'ai décroché depuis trop longtemps ! Merci pour tout Gérard, pour le travail colossal assemblé sur ton site (et merci à David de l'avoir sauvegardé au cas où !), pour ton aide appréciée de tous, pour tes contributions aux petits oignons, pour tes...
  2. D

    Hasco nous a quitté

    Bonjour, je ne suis plus actif depuis quelques années mais cela ne m'empêche pas de me souvenir de celles et ceux qui ont grandement contribué à la renommée et à la qualité de ce forum. Grand merci à toi Hasco pour tout ce que tu nous as apporté. Heureusement que tes contributions restent...
  3. D

    En soutien à Gérard (alias Job75)

    Bonjour Gérard, un petit passage sur le forum pour prendre de tes nouvelles. Reviens-nous vite car tu manques à beaucoup de monde ! Bien à toi David84
  4. D

    Microsoft 365 Additionner un même nombre de cellules sur plusieurs lignes, décallées vers la droite

    La fonction DECALER permet de définir la plage de calcul. La fonction SOMME permet de faire la somme de cette plage. DECALER (réf, lignes, colonnes, [hauteur], [largeur]) La 1ère cellule de la ligne (A6, A7,...) est la référence par rapport à laquelle...
  5. D

    Microsoft 365 Additionner un même nombre de cellules sur plusieurs lignes, décallées vers la droite

    Bonjour, à tester (formule à tirer vers le bas)
  6. D

    Texte ExtraireCourriel

    Bonjour, j'ai lu en diagonal et je n'ai pas testé le pattern mais pour que le pattern traite indifféremment les minuscules et les majuscules il suffit de passer IgnoreCase à True
  7. D

    Heureux Anniversaires !

    Merci 00 et Modeste pour cette délicate attention. C'est vrai Modeste que je ne passe plus souvent depuis quelques temps. J'espère que vous allez tous bien et que les demandeurs apprécient l'aide apportée par les contributeur de ce forum à sa juste valeur. J'essayerai de passer plus souvent...
  8. D

    Trier et déplacer des lignes barrées

    Il te suffit de modifier la condition : If Pl(I, Pl.Columns.Count).Value = "x" Then Pl.Rows(I).Hidden = True Pour le reste je n'ai pas le temps actuellement. A+
  9. D

    Trier et déplacer des lignes barrées

    Bonjour, pour masquer les lignes : Sub Masqueligne2() Dim I As Long, Pl As Range Application.ScreenUpdating = False Set Pl = [A1].CurrentRegion For I = Pl.Rows.Count To 2 Step -1 If Pl(I, 5).Value = "x" Then Pl.Rows(I).Hidden = True Next I Application.ScreenUpdating = True End Sub A+
  10. D

    XL 2016 Principe du text to columns en text to row

    Bonsoir, un essai pour tester : Sub test() Dim Pl As Range, s, T(), i&, j&, L& Set Pl = Range("A3").CurrentRegion ReDim T(1 To Pl.Rows.Count) Range("E3").CurrentRegion.ClearContents 'calcul du nombre de lignes du tableau final For i = LBound(T) To UBound(T) T(i) = Len(Pl(i...
  11. D

    57 ans pour Jocelyn

    Bonjour, bon anniversaire à l'ami Jocelyn ! A+
  12. D

    Liste triée par ordre alpha extraite d'un tableau

    Bonjour Cisco, bien vu ta proposition ! Tu peux éventuellement la raccourcir légèrement et éviter le fait de devoir ajuster la plage "zone" (-LIGNE(zone)+1 et -COLONNE(zone)+1) en utilisant la combinaison INDIRECT et ADRESSE à la place de INDEX (tester en H2) ...
  13. D

    Extraire une date d'un texte

    Bonsoir, cf. cette discussion et le fichier joint. A+
  14. D

    Bon anniversaire à JCGL et David84!!!

    Bonjour, je ne passe plus souvent sur le site mais je voulais vous remercier pour cette délicate attention et souhaiter un bon anniversaire à mon frérot ! Au plaisir
  15. D

    Extraire Valeurs entre plusieurs signes

    Bonjour, on peut éviter la formule matricielle et traiter directement la chaîne de caractères (en s'appuyant sur l'exemple fourni dans le message #1) : =SIERREUR(STXT(" - "&Feuil1!$B12&" - ";CHERCHE("ÿ";SUBSTITUE(" - "&Feuil1!$B12&" - ";" - ";"ÿ";COLONNE(A:A)))+3;CHERCHE("ÿ";SUBSTITUE(" -...