Bonjour,

Ce code fonctionne parfaitement pour copier une ligne de l'onglet "Formulaire" à l'onglet "Archives"

Mais comment faire pour qu'il copie l'ensemble des données de l'onglet "Formulaires" (C7:J103) dans l'onglet "Archives" ?

Note:

Pour la vérification des données, à la colonne "Q", il y a un indicateur qui nous informe si les données sont conformes, il faut répéter ce processus aussi dans le code.

Pouvez-vous m'aider s'il vous plait ? Merci!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub Valider()
Dim ligne As Integer
ligne = 1
 
If (Range("Q7").Value = 0) Then
 
While Sheets("Archives").Cells(ligne, 2).Value <> ""
   ligne = ligne + 1
Wend
 
'Msgbox ligne
 
Sheets("Archives").Cells(ligne, 1).Value = Range("C7")
Sheets("Archives").Cells(ligne, 2).Value = Range("D7")
Sheets("Archives").Cells(ligne, 3).Value = Range("E7")
Sheets("Archives").Cells(ligne, 4).Value = Range("F7")
Sheets("Archives").Cells(ligne, 5).Value = Range("G7")
Sheets("Archives").Cells(ligne, 6).Value = Range("H7")
Sheets("Archives").Cells(ligne, 7).Value = Range("I7")
Sheets("Archives").Cells(ligne, 8).Value = Range("J7")
 
Else
 
MsgBox "Tous les champs ne sont pas correctements renseignés"
 
End If
 
End Sub