Récupération d'un numéro fichier
Mon premier sujet pour moi ! Je viens vers vous car je bloque sur une formule/vba ( je suis un débutant en excel) !
Je vous explique le contexte : je fourni un fichier que j'ai refais entièrement car l'original est complétement confidentiel. Pour être assez simple, c'est un fichier qui permet de gérer des chantiers.
Ma demande concerne une formule, en gros dans ma feuille "Table Chantier", je souhaite récupérer le N° du fichier contenue dans ma feuille "Récap chantier".
Mais ce numéro fichier, je dois le récupérer seulement lorsque le numéro de chantier est saisie dans mon tableau "récap chantier", de plus je veux qu'il soit garder en mémoire même lorsque le numéro est supprimé dans le tableau. ( Je ne sais pas si je peux le faire en formule ou bien en VBA)
Pourquoi je veux ceci, car le fichier est destiné à être modifié, donc je souhaite récupérer dans quel version pour la dernière fois le chantier a était saisi et sur quel numéro de chantier !
Merci à ceux qui vont pouvoir m'aider sur ce système qui m'aiderait à gagner du temps sur ce petit point !
J'ai oublié de mettre mon raisonnement et la formule tester dans le fichier... oups. Voici mon raisonnement
En gros : Si le N° Chantier est saisie dans la colonne A alors
récupérer le N° Fichier
et insérer le N° dans la colonne "diffusé sur:"
Sauf qu'il doit manquer des tests. Mon niveau en analyse et programmation est pas forcément bonne, désolé
Bonjour Fab, bonjour le forum,
En pièce jointe ton fichier modifié avec l'événementielle Change dans le composant Feuil1 (Récup Chantier) ci-dessous :
Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim TS As ListObject 'déclare la variable TS (Tableau Structuré)
Dim NF As Integer 'déclare la variable NF (Numéro de Fichier)
Dim R As Range 'déclare la variable R (Recherche)
If Target.Column <> 1 Then Exit Sub 'si le changement a lieu ailleurs que dans la colonne 1, sort de la procédure
Set OD = Worksheets("Table de Chantier") 'définit l'onglet destination OD
Set TS = OD.ListObjects(1) 'définit le tableau structuré TS
NF = Me.Range("B1").Value 'définit le numéro de fichier NF
'définit la recherche R (recherche dans la colonne 4 du tableau structuré TS la valeur entière de la cellule modifiée (la Cible))
Set R = TS.ListColumns(4).Range.Find(Target.Value, , xlValues, xlWhole)
's'il existe au moins une occurrence, renvoie le numéro de fichier NF dans la cellule de la première occurrence trouvée, colonne 5 de TS
If Not R Is Nothing Then TS.DataBodyRange(R.Row - TS.HeaderRowRange.Row, 5).Value = NF
End SubTu tapes un Numéro ID dans la colonne A et le numéro de fichier se copie automatiquement...
Le Fichier :
Et bien, un grand merci. Je vais analysez ça et je te fais un retour.
Merci pour les commentaires sur le code, ça permet de bien comprendre tout le fonctionnement !