Discussion :

[Invité]

Bonjour,

Pouvez-vous m'aider à écrire une ligne de code qui permettrait de faire une boucle ?

Dans l'onglet "Formulaire", des données sont saisies et l'onglet "Archives" qui est sous forme de tableau BD recevra les données de l'onglet "Formulaire" lorsque l'utilisateur cliquera sur le bouton Soumettre du Formulaire.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
 
Sub Valider()
Dim ligne As Integer
ligne = 2
 
If (Range("I28").Value = 0) Then
 
    While Sheets("Archives").Cells(ligne, 3).Value <> ""
        ligne = ligne + 1
    Wend
 
    'MsgBox ligne
 
    Sheets("Archives").Cells(ligne, 3).Value = Range("C8")
    Sheets("Archives").Cells(ligne, 4).Value = Range("D8")
    Sheets("Archives").Cells(ligne, 5).Value = Range("E8")
    Sheets("Archives").Cells(ligne, 6).Value = Range("F8")
    Sheets("Archives").Cells(ligne, 7).Value = Range("G8")
 
    Sheets("Archives").Cells(ligne, 3).Value = Range("C9")
    Sheets("Archives").Cells(ligne, 4).Value = Range("D9")
    Sheets("Archives").Cells(ligne, 5).Value = Range("E9")
    Sheets("Archives").Cells(ligne, 6).Value = Range("F9")
    Sheets("Archives").Cells(ligne, 7).Value = Range("G9")
 
    Sheets("Archives").Cells(ligne, 3).Value = Range("C10")
    Sheets("Archives").Cells(ligne, 4).Value = Range("D10")
    Sheets("Archives").Cells(ligne, 5).Value = Range("E10")
    Sheets("Archives").Cells(ligne, 6).Value = Range("F10")
    Sheets("Archives").Cells(ligne, 7).Value = Range("G10")
 
jusqu'à 96
 
 
 
 
 
 
 
 
Else
 
MsgBox "Tous les champs ne sont pas correctement renseignés"
 
End If
 
MsgBox "Tous les champs ne sont pas correctement renseignés"
 
End Sub