Création d'un bouton

[nico.sibille]

Bonjour,

Je reviens vers vous car j'aurai besoin de créer un seul bouton en remplacement de tout ceux que j'ai.

Je m'explique: EN C5 et C6 puis en C9 et C10 puis en C13 et C14... C169 et C170. J'ai une formule où je double clique sur cette case et cela me donne une valeur en D5 et D6...

Je souhaiterai créer un seul bouton qui ferait automatiquement tout ces doubles clics. Je vous envoie mon fichier ci-joint.

Est ce possible... pour ceux qui m'auront compris !

Merci beaucoup !

 

[nico.sibille]

Re : Création d'un bouton

SVP !!!

Cela n'est peut-etre pas possible ?

 

[13GIBE59]

Re : Création d'un bouton

Bonjour nico.sibille.

Ca doit être possible.
Essaie ça, sans garantie sur la syntaxe exacte. Mais je dois pas être loin...
Si ça bugue : essaie : ("C" & i , "C" & i+1)

Sub macro_a_lier_a_ton_bouton
For i = 5 To 169 Step 4
Set plage = ("C" & i : "C" & i+1)
Next i
plage.Select
For Each cell in Selection
 
If Target.Column > 16 Or Target.Row > 168 Then Exit Sub
Dim Li As Byte, Col As Byte
Randomize
Li = Target.Row
If Li Mod 4 = 1 Or Li Mod 4 = 2 Then
Col = Target.Column
If Col Mod 3 = 0 Then
If Target <> "" Then Cells(Li, Col + 1) = Int(Cells(Li, Col) * Rnd + 1)
End If
End If
Cancel = True
 
Next cell
End Sub

 

[JCGL]

Re : Création d'un bouton

Bonjour à tous,

Peux-tu essayer avec ce code dans un module :

Sub Aleatoire()
Dim Li As Byte, Col As Byte
Dim Target As Range
Dim Cancel As Boolean
Dim X As Byte

For X = 5 To 170
Randomize
If Cells(X, 3).Row Mod 4 = 1 Or Cells(X, 3).Row Mod 4 = 2 Then Cells(X, 4) = Int(Cells(X, 3) * Rnd + 1)
Next X
Cancel = True
End Sub

A+ à tous

 

[nico.sibille]

Re : Création d'un bouton

Merci JCGL ça marche c'est génial !

Il ne me reste plus qu'à le faire pour les 4 colonnes mais je devrais y arriver... sinon je referai appel à vous.

Merci beaucoup !

 

[nico.sibille]

Re : Création d'un bouton

En fait non, je ne comprend pas puisque dans ton macros, tu as pris tout le tableau en référence et pourtant cela ne s'applique qu'à la première.

Du coup je n'arrive pas à l'appliquer aux colonnes F, I, L et O...

Je suis vraiment encore loin de m'en sortir seul alors si tu repasse par là JCGL merci d'avance.

 

[JCGL]

Re : Création d'un bouton

Bonjour à tous,

Du coup je n'arrive pas à l'appliquer aux colonnes F, I, L et O...

Merci de confirmer les colonnes.
J'aurais plutôt pensé à G, J, M et P

A+ à tous

 

[JCGL]

Re : Création d'un bouton

Bonjour à tous,

Avec ce à quoi je pensais :

Sub Aleatoire()
Dim Li As Byte, Col As Byte
Dim Target As Range
Dim Cancel As Boolean
Dim X As Byte
Dim Y As Byte

For X = 5 To 170
For Y = 3 To 16 Step 3
Randomize
If Cells(X, 3).Row Mod 4 = 1 Or Cells(X, Y).Row Mod 4 = 2 Then Cells(X, Y + 1) = Int(Cells(X, Y) * Rnd + 1)
Next Y
Next X
Cancel = True
End Sub

A+ à tous

 

[nico.sibille]

Re : Création d'un bouton

Voilà, Merci JCGL !

C'est exactement ce que je voulais !

Merci merci merci ! Cela va me faciliter la tâche !

A bientôt !