XL 2016 aide pour réaliser une ptite macro

eastwick

XLDnaute Accro

• 20 Février 2021

• #2

Bonjour, au risque d'être désagréable, un petit fichier serait le bienvenu.
P.S. : soignez l'orthographe.

 

Vote positif 0 Vote négatif

C

chingilou

XLDnaute Junior

• 20 Février 2021

• #3

voila

 

Pièces jointes

• Classeur1.xlsm

  20.1 KB · Affichages: 5

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Février 2021

• #4

Bonjour le fil

Si j'ai bien compris la donne

Code:

Sub Macro1()
[E10:E197].Formula = "=IF(D10<>"""",D10+D10*INT((RANDBETWEEN(5,10)))%,"""")"
[F10:F197].Formula = "=IF(D10<>"""",D10+D10*INT((RANDBETWEEN(5,12)))%,"""")"
[E10:F197] = [E10:F197].Value
End Sub

 

Vote positif 0 Vote négatif

C

chingilou

XLDnaute Junior

• 20 Février 2021

• #5

plutot ca mais ca me met erreur

Dim Counter As Integer
For Counter = 10 To 196
article = Worksheets("Acceuil").Cells(Counter, 2).Value
h = Worksheets("Acceuil").Cells(Counter, 4).Value
'If article <> "" Then
' Worksheets("Acceuil").Cells(Counter, 5).Value = h+h*INT(Random Between(5;10)))%)
Else: Worksheets("Acceuil").Cells(Counter, 5).Value = ""

 

Vote positif 0 Vote négatif

C

chingilou

XLDnaute Junior

• 20 Février 2021

• #6

je connais pas cette formulation elle est plutot pas mal mais comment varier le D10

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Février 2021

• #7

Re

Bah le +10 varie
Pour t'en convaincre , testes avec la macro ainsi modifiée
Et regardes ensuite les formules dans les cellules

VB:

Sub Macro1_b()
[E10:E197].Formula = "=IF(D10<>"""",D10+D10*INT((RANDBETWEEN(5,10)))%,"""")"
[F10:F197].Formula = "=IF(D10<>"""",D10+D10*INT((RANDBETWEEN(5,12)))%,"""")"
End Sub

 

Vote positif 0 Vote négatif

C

chingilou

XLDnaute Junior

• 20 Février 2021

• #8

oui ça marche merci chef mais pas avec la façon que j'ai demander
Ta micro dépose la formule dans les cellule ainsi ça va varier à chaque fois que je change qlq chose dans le fichier en dehors du tableau même ou de l'ouverture du fichier

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Février 2021

• #9

Bonjour Chingilou, Staple, Eastwick,
@Staple,

comme ca la rangé E et F de mon tableau ne change pas à chaque ouverture du fichier jusqu’au prochain appuie du bouton

Cliquez pour agrandir...

En mettant une formule c'est recalculé à chaque fois. Je pense que Chingilou veut que les valeurs soient fixes entre deux appui sur un bouton.
Une possibilité peut être :

Code:

Sub Alea()
    Dim L As Integer
    For L = 10 To 196
        If Cells(L, "D") <> "" Then
            Cells(L, "E") = Cells(L, "D") * (1 + Int((Application.RandBetween(5, 10))))
            Cells(L, "F") = Cells(L, "D") * (1 + Int((Application.RandBetween(5, 12))))
        End If
    Next L
End Sub

 

Vote positif 0 Vote négatif

C

chingilou

XLDnaute Junior

• 20 Février 2021

• #10

changer veut dire la valeur de RANDBETWEEN

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Février 2021

• #11

Ou encore en s'inspirant :

Code:

Sub Macro1_b2()
    [E10:E197].Formula = "=IF(D10<>"""",D10+D10*INT((RANDBETWEEN(5,10)))%,"""")"
    [F10:F197].Formula = "=IF(D10<>"""",D10+D10*INT((RANDBETWEEN(5,12)))%,"""")"
    [E10:E197] = [E10:E197].Value
    [F10:F197] = [F10:F197].Value
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Février 2021

• #12

Re

Ca ne change plus avec la 1ère version de la macro
grâce à
[E10:F197] = [E10:F197].Value
(que j'ai supprimé dans la seconde macro, juste pour que tu puisses voir que le D10 changeait bien dans les formules.)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Février 2021

• #13

Bonsoir sylvanu

Voir le message#4

 

Vote positif 0 Vote négatif

C

chingilou

XLDnaute Junior

• 20 Février 2021

• #14

merci

sylvanu c'est exactement ce que je veux dire et ca marche d'enfer (a part une petite erreur dans la formule )​

merci a vous tous

 

Vote positif 0 Vote négatif

C

chingilou

XLDnaute Junior

• 20 Février 2021

• #15

Staple1600​

c'est vrai aussi que ça marche je m'en excuse j'avais testé la 2eme macro
chapeau bas a vous tous

 

Vote positif 0 Vote négatif