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

[ARTURO83]

Bonjour,

Je ne suis pas sûr d'avoir tout bien compris en lisant votre code, mais faute de plus de précisions, je peux vous proposer ceci pour le principe, à vous de l'adapter à vos besoins.

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
Sub Valider()
    Dim ligne As Integer
    Dim f1 As Worksheet, f2 As Worksheet
    Dim CellVide As Boolean
    Set f1 = Sheets("Formulaire")
    Set f2 = Sheets("Archives")
    CellVide = False
    ligne = 2
 
    If f1.Range("I28").Value = 0 Then
        For i = 2 To 96
            If f2.Cells(ligne, 3).Value <> "" Then
                f2.Range(f2.Cells(ligne, 3), f2.Cells(ligne, 7)).Value = f1.Range(f1.Cells(ligne + 6, 3), f1.Cells(ligne + 6, 7)).Value
            Else
                CellVide = True
            End If
            ligne = ligne + 1
        Next i
    Else
        CellVide = True
    End If
    If CellVide = True Then MsgBox "Tous les champs ne sont pas correctement renseignés"
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Cdlt

[Pierre Fauconnier]

Salut

Pas certain non plus d'avoir tout compris, mais au vu du code, je ne peux que te conseiller de travailler avec des tableaux structurés. Tu y gagneras tant en Excel qu'en VBA.

Peux-tu préciser ton besoin?

Tu pourrais peut-être t'inspirer de ma contribution qui explique le transfert de données entre un formulaire et une table de données.