Remplissage des cellules d'une colonne en fonction d'un pourcentage

Bonjour,

Je viens à vous car je souhaiterais remplir les cellules d'une colonne automatiquement par "1" ou "2" en fonction d'une cellule ou il y'aura écrit un pourcentage.

Je m'explique en gros dans ma cellule si je met 60%, j'aimerais qu'il me remplisse au hasard 60% des cellules d'une colonne prédéfinie, de "1" et le reste de "2"

Quelqu'un pourrait m'aider ?

Cordialement

Salut Delsart59,

Version VBA

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim iNb%
'
Application.EnableEvents = False
'
iNb = CInt((20 * Range("A1").Value) / 100)
Range("B1:B" & iNb).Value = 1
Range("B" & iNb + 1 & ":B20").Value = 2
'
Application.EnableEvents = True
'
End Sub

Version formule

=SI(LIGNE(A1)<=ENT((20*$A$1)/100);1;2)

A+

7delsart59.xlsm (14.01 Ko)
Rechercher des sujets similaires à "remplissage colonne fonction pourcentage"