Discussion :

[bitissa1991]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
Dim R As Range
 Set Rng2 = Range("C13")
            Do While Not IsEmpty(Rng2.Value)
            R = WorksheetFunction.randombeetween(11, 2)
            Rng2.Value = Range("O13").Offset(R, 0).Value
            Set Rng2 = Rng2.Offset(1, 0)
            Loop
 End Sub

svp j'ai une erreur 438 qui s'affiche lors de l'execution de ce code que j'appel au cour de ma grande boucle le débeugage je l'est sur la ligne en rouge je sais pas pourquoi ??
mercii

[parmi]

Bonjour,

Essaie plutôt: randbetween

[DeathZarakai]

j'ai pas essayé mais ce ne serait pas plutôt?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

R = WorksheetFunction.randombeetween(2, 11)

ou randbetween comme dit au dessus.


DeathZarakai

[bitissa1991]

dommage ca marche pas

zarakai tu comprend un peux en VBA ?

[parmi]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    R = Application.WorksheetFunction.RandBetween(2, 11)
    MsgBox R

Et ne déclare pas R as Range... Ce n'est pas un Range que ça retourne

[bitissa1991]

il me fait encore une autre erreur
sub ou function non définie et il me selectionne le Msgbox R en jaune

[parmi]

As-tu déclaré R As Integer ou As Long ?

[bitissa1991]

oui j'ai assayer mais sa marche toujours pas

parmi est ce que je peux t'envoyer ce que je veux faire pour voir si tu peux m'aider ?

[DeathZarakai]

Le plus simple je pense, c'est que tu utilises le vrai random de VBA :
Ci-joint aide en ligne
Ne pas oublier de mettre Randomize.

DeathZarakai

[parmi]

oui j'ai assayer mais sa marche toujours pas

Qu'Est-ce qui ne fonctionne pas ? Y a-t-il un message d'erreur et lequel ?
Autrement, remet le bout de code où tu es rendue.

[bitissa1991]

merci beaucoup pour la réponse déja
et voila en faite ce que je veux faire essay stp d'executer la macro simulation pour voir ce que je veux faire merci
exemple de ce que je veux faire :
étape 1
je veux que mon pointeur va pointer sur la cellule C13 ensuit partir la chercher aléatoirement dans la colonne O

