Discussion :

[Rob's]

Bonsoir,

J'ai un soucis avec mon programme vba.
En effet, mon document comporte 3 feuilles (Synthese, TCD et FA) et un bouton intitulé "Nouvelle Saisie".

Quand j'appuie sur "Nouvelle Saisie", un userform s'ouvre et je rentre des données.
Cependant, je voudrais que ces données s'inscrivent dans la feuille "Synthese" ET dans la feuille "FA".
Je ne sais pas comment lui dire d'inscrire ces données dans ces 2 feuiles.

Actuellement, les données se positionne correctement dans "FA" mais pas au bon endroit dans "Synthese".

Voici le programme:

'Affectation des données dans la FA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sheets("FA").Activate
Sheets("Synthese").Activate
Cells(6, 2).Value = Qui
Cells(6, 4).Value = Qui_Initiales
Cells(6, 5).Value = Date_D
Cells(45, 2).Value = Date_D
Cells(7, 2).Value = Modeles
Cells(7, 7).Value = Qte
Cells(8, 2).Value = N°OF
Cells(9, 2).Value = Client
Cells(9, 7).Value = NC
Cells(13, 4).Value = Origine
Cells(17, 1).Value = Defaut
Cells(22, 2).Value = Decision

Quelqu'un pourrait il m'aider svp?

Merci d'avance

Rob's

[SfJ5Rpw8]

Bonjour,


Tout d'abord commence à rajouter la ligne , en haut de toutes tes pages de codes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Explicit

qui en t'obligeant à déclarer toutes tes variables te permettra d'éviter des erreurs ..


Il ne faut jamais utiliser les Objets Cells, Range , Row sans préciser la feuille et le classeur concerné pour éviter de nombreux bugs ...., supprime aussi tous ces Activate inutiles


pour écrire dans la feuille synthèse du classeur contenant ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With ThisWorkBook.Sheets("Synthese")
.Cells(6, 2).Value = "Qui"
'(...)
.Cells(22, 2).Value = "Decision"
End With

[EngueEngue]

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
With sheets("FA")
.Cells(6, 2).Value = Qui
.Cells(6, 4).Value = Qui_Initiales
.Cells(6, 5).Value = Date_D
.Cells(45, 2).Value = Date_D
.Cells(7, 2).Value = Modeles
.Cells(7, 7).Value = Qte
.Cells(8, 2).Value = N°OF
.Cells(9, 2).Value = Client
.Cells(9, 7).Value = NC
.Cells(13, 4).Value = Origine
.Cells(17, 1).Value = Defaut
.Cells(22, 2).Value = Decision
End with
 
With sheets("Synthese")
.Cells(6, 2).Value = Qui
.Cells(6, 4).Value = Qui_Initiales
.Cells(6, 5).Value = Date_D
.Cells(45, 2).Value = Date_D
.Cells(7, 2).Value = Modeles
.Cells(7, 7).Value = Qte
.Cells(8, 2).Value = N°OF
.Cells(9, 2).Value = Client
.Cells(9, 7).Value = NC
.Cells(13, 4).Value = Origine
.Cells(17, 1).Value = Defaut
.Cells(22, 2).Value = Decision
End with

[jijie]

ou encore

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
Dim Ws As Worksheet
 
For Each Ws In ThisWorkbook.Worksheets(Array("Synthese" ,"FA"))
 
With Ws
.Cells(6, 2).Value = "Qui"
.Cells(6, 4).Value = "Qui_Initiales"
.Cells(6, 5).Value = "Date_D"
.Cells(12, 2).Value = "Date_D"
.Cells(7, 2).Value = "Modeles"
.Cells(7, 7).Value = "Qte"
.Cells(8, 2).Value = "N°OF"
.Cells(9, 2).Value = "Client"
.Cells(9, 7).Value = " NC"
.Cells(13, 4).Value = "Origine"
.Cells(17, 1).Value = "Defaut"
.Cells(22, 2).Value = "Decision"
 
End With
Next Ws

[Rob's]

Bonjour à tous

Merci pour vos conseils et votre aide!

Le programme fonctionne très bien!

Bonne journée à vous tous

Rob's