Contenu récent par ROGER2327

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&")"));"...

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

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

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...

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)...

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

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

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...

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

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

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...

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...

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

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...

Bonjour à tous. Un essai «déterministe» : pas de DO ... LOOP jusqu'à ce que ça veuille bien... ℝOGER2327 #8511 Jeudi 12 Pédale 144 (Saint Hari Seldon, psychohistorien galactique - fête Suprême Quarte) 16 Ventôse An CCXXV, 1,9217h - épinard 2017-W10-1T04:36:43Z