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.