1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Sub RecupDonnees()
Dim i As Integer, NbFeuillesDonnees As Integer
NbFeuillesDonnees = Worksheets.Count - 1
' Initialisation de la génération de nombres aléatoires
Randomize
With Sheets("Questionnaire")
' Gestion d'erreur, pour éviter un plantage si toutes les cellules
' sont vides au-delà de 3ème ligne, car l'intersection est alors vide.
On Error Resume Next
Intersect(.UsedRange, .UsedRange.Offset(NbFeuillesDonnees)).ClearContents
On Error GoTo 0
With .Range("A1")
Set ReceptionDonnees = .Offset(NbFeuillesDonnees)
For i = 1 To NbFeuillesDonnees
RecupFeuille i, .Offset(i - 1)
Next
End With
End With
End Sub |
Partager