Création de macro

[nico.sibille]

Bonjour, j'ai déjà fait appel à vos services mais ayant dû modifier des choses sur ma feuille, les macros forcément ne correspondent plus à ce queje veux.
J'ai voulu essayer de modifier certaines choses... mais j'avou je suis pas au top

En fait quand je double clique sur C5 je veux un résultat aléatoire en D5 compris entre 1 et C5 . Là pas de problème, la cellule n'a pas changé donc j'ai bien ce que je veux.

Mais je voudrais la même chose en C6, C9, C10...F5, F6...I5, I6...L5, L6...O5, O6... toutes les cellules en fond noir.

Merci.

 

[JNP]

Re : Création de macro

Re ,
Je vois que les vapeurs de moquettes se sont évaporées ...
Pour effacer les valeurs des cellules, il te suffit d'utiliser quelque chose comme

Cells(1, 1).ClearContents

Dans le cas qui t'interesse, je pense que c'est le résultat des aléatoires que tu veux effacer, soit

Sub Efface()
Dim I%, J%
For I = 5 To 168 Step 4
For J = 3 To 16 Step 3
Cells(I, J).ClearContents
Cells(I + 1, J).ClearContents
[COLOR=red][B]Cells(I, J + 1).ClearContents
Cells(I + 1, J + 1).ClearContents
[/B][/COLOR]Next J
Next I
End Sub

A +
Ajout : manquait la deuxième colonne