Contenu récent par david84

  1. 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...
  2. 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+
  3. 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+
  4. 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...
  5. D

    57 ans pour Jocelyn

    Bonjour, bon anniversaire à l'ami Jocelyn ! A+
  6. 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) ...
  7. D

    Extraire une date d'un texte

    Bonsoir, cf. cette discussion et le fichier joint. A+
  8. 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
  9. 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(" -...
  10. D

    gestion du 29 février sur calendrier

    Bonjour, appliquer une MFC en D30 : =OU(MOD(ANNEE($D$1);400)=0;ET(MOD(ANNEE($D$1);4)<>0;MOD(ANNEE($D$1);100)>0)) S'applique à =$D$30:$F$30 A+ Edit : bonjour Roland
  11. D

    Transformer nombre décimal en hh:mn en vba

    Ok. Je pense que tu peux éventuellement gérer cela dans l'événement Worksheet_SelectionChange du type If Not Intersect(Target, r) Is Nothing Then Target.NumberFormat = "@" mais cela fait un événement de plus à gérer. A+
  12. D

    Transformer nombre décimal en hh:mn en vba

    Bonjour à tous, je n'ai pas suivi tout le fil mais pourquoi ne pas simplement le faire dans la procédure ? r.NumberFormat = "@" D'autre part a priori on peut se passer du test pour trouver le séparateur décimal : sep = Application.International(xlDecimalSeparator) A+
  13. D

    signification

    Bonsoir, [liste] semble être un nom défini représentant une ou plusieurs cellules. x=[liste].value : affectation de la ou des valeurs de "liste" à la variable x. Cela peut s'écrire plus simplement x=[liste] puisque les crochets entourant "liste" font appel à la valeur de "liste" via la méthode...
  14. D

    Classement

    En es-tu sûr avant de l'affirmer ? Avant de poster je l'avais testée sur ton fichier exemple... A+ En es-tu sûr avant de l'affirmer ? Avant de poster je l'avais testée sur ton fichier exemple... A+ PS : as-tu bien validé la formule en matriciel (touches Ctrl+Maj+Entrée) ?
  15. D

    Classement

    Il faut gérer l'égalité entre Maran et Ferrara. A+
Haut Bas