Discussion :

[Invité]

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

[ARTURO83]

Bonjour,

Ceci vérifie dans un premier temps si la colonne Q contient bien des 0,( tous les cellules sont remplies), si ce n'est pas le cas , le message s'affiche et on quitte le programme, sinon l'ensemble est recopié dans la feuille archives.

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
Sub Valider()
    Dim ligne As Integer
    Dim f1 As Worksheet, f2 As Worksheet
    Set f1 = Sheets("Formulaire")
    Set f2 = Sheets("Archives")
    Application.ScreenUpdating = False
    ligne = f2.Range("A" & Rows.Count).End(xlUp).Row + 1
    'Vérifie si tous les champs sont bien remplis, si ce n'est pas le cas on sort de la procédure
    If Application.WorksheetFunction.CountIf(f1.Range("Q7:Q103"), ">0") > 0 Then
        MsgBox "Tous les champs ne sont pas correctements renseignés"
        Exit Sub
    End If
 
    f1.Range(f1.Cells(7, "C"), f1.Cells(103, "J")).Copy f2.Cells(ligne, "A")
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Cdlt

[Pierre Dumas]

Bonjour catherinemsproject

Tout d'abord, il vaut mieux ne pas multiplier les discussions pour un seul et même sujet. Les contributeurs n'aiment généralement pas perdre du temps à apporter des solutions dans une discussion quand elles ont déjà été apportées dans une discussion en parallèle.

Dans le code proposé, je me rends compte que les propositions de Pierre Fauconnier () ou de moi n'ont pas été reprises.

Sinon, dans mon dernier message sur l'autre discussion, il est possible de remplacer J7 par J103 et tout fonctionnera.

Belle journée

Pierre Dumas

[Pierre Fauconnier]

https://www.developpez.net/forums/d2...donnees-excel/