étape 2
on a deux cas
si il la pas trouver il sort un message box "non trouver dans colonne O"
si il la trouver donc il va prendre( la valeur de son tonnage (dans la colonne I )- la valeur de son unité de lavage (colonne k)) est ensuite mettre le résultat dans la colonne R et dans la colonne I (remplacer l'ancien tonnage )
ensuite en passe a C14
remarque : le résultat de calcul sera placer das la même ligne que le tonnage et l'unité de lavage

étape 3
avant le lancement de chaque boucle de recherche aléatoire il faut vérifié est ce que la valeur de la cellule (colonne I ) > la valeur de la cellule (colonne k).

si oui on lance la boucle normalement donc on calcul ( la valeur de son tonnage (dans la colonne I )- la valeur de son unité de lavage (colonne k)) est ensuite on met le résultat dans la colonne R et dans la colonne I (pour remplacer l'ancien tonnage )
et ensuite en passe le pointeur a C14

si non on cherche un autre tonnage > la valeur de la cellule (colonne k) et qui a la même chaine de caractère (dans notre cas C13 )
et si tous les tonnage qui correspondent a la cellule C13 sont < 53 on passe directement a C14 et ainsi de suite

regarde l'image pour mieux comprendre l'exemple

et j'ai mis Aussi les fichier excel en piéce jointe

mercii

[parmi]

étape 1
je veux que mon pointeur va pointer sur la cellule C13 ensuit partir la chercher aléatoirement dans la colonne O

Pourquoi rechercher aléatoirement ?
Je ne comprends pas cette partie...

[Marc-L]

Salut !

Effectivement cela ne veut rien dire comme je l'ai déjà indiqué dans son autre discussion ‼

Et comme c'est resté sans réponse, je passe !

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[parmi]

Je n'ai pas vu l'autre discusion, mais pour ta macro de test aléatoire, change-la comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
    Dim R As Long
    
    Set Rng2 = Range("C13")
    Do While Not IsEmpty(Rng2.Value)
        R = Application.WorksheetFunction.RandBetween(2, 11)
        Rng2.Value = Range("O13").Offset(R, 0).Value
        Set Rng2 = Rng2.Offset(1, 0)
    Loop
End Sub

[bitissa1991]

voila un exemple

par exemple qu'on on pointe sur la cellule C13 on trouve Plat2 et si tu regarde dans le grand tableau dans la colonne O j'ai plusieurs Plat2 donc je veux que je puisse pointer sur un Plat2 parmi c'est Plat2 de la colonne O et faire ensuite le calcule (Tonnage-unité de lavage) du Plat2 sur le quel j'ai pointer .

une fois que j'ai fait le calcule je met le resultat dans la colonne R et je remplace I ET JE PASSE a C14 ....... jusqu'a C42

remarque si il trouve une case vide dans la colonne C il retourne a C13

ma boucle va de C13 jusqu'a C42 et elle recommence qu'on je clique sur le bouton simulation

merci pour la parti du test je vais la essai maintenant

je viens d'essai la boucle test elle a l'air de fonctionner psq elle ma mis aucune erreur et la je doit voir comment afficher les résultat sinon essay stp de réflichire sur ce que je t'est envoyer dans la discussion merciii PARMI

[parmi]

voila un exemple

par exemple qu'on on pointe sur la cellule C13 on trouve Plat2 et si tu regarde dans le grand tableau dans la colonne O j'ai plusieurs Plat2 donc je veux que je puisse pointer sur un Plat2 parmi c'est Plat2 de la colonne O et faire ensuite le calcule (Tonnage-unité de lavage) du Plat2 sur le quel j'ai pointer .

une fois que j'ai fait le calcule je met le resultat dans la colonne R et je remplace I ET JE PASSE a C14 ....... jusqu'a C42

remarque si il trouve une case vide dans la colonne C il retourne a C13

ma boucle va de C13 jusqu'a C42 et elle recommence qu'on je clique sur le bouton simulation

Ça ne m'explique pas pourquoi tu ne changes pas TOUS les plats2 plutôt qu'un seul aléatoirement.
De plus, même si tu sors un nombre aléatoire, pour le mettre en guise de ligne dans (Range("O13").Offset(R, 0)), ça ne veut pas dire que la ligne R contiendra Plat2 qui est en C13 (?!)
Et pourquoi plusieurs Plat2 en colonne C
Ça ne fait pas vraiment de sens sans connaître le comment du pourquoi ...

[bitissa1991]

c'est bon merci Parmi c'est résolu il reste juste quelque modifications a faire
merci

[bitissa1991]

BONJOUR les amis J'ai besoin de votre aide svp pour résoudre ce probléme

ce que je veux faire c'est pouvoir tourner les boucles de mon code VBA quand la celulle B7 recoit la valeur de B1 . parceque maintenant mes boucle tourne lorsque la cellule T7 reçoit sa la valeur B1 .

donc si vous pouvez m'aidez regardez svp le fichier excel et vous aller voir que les colonnes X ,I , R et la celulle B3 changent lorsque la valeur T7 reçoit sa la valeur B1. et moi je veux pas ca je veux que les colonne X ,I , R et la celulle B3 se remplissent lorsque B7 recoit la valeur de B1 .
regardez le fichier excel svp pour comprendre ce que je veux faire merci beaucoup

[Marc-L]

Conformément aux règles de ce forum, poster le code et indiquer le n° de la ligne incriminée …

[bitissa1991]

voila le code aidez moi svp

ce que je veux faire SVP c'est pouvoir tourner les boucles de mon code VBA quand la celulle B7 recoit la valeur de B1 . parceque maintenant mes boucle tourne lorsque la cellule T7 reçoit sa la valeur B1 .

donc si vous pouvez m'aidez regardez svp le fichier excel et vous aller voir que les colonnes X ,I , R et la celulle B3 changent lorsque la valeur T7 reçoit sa la valeur B1. et moi je veux pas ca je veux que les colonne X ,I , R et la celulle B3 se remplissent lorsque B7 recoit la valeur de B1 .

je vous met le fichier excel en piece jointe pour comprendre se que je vous faire j'ai vraiment besoin de votre aides les amis

l'auteur du code c'est un memebre du forum c'est thebenoit59 que je remercie beaucoup

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
Option Explicit
Option Base 1
 
Public Satisfait As Boolean
 
Sub Choix_Aleatoire()
Dim f As Worksheet: Set f = Sheets("Interface")
Dim r, a, c
Dim d As Object: Set d = CreateObject("scripting.dictionary")
Dim i As Integer, j As Integer, n As Integer
 
'On enregistre chaque ligne ayant la même clé
r = f.[H13:Q51]
For i = LBound(r) To UBound(r)
    d(r(i, 8)) = d(r(i, 8)) & i + 12 & ":"
Next i
 
'On boucle la colonne C
j = 13
Do While f.Cells(j, 3).Value <> ""
Recommence_la_boucle:
    'On vérifie que la valeur existe dans le dictionnaire sinon on quitte la procédure
    If Not d.exists(f.Cells(j, 3).Value) Then MsgBox f.Cells(j, 3).Value & " non trouvé dans la colonne O", 16: f.Cells(j, 3).Activate: Exit Sub
    'On remet les items dans un tableau
    a = Split(d(f.Cells(j, 3).Value), ":")
    'On choisit une ligne au hasard dans le tableau
    n = a(Int(((UBound(a) - 1) * Rnd)))
    'Revenir au début si la ligne ne peut pas rester positive
    If f.Cells(n, "i").Value - f.Cells(n, "k").Value < 0 Then GoTo Recommence_la_boucle
    'On calcule la valeur en colonne R et on remplace également en colonne I
    f.Cells(n, "r").Value = f.Cells(n, "i").Value - f.Cells(n, "k").Value
    f.Cells(n, "i").Value = f.Cells(n, "r").Value
    'On note le poste choisi en colonne F pour exemple
    f.Cells(j, "f").Value = "Ligne " & n
    'On incrémente et on boucle
    j = j + 1
Loop
    'Vérifie si toutes les valeurs ont été bouclées
    Satisfait = True
End Sub
 
Sub Plaque5_Cliquer()
Dim UniteLavage As Long
Dim d As Object
Dim i As Integer, j As Integer, c As Variant
Dim Nbre_Total_Boucl As Integer
Dim Rng1, Rng2 As Range
Dim Nb_Boucle As Integer
Dim Arret As Boolean
'Dim compt As Integer
'compt = 1
 
recomencer:
 
Do Until Range("B3").Value = Range("B4").Value
 
    Satisfait = False
    With Sheets("Interface")
 
        'On vérifie s'il existe une valeur en B1
        If .[b1] = "" Then MsgBox "Insérer une valeur en B1", 16: Exit Sub
        'On enregistre la variable UniteLavage
        UniteLavage = .[b1]
        'On applique la valeur à la ligne 7
 
 
'code pour le lancement des passe dans le tunel
    Arret = False: Nb_Boucle = 0
    'Do Until compt = 2
    If Range("B1").Value <> "" Then 'vérifie que B1 n'est pas vide
        Nbre_Total_Boucl = Columns(3).Find("*", , , , , xlPrevious).Row - 12
        Do While Arret = False
            DoEvents
            'Range("B7:T7").Value = "" 'réinitialise ton "tableau"
            i = 2 'valEUr de Ma première colonne du tableau
            Application.Wait Time + TimeSerial(0, 0, 2) 'attends 10 sec
 
            Do Until Range("T7") <> "" Or Arret = True 'conditionne la boucle jusqu'à la dernière colonne de ton tableau
 
                If i > 2 Then Cells(7, i - 1).Value = Range("B1") 'mettre la valeur de B1 dans les cellule precedente
                Cells(7, i).Value = Range("B1").Value 'mets ta valeurs dans la cellule de ton tableau
                i = i + 1 'prochaine colonne
                Application.Wait Time + TimeSerial(0, 0, 2) 'attends 10 sec
                DoEvents
            Loop
            Range("B3") = Range("B3") + Range("T7")
 
            'If Range("B7") <> "" Then
 
 
            'boucle sur la colonne X
            Set Rng1 = Columns(24).Cells.Find(Range("C13").Offset(Nb_Boucle, 0).Value)
 
            If Rng1 Is Nothing Then
                MsgBox Range("C13").Offset(Nb_Boucle, 0).Value & " non trouvé en colonne X"
           Else
            Rng1.Offset(1, 0).Value = Rng1.Offset(1, 0).Value + Range("B7").Value
            'End If
            End If
            Nb_Boucle = Nb_Boucle + 1
            If Nb_Boucle = Nbre_Total_Boucl Then Exit Do
        Loop
    Else
        MsgBox "B1 est vide !"
 
    End If
        '.Range("b7:t7").Value = UniteLavage
            'On démarre la procédure de choix aléatoire
            Choix_Aleatoire
            'Si Satisfait n'est pas atteint on quitte
            If Not Satisfait Then Exit Sub
        'On détermine la quantité de chaque Plat
        i = .[c65000].End(xlUp).Row
        Set d = CreateObject("scripting.dictionary")
            'On boucle la colonne C
            For j = 13 To i
                'On incrémente chaque Plat pour déterminer le nombre de chaque
                d(.Cells(j, 3).Value) = d(.Cells(j, 3).Value) + 1
            Next j
            For Each c In d.keys: d(c) = d(c) * UniteLavage: Next c
        'On boucle la colonne X
            'For j = 2 To 13 Step 2
            'If d.exists(.Cells(j, "x").Value) Then .Cells(j, "x").Offset(1).Value = d(.Cells(j, "x").Value)
           ' Next j
        'On ajoute la valeur à B1
        .[B3] = WorksheetFunction.Sum([x2:x13])
    End With
    Loop
    'compt = compt + 1
 
End Sub

merci