Titre du sujet : Re: remplir un nombre de cellule en fonction de la valeur d'une autre
par JeanMarie le 08/09/2012 09:10:25
Bonjour febyce, Didier, le forum
Ci-joint un code que l'on place dans le thisworkBook du classeur pour une prise en compte dans toutes les feuilles du classeur
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Déclaration des variables
Dim I As Integer
'initialisation du générateur de nombre aléatoire
Randomize
'Supprime la prise en compte des événements
Application.EnableEvents = False
'La cellule modifiée faite elle partie des colonnes A,B,C,D,E
If Not Application.Intersect(Target, Range("A:F")) Is Nothing Then
'la saisie dans la cellule est-elle numérique
If IsNumeric(Target) Then
'Boucle sur le nombre de cellule
For I = 1 To Target
' "1" définie la Colonne A
'Ecriture dans la cellule de la valeur aléatoire
Cells(Target.Row, I) = (1000 * Rnd)
Next I
End If
End If
'Réactivation de la gestion des événements
Application.EnableEvents = True
End Sub
PS : je n'ai pas vu ta correction sur l'écriture sur la ligne du dessous
Je te laisse regarder ce que tu dois modifier dans la fonction Cells.
@+Jean-Marie
|
Didier FOURGEOT