Ajouter une valeur sur seulement 10% des cellules d'une colonne

 
Fichier Excel 2007 *.xlsm
sur mon-partage : https://mon-partage.fr/f/nRlA8iVD/
sur cjoint : http://www.cjoint.com/c/GGdmjUAJMby

Si ça ne marche toujours pas, lire la suite.

Feuil1

G1 : Sondage ; centré, sur fond brun
G2 à G21 : cellules vides ; centré, sur fond vert clair

G1 : bordure bas ; G1:G21 : bordure contour
G2:G21 : bordure milieu en trait fin

Selon l'exemple que j'ai choisi :

La plage G2:G21 fait 20 lignes, donc il y a 20 données ;
10 % de la colonne G = 10 % 20 = 2 cellules, choisies
au hasard, qui vont contenir "x" via Ctrl e.

Code VBA

Option Explicit

Sub Essai()
  Application.ScreenUpdating = False
  Dim lig1 As Long, lig2 As Long, nb1 As Long
  Dim nb2 As Long, p As Long, i As Long
  ' lig1 = 1ère ligne ; lig2 = dernière ligne (à adapter)
  lig1 = 2: lig2 = 21: nb1 = lig2 - lig1 + 1
  Range(Cells(lig1, 7), Cells(lig2, 7)).ClearContents
  ' nb2 = 10 % des emplacements de la colonne G ; mis dans
  ' une variable de type entier => arrondi => 1 de moins
  ' si le résultat est fractionnaire.
  Randomize: nb2 = nb1 * 0.1
  For i = 1 To nb2
    Do
      p = Int(20 * Rnd + lig1)
      If IsEmpty(Cells(p, 7)) Then Cells(p, 7) = "x": Exit Do
    Loop
  Next i
End Sub

Merci de me dire si ça te convient.