Discussion :

[Alex'92]

Bonjour à tous,
Je débute tout juste dans le VBA pour le projet que je suis en train de faire, et sur lequel je galère depuis maintenant une semaine. Je vous expose donc mon problème :
J'ai un fichier excel qui contient un tableau dont les informations, situées en ligne, étant N° de demande, société, adresse, téléphone, N° d'affaire, etc.. Lorsque l'on remplit le tableau, chaque ligne correspondra donc à une nouvelle demande avec les informations sur cette demande.
L'objectif de mon programme est que, dès qu'un nouveau numéro de demande est tapée dans une ligne de la colonne N° de demande, un fichier référence(inclut en masqué dans le classeur) s'ouvre automatiquement avec le nom de ce numéro de demande : Fiche N°... (partie déjà réalisé avec une procédure Worksheet_change). Puis, au fur et à mesure que l'utilisateur complète les cellules suivantes de la ligne, ces informations sont automatiquement complétées dans le fichier référence ouvert dans les cellules appropriées.
J'espère mettre bien fait comprendre.
Pouvez vous donc me donner des pistes ou me dire de quelle manière procéder pour atteindre cet objectif?
Merci d'avance

[MlNOU]

Bonjour,


Peux-tu nous envoyer le code que tu as deja fais ? ( en une semaine tu dois bien avoir 2,3 trucs a nous montrer ).



Cordialement MlNOU.

[Alex'92]

'Lorsque un nombre est entré dans une cellule de la colonne des N° de demandes, une FIT s'ouvre automatiquement avec le N° de demande correspondant.
'Au fur et à mesure que les informations sont entrées manuellement dans le tableau, la FIT se remplie.

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
Application.ScreenUpdating = False
 
 
Dim Valeur As String   'La variable Valeur va contenir le nombre que l'on tape dans la cellule utilisée de la colonne N°de demande.
Dim KeyCells As Range  'La variable KeyCells définie les cellules pour lesquelles l'ouverture d'une FIT référence se déclenchera.
 
Set KeyCells = Range("A3:A203")
Valeur = Target.Value
If Valeur = "" Then Exit Sub
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
Call Ouverture_FIT(Valeur)
'Si la valeur contenue dans l'une des KeyCells est modifiée, et différente du vide, on apelle la procédure Ouverture_FIT.
Else: Exit Sub
End If
 
End Sub
 
Sub Ouverture_FIT(Valeur As String)
 
Sheets("FIT").Visible = True
Sheets("FIT").Select
Sheets("FIT").Copy Before:=Sheets(1)
Sheets("FIT").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("FIT (2)").Name = "FIT N°demande " & Valeur
Sheets("FIT N°demande " & Valeur).Range("I17").Value = Valeur
'Ouvre une FIT à partir de la FIT référence cachée et y remplit le numéro de demande.
 
End Sub

Voici donc mon code, qui permet de générer le fichier FIT lorsqu'un nouveau numéro de demande est ajouté.

[MlNOU]

Re Bonjour,


Il ne manque que les balises et ce sera parfait ( oui c'est c**** mais sinon tu vas te faire disputer ).




Cordialement MlNOU.

[Alex'92]

Les balises ? Qu'est ce que c'est ?? (pardon mais j'apprend le VBA depuis seulement une semaine je connais pas encore grand chose..)

Et comment faire pour que au fur et à mesure que l'utilisateur remplie la ligne du tableau, les informations se remplissent dans la FIT générée?

[MlNOU]

Re,

Lorsque tu ecris ton code dans le forum tu as un petit # sur une barre au dessus qui permet de mettre ton code entre balise ce qui le rend plus lisible et conforme aux regles du forum .


Cordialement MlNOU.

[Alex'92]

Oui en effet j'ai vu ça, désolé !

[pastis.vi]

Bonjour Alex, MiNOU,

Alex, je n'ai pas bien saisi ce que tu cherches réellement à faire (à quel sujet on peut t'aider).
Si c'est copier les données au fur et à mesure que l'utilisateur renseigne la feuille de référence alors il faut que tu procèdes de la même manière que ce que tu as fait avec un Worksheet_change. Tu utilise une nouvelle plage pour chaque information différente

[MlNOU]

Bonjour,

Bon on peut commencer , d'abord tu peux supprimer tes

Code :

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

.select

sinon les supers champions du VBA vont etre tres fachés ^^. Et pour remplir la feuille FIT je pense qu'une fonction :

Code :

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

Sheets("origine").Cells(X, "C").Copy Sheets("destination").Cells(X, "B")

Voila en ésperant repondre à ta question.

Cordialement MlNOU.

[pastis.vi]

T'as pas oublié le = MiNOU?

Code :

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

Sheets("origine").Cells(X, "C").Copy = Sheets("destination").Cells(X, "B")

Pour info Alex, le .Cells est de la forme suivante: Cells(ligne, colonne)

[Philippe Tulliez]

Bonjour,

sinon les supers champions du VBA vont etre tres fachés ^^.

Ce n'est pas qu'ils vont être fâchés mais la programmation demande de la rigueur et si l'on ne précise pas les objets parents d'un range (tu as oublié d'ailleurs de préciser le classeur) tu risques la catastrophe, comme par exemple d'écrire dans une feuille ou un classeur (c'est à dire la feuille et le classeur actif) qui n'était pas prévu dans tes plans.

En plus grave imagine que tu veuilles casser un mur porteur et que tu dises je vais mettre poutrelle métallique sinon l'architecte va être fâché il ne le sera pas mais il te dira que si tu veux mourir, tu peux y aller.

[Alex'92]

Merci de vos réponses,

Pastis.vi, j'essaie de faire celà seulement ça ne marche pas, la procédure ne prend en compte que la première instruction et pas les suivantes.
En gros pour ce code :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Application.ScreenUpdating = False
 
 
Dim Valeur2 As String
Dim KeyCells2 As Range
Dim Valeur As String    'La variable Valeur va contenir le nombre que l'on tape dans la cellule utilisée de la colonne N°de demande.
Dim KeyCells As Range   'La variable KeyCells définie les cellules pour lesquelles l'ouverture d'une FIT référence se déclenchera.
 
Set KeyCells = Range("A3:A203")
Valeur = Target.Value
If Valeur = "" Then Exit Sub
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
Call Ouverture_FIT(Valeur)
'Si la valeur contenue dans l'une des KeyCells est modifiée, et différente du vide, on apelle la procédure Ouverture_FIT.
Else: Exit Sub
End If
 
Set KeyCells2 = KeyCells.Offset(0, 1)
Valeur2 = Target.Value
If Valeur2 = "" Then Exit Sub
If Not Application.Intersect(KeyCells2, Range(Target.Address)) Is Nothing Then
Sheets("FIT N°demande " & Valeur).Range("D16").Value = Valeur2
Else: Exit Sub
End If
 
End Sub

le programme génère bien ma fiche comme il faut lorsqu'on entre une valeur dans une cellule de la colonne A, mais il ne se passe rien lorsque je remplis la cellule suivante B correspondante!

[MlNOU]

Re Bonjour ,

Alors non je n'ai pas oublié le = il n'y en a pas besoin .

Et pour les .select je sais que ça a tendance à énerver beaucoup de devellopeurs éxperimentés et pour le classeur oui je ne l'ai pas précisé par oubli car j'ai copier rapidement ce code sur un de mes fichiers, merci pour la remarque.

Et non je ne veux pas mourir par pitié je remettrais plus de .select promi ( un peu d'humour dans ce monde de brutes ).



Cordialement MlNOU

[Philippe Tulliez]

Bonjour,

Merci de vos réponses,
Pastis.vi, j'essaie de faire celà seulement ça ne marche pas, la procédure ne prend en compte que la première instruction et pas les suivantes.
En gros pour ce code :

le programme génère bien ma fiche comme il faut lorsqu'on entre une valeur dans une cellule de la colonne A, mais il ne se passe rien lorsque je remplis la cellule suivante B correspondante!

C'est normal puisque dans ta procédure événementielle, tu fais un Exit Sub si la valeur entrée dans la cellule ne se trouve pas dans le Range("A3:A203") (lignes 15 à 18)

[Alex'92]

Evidemment ! ^^ Je pense que ça devrait aller et marcher cette fois alors !
Merci beaucoup à vous pour votre aide

[MlNOU]

N'oubli pas le petit résolu si tu n'as plus de soucis, ça fait toujours très plaisir à tout le monde .




Cordialement MlNOU.

[Alex'92]

Justement, il m'en reste encore un ...
Voici mon programme final :

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Application.ScreenUpdating = False
 
Dim Contact As String
Dim Société As String
Dim Adresse As String
Dim Téléphone As String
Dim DemandéPar As String
Dim ChargéA As String
Dim Echéances As String
Dim Statut As String
Dim Affaire As String
Dim KeyCells2 As Range
Dim KeyCells3 As Range
Dim KeyCells4 As Range
Dim KeyCells5 As Range
Dim KeyCells6 As Range
Dim KeyCells7 As Range
Dim KeyCells8 As Range
Dim KeyCells9 As Range
Dim KeyCells10 As Range
Dim Valeur As String    'La variable Valeur va contenir le nombre que l'on tape dans la cellule utilisée de la colonne N°de demande.
Dim KeyCells As Range   'La variable KeyCells définie les cellules pour lesquelles l'ouverture d'une FIT référence se déclenchera.
 
Set KeyCells = Range("A3:A203")
Valeur = Target.Value
If Valeur = "" Then
End If
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
Call Ouverture_FIT(Valeur)
'Si la valeur contenue dans l'une des KeyCells est modifiée, et différente du vide, on apelle la procédure Ouverture_FIT.
Else:
End If
 
Set KeyCells2 = KeyCells.Offset(0, 1)
Contact = Target.Value
If Contact = "" Then
End If
If Not Application.Intersect(KeyCells2, Range(Target.Address)) Is Nothing Then
Call Remplissage_FIT(Valeur, Contact, Société, Adresse, Téléphone, DemandéPar, Affaire, ChargéA, Echéances)
Else:
End If
 
Set KeyCells3 = KeyCells.Offset(0, 2)
Société = Target.Value
If Société = "" Then
End If
If Not Application.Intersect(KeyCells3, Range(Target.Address)) Is Nothing Then
Call Remplissage_FIT(Valeur, Contact, Société, Adresse, Téléphone, DemandéPar, Affaire, ChargéA, Echéances)
Else:
End If
 
Set KeyCells4 = KeyCells.Offset(0, 3)
Adresse = Target.Value
If Adresse = "" Then
End If
If Not Application.Intersect(KeyCells4, Range(Target.Address)) Is Nothing Then
Call Remplissage_FIT(Valeur, Contact, Société, Adresse, Téléphone, DemandéPar, Affaire, ChargéA, Echéances)
Else:
End If
 
Set KeyCells5 = KeyCells.Offset(0, 4)
Téléphone = Target.Value
If Téléphone = "" Then
End If
If Not Application.Intersect(KeyCells5, Range(Target.Address)) Is Nothing Then
Call Remplissage_FIT(Valeur, Contact, Société, Adresse, Téléphone, DemandéPar, Affaire, ChargéA, Echéances)
Else:
End If
 
Set KeyCells6 = KeyCells.Offset(0, 5)
DemandéPar = Target.Value
If DemandéPar = "" Then
End If
If Not Application.Intersect(KeyCells6, Range(Target.Address)) Is Nothing Then
Call Remplissage_FIT(Valeur, Contact, Société, Adresse, Téléphone, DemandéPar, Affaire, ChargéA, Echéances)
Else:
End If
 
Set KeyCells7 = KeyCells.Offset(0, 6)
ChargéA = Target.Value
If ChargéA = "" Then
End If
If Not Application.Intersect(KeyCells7, Range(Target.Address)) Is Nothing Then
Call Remplissage_FIT(Valeur, Contact, Société, Adresse, Téléphone, DemandéPar, Affaire, ChargéA, Echéances)
Else:
End If
 
Set KeyCells8 = KeyCells.Offset(0, 7)
Echéances = Target.Value
If Echéances = "" Then
End If
If Not Application.Intersect(KeyCells8, Range(Target.Address)) Is Nothing Then
Call Remplissage_FIT(Valeur, Contact, Société, Adresse, Téléphone, DemandéPar, Affaire, ChargéA, Echéances)
Else:
End If
 
Set KeyCells10 = KeyCells.Offset(0, 9)
Affaire = Target.Value
If Affaire = "" Then
End If
If Not Application.Intersect(KeyCells10, Range(Target.Address)) Is Nothing Then
Call Remplissage_FIT(Valeur, Contact, Société, Adresse, Téléphone, DemandéPar, Affaire, ChargéA, Echéances)
Else:
End If
 
 
 
End Sub
 
 
Sub Ouverture_FIT(Valeur As String)
 
Sheets("FIT").Visible = True
Sheets("FIT").Copy Before:=Sheets(1)
Sheets("FIT").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("FIT (2)").Name = "FIT N°demande " & Valeur
Sheets("FIT N°demande " & Valeur).Range("I17").Value = Valeur
'Ouvre une FIT à partir de la FIT référence cachée et y remplit le numéro de demande.
 
End Sub
 
 
 
Sub Remplissage_FIT(Valeur As String, Contact As String, Société As String, Adresse As String, Téléphone As String, DemandéPar As String, Affaire As String, ChargéA As String, Echéances As String)
 
Sheets("FIT N°demande " & Valeur).Range("D16").Value = Contact
Sheets("FIT N°demande " & Valeur).Range("D18").Value = Société
Sheets("FIT N°demande " & Valeur).Range("D20").Value = Adresse
Sheets("FIT N°demande " & Valeur).Range("D22").Value = Téléphone
Sheets("FIT N°demande " & Valeur).Range("I15").Value = DemandéPar
Sheets("FIT N°demande " & Valeur).Range("I21").Value = ChargéA
Sheets("FIT N°demande " & Valeur).Range("I23").Value = Echéances
Sheets("FIT N°demande " & Valeur).Range("I19").Value = Affaire
 
End Sub

Seulement lorsque je rentre un numéro de demande, le message d'erreur 9 "l'indice n'appartient pas à la sélection" apparait, et je ne comprend pas pourquoi ni comment le résoudre!
Une idée s'il vous plait ?

(Ce message d'erreur apparait pour la ligne 130)

[Alex'92]

En gros si je comprend bien, dès que la valeur entrée dans l'une des cellules est un peu longue (par exemple un N° de demande : 1300709279) ça bug et le message s'affiche. Par contre si j'essaie en mettant 50 pour chaque cellule tout se passe bien et la FIT se remplit au fur et a mesure convenablement.
Savez vous comment résoudre ce problème?

[EngueEngue]

C'est un string... ça ne change rien merci Minou pour ton aide..

Ton indice n'appartient pas veut dire que ta feuille n'éxiste pas. Vérifie bien qu'elle existe.

[Alex'92]

Ma feuille existe bien puisqu'elle est créée sans problème au début de mon programme, et je l'appelle de la même manière à l'endroit où ça bug, je ne comprend donc pas....