Contenu récent par ROGER2327

  1. ROGER2327

    Calcul durée de voix off

    Re... Excel sans VisualBasic, c'est comme un baiser sans moustache : inconcevable ! Voici une formule qui fait le boulot s'il y a au plus une parenthèse : =0,075*NBCAR(SUBSTITUE(SUBSTITUE(SUBSTITUE(GAUCHE(C4;CHERCHE("(";C4&"("))&DROITE(C4;NBCAR(C4)+1-CHERCHE(")";C4&")"));"...
  2. ROGER2327

    Calcul durée de voix off

    Bonjour à tous. Un essai avec une pincée de VisualBasic. ℝOGER2327 #8526 Dimanche 15 Clinamen 144 (Invention de la ’Pataphysique - fête Suprême Première première) 17 Germinal An CCXXV, 0,1028h - mélèze 2017-W14-4T00:14:48Z
  3. ROGER2327

    recherche verticale pour trouver le nombre de voix accordées à un groupe de votants

    Bonjour à tous. Une autre approche... ℝOGER2327 #8525 Jeudi 12 Clinamen 144 (Saint Georges Dazet, poulpe au regard de soie - fête Suprême Quarte) 14 Germinal An CCXXV, 9,8799h - hêtre 2017-W14-1T23:42:43Z
  4. ROGER2327

    somme avec des cellules fusionnées

    Suite... Merci JCGL ! Meilleur : Sub bbb() Dim i&, j&, p As Range, q As Range, v(), w(), x# With Application: .ScreenUpdating = 0: .EnableEvents = 0: .Calculation = -4135: End With Set p = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(0, 1).Cells w = p.Value j = 1 Do...
  5. ROGER2327

    somme avec des cellules fusionnées

    Bonjour à tous. Ceci, sur le même principe que celui de Robert, devrait être beaucoup plus rapide. (À vérifier...) Sub aaa() Dim i&, j&, p As Range, q As Range, v(), x# With Application: .ScreenUpdating = 0: .EnableEvents = 0: .Calculation = -4135: End With Set p = Range(Cells(1, 1)...
  6. ROGER2327

    probléme DECALER pour recopie multiple

    Bonsoir nordine1970. Un essai en pièce jointe. ℝOGER2327 #8521 Vendredi 6 Clinamen 144 (Saint Ganymède, professionnel - fête Suprême Quarte) 8 Germinal An CCXXV, 9,4864h - jonquille 2017-W13-2T22:46:03Z
  7. ROGER2327

    XL 2010 Graphique WaterFall

    Bonjour aquaboniste. Un essai au pif. ℝOGER2327 #8520 Jeudi 5 Clinamen 144 (Saints Aster et Vulpian, violateurs du Néant - fête Suprême Quarte) 7 Germinal An CCXXV, 0,3688h - bouleau 2017-W13-1T00:53:07Z
  8. ROGER2327

    Chercher à compter le nombre de fois ou la meme valeur apparée d'affilée

    Bonjour boubouloulou. Pas très-clair, tout ça... Un essai tout de même, avec une fonction personnalisée. ℝOGER2327 #8519 Lundi 2 Clinamen 144 (Saints Hiboux, maîtres-chanteurs - fête Suprême Quarte) 4 Germinal An CCXXV, 1,4005h - tulipe 2017-W12-5T03:21:40Z
  9. ROGER2327

    activecell 2 feuilles

    Bonsoir gscv. Au choix : Option Explicit Sub toto() Dim titi$ titi = InputBox("text", "test") ActiveCell.Value = titi Feuil2.Range(ActiveCell.Address).Value = titi End Sub Sub tata() Dim titi$ titi = InputBox("text", "test") ActiveCell.Value = titi Worksheets("PAGE...
  10. ROGER2327

    Cherche une fonction pour trouver la ligne dans un tableau à deux colonnes ou x1<y2

    Bonjour boubouloulou. =INDEX(ADC1274:ADC2302;MIN(SI(ADD1274:ADD2302<=ADE1274:ADE2302;LIGNE($1:$1029);2000000))) À valider par Ctrl Maj Entrée. ℝOGER2327 #8517 Samedi 28 Pédale 144 (Dédicace du Tripode - Vacuation) 2 Germinal An CCXXV, 0,1450h - platane 2017-W12-3T00:20:53Z
  11. ROGER2327

    Calendrier

    Bonjour fenec, Dugenou. Un autre essai... ℝOGER2327 #8516 Lundi 23 Pédale 144 (Saint Masquarade, uniforme - fête Suprême Quarte) 27 Ventôse An CCXXV, 1,1447h - sylvie 2017-W11-5T02:44:50Z
  12. ROGER2327

    [Résolu] Remplir une suite de plages suivant un certain ordre

    Re... J'ai effectivement été radin pour dimensionner le tableau w ! Il faut : ReDim w(1 To 8, 1 To 3 * ((UBound(v) - 1) \ 24 + 1)) Explication : 3 * ((UBound(v) - 1) \ 24 + 1) est la valeur maximale possible de (i - 1) Mod 3 + 1 + 3 * ((i - 1) \ 24). Bonne nuit. ℝOGER2327 #8515 Mercredi 18...
  13. ROGER2327

    [Résolu] Remplir une suite de plages suivant un certain ordre

    Bonjour Kim75. Essayez ceci : Sub Macro_A() Dim i&, v(), w() With Feuil3.Range("A1"): v = .Resize(.Parent.Cells(.Parent.Rows.Count, .Column).End(xlUp).Row - .Row + 1, .Column).Value: End With With Feuil1 .Unprotect Password:="" ReDim w(1 To 8, 1 To (UBound(v) - 1) \ 8 + 1) For i...
  14. ROGER2327

    Problème valeurs intersection multiple entre des courbes

    Bonjour à tous. Un petit coup de VBA... ℝOGER2327 #8513 Mardi 17 Pédale 144 (Saint Dricarpe, prosélyte - fête Suprême Quarte) 21 Ventôse An CCXXV, 0,3675h - mandragore 2017-W10-6T00:52:55Z
  15. ROGER2327

    [RESOLU] Probléme pour identifier 1ére cellule non vide

    Bonjour à tous. Deux autres : Sub aaa1() Dim i&, c&, p As Range With Range("B1") Set p = .Resize(.Offset(Rows.Count - .Row).End(xlUp).Row, .Offset(, Columns.Count - .Column).End(xlToLeft).Column) p.Interior.ColorIndex = xlNone For i = 1 To p.Rows.Count - 1 If .Offset(i...