Ajout de données fictives

Bonjour tout le monde c'est encore moi !

Je progresse dans mon travail mais je me trouve désormais confronté à un nouveau problème.(Je dis ça pour ceux qui m'ont déjà aidé )

Je désire actuellement générer des valeurs fictives je m'explique grâce au fichier joint

Merci d'avance pour votre aide!

Bonjour,

Si c'est en rapport avec ton poste précédent, tu devrais continuer à la suite,

çà sera + facile de compléter le fichier.

https://forum.excel-pratique.com/excel/moyennage-de-plusieurs-valeur-soumis-a-une-condition-t26846.html#p152807

Amicalement

Claude

Bonsoir,

tu peux solder ce poste, je crois

Claude

Salut

Rien suivi du début de ton aventure mais voici une petite macro à mettre sur un bouton qui peut sans doute te mettre sur une piste pour insérer tes données (si j'ai bien compris ce que tu désirais !)

Private Sub CommandButton1_Click()
    'On considère les deux données en écart en "A1" et "A2"

    'tant que l ecart est supérieur à 1s
    While DateDiff("s", Range("A1"), Range("A2")) > 1

        'Insertion d une ligne
        Rows("2:2").Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

        Range("A2").Select
        nb = Int((3 * Rnd) + 7) ' choix aléatoire 7 8 ou 9

        'Calcul diff par rapport au dessous
        formule = "=R[+1]C-""00:00:00," & nb & """"
        ActiveCell.FormulaR1C1 = formule

        'On met le zero à côté
        Range("B2").Select
        ActiveCell.FormulaR1C1 = 0
    Wend

    MsgBox ("fini")
End Sub

Pour l'instant gestion en vrac de l'aléatoire à peaufiner si besoin.

A plus

à la prochaine

Claude