Discussion :

[Invité]

Bonjour,

J'ai deux onglets (voir pièce jointe).

Dans l'onglet1, mon formulaire avec les champs (D7 à J7) que l'utilisateur doit remplir.

Ensuite, il y a des validations dans les champs:

L7: =SI(ESTVIDE(D7);"Erreur";"OK"),
M7: =SI(OU(ESTVIDE(E7);ET(E7="NON";ESTVIDE(F7));ET(E7="Oui";NON(ESTVIDE(F7))));"Erreur";"Ok"),
N7: =SI(OU(ESTVIDE(G7);ET(G7="OUI";ESTVIDE(H7));ET(G7="NON";NON(ESTVIDE(H7))));"Erreur";"Ok"),
O7: =SI(ESTVIDE(I7);"Erreur";"OK"),
P7: =SI(ESTVIDE(J7);"Erreur";"OK"),
Q7: =NB.SI(L7:P7;"Erreur").


En cliquant sur le bouton "Soumettre", ce code VBA s'exécute:

Le problème c'est que mes données ne s'affichent pas dans l'onglet2 à la ligne3.
Pouvez-vous m'aider ? 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
 
Sub Valider()
Dim ligne As Integer
ligne = 2
 
If (Range("Q7").Value = 0) Then
 
While Sheets("Archives").Cells(ligne, 3).Value <> ""
   ligne = ligne + 1
Wend
 
'Msgbox ligne
 
Sheets("Archives").Cells(ligne, 3).Value = Range("D7")
Sheets("Archives").Cells(ligne, 3).Value = Range("E7")
Sheets("Archives").Cells(ligne, 3).Value = Range("F7")
Sheets("Archives").Cells(ligne, 3).Value = Range("G7")
Sheets("Archives").Cells(ligne, 3).Value = Range("H7")
Sheets("Archives").Cells(ligne, 3).Value = Range("I7")
Sheets("Archives").Cells(ligne, 3).Value = Range("J7")
 
Else
 
MsgBox "Tous les champs ne sont pas correctements renseignés"
 
End If
 
End Sub