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.
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
Code:
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
Code:
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