etendre un code à une deuxième cellule avec "commandbutton"

[hervoul]

Bjr,
Tout est dit dans le titre (du moins j'ai essayé), sinon l'exemple joint est beaucoup plus clair....
merci
RVoul

 

[Dranreb]

Re : etendre un code à une deuxième cellule avec "commandbutton"

Bonjjour.
Comme ça :

Private Sub CommandButton2_Click()
Dim L As Long
For L = 9 To 10
If Cells(L, "G").Value = Cells(L, "C").Value * Cells(L, "E").Value Then
Cells(L, "I").Value = "exact"
Else
Cells(L, "I").Value = "faux"
End If
Next L
End Sub

Mais pourquoi ne l'exprimez vous pas une bonne fois pour toute par des formules ? La plus simple en I9 :

=G9=C9*E9

À +

Edit: Bonjour Pierrot

 

[Pierrot93]

Re : etendre un code à une deuxième cellule avec "commandbutton"

Nonjour,

pas ouvert ton fichier mais si tout est dans le titre, regarde peut être du coté de la propriété "offset", devrait répondre à ton problème... enfin à ton titre...

bonne journée
@+

Edition : bonjour Bernard

 

[hervoul]

Re : etendre un code à une deuxième cellule avec "commandbutton"

Merci à vous deux....
....

Mais pourquoi ne l'exprimez vous pas une bonne fois pour toute par des formules ? La plus simple en I9 :

....tout simplement parceque je bosse de manière totalement empirique et que je "bidouille" en essayant de comprendre ce que je fais....je prend les formules données sur le forum et je modifie en regardant ce que ça donne...
Efficace mais très long ! 🙂
merci encore et bon dimanche !
RVoul

 

[hervoul]

Re : etendre un code à une deuxième cellule avec "commandbutton"

hemmm, dernière question pour un dimanche...
...et pour les soustractions, comment faire pour ne pas avoir de résultats négatifs SVP?
merci beaucoup.
Fichier joint come d'hab!
RVoul

 

[Dranreb]

Re : etendre un code à une deuxième cellule avec "commandbutton"

Comme ça par exemple:

Private Sub CommandButton1_Click()
Dim L As Long, S As Long, M As Long
Randomize
For L = 9 To 10
   S = Int(Rnd * 100 + 2)
   M = Int(Rnd * (S - 1) + 1)
   Cells(L, "C").Value = S + M
   Cells(L, "E").Value = M
   Next L
End Sub

Ou bien on calcule le résultat positif à obtenir, qu'on ajoute au second nombre pour obtenir le 1er
À +

 

[kjin]

Re : etendre un code à une deuxième cellule avec "commandbutton"

Bonjour,

Dim x, op$

Private Sub CommandButton1_Click()
Range("C9:I28").ClearContents
x = InputBox("Combien d'opérations ?")
If Not IsNumeric(x) Or x > 20 Then
    x = ""
    Exit Sub
End If
op = InputBox("Opérateur ?")
Select Case op
    Case "+", "-", "*"
    Case Else
    Exit Sub
End Select
For i = 9 To x + 8
    Cells(i, 3) = Int(Rnd() * 12 + 1)
    Cells(i, 4) = op
    Select Case op
    Case "-"
        Cells(i, 5) = Int(Rnd() * Cells(i, 3) + 1)
    Case Else
        Cells(i, 5) = Int(Rnd() * 12 + 1)
    End Select
    Cells(i, 6) = "="
Next
End Sub

Private Sub CommandButton2_Click()
If x = "" Or op = "" Then Exit Sub
For i = 9 To x + 8
    y = Evaluate(Cells(i, 3) & op & Cells(i, 5)) = Cells(i, 7)
    With Cells(i, 9)
        If y Then
            .Value = "EXACT"
            .Font.ColorIndex = 10
        Else
            .Value = "FAUX"
            .Font.ColorIndex = 3
        End If
    End With
Next
End Sub

A+
kjin

 

[hervoul]

Re : etendre un code à une deuxième cellule avec "commandbutton"

whaoo génial....😀
Grand merci à tous !
et bon dimanche !
RVoul

 

[kjin]

Re : etendre un code à une deuxième cellule avec "commandbutton"

Re,

whaoo génial

Nous voilà bien renseignés ! 🙄
kjin