Discussion :

[Morrgaane]

Bonjour,

je vous explique mon problème,
je vais mettre à jour tous les mois des fiches recettes.
Toutes les recherches se réalisent grâce à des recherches V dans la base de données grâce au code produits. Dès qu'il y a une modification cela change dans les recettes, pas de problème.

Cependant il arrive que ce soit mon code qui change et là ... c'est le drame, les fiches recettes devienne obsolètes.
Dans le fichier Word = l'arborescence visuel des fichiers.

Dans un dossier nous avons la BDD + un fichier excel pour chaque famille de produit (environ 20)

dans les fichiers Excel "famille" nous avons plusieurs recettes de produits.

Dans le fichier "Achat",
j'ai répertorié la liste des ingrédients pour chaque recette dans chaque famille de produit
en A = le nom des classeurs
en B = le nom des onglets
en C = les codes produits

De plus grâce à deux textbox on a
en I2 : l'ancien code produits
en J2 : le nouveau code

Mon souhait serait que lorsqu'il y a un changement de code, j'aimerais que celui ce change automatiquement grâce à un bouton dans toutes les recettes où l'on retrouve le code.

Le code se situant toujours dans la colonne A ou H (exemple dans le classeur Famille3)

Exemple : Si on change le code 5 en 95
J'aimerais que ma macro va dans
- Mon classeur 'Famille1' dans l'onglet recette 4 et change tous les 5 en 95
idem pour
- Classeur "Famille2" dans les onglet recette 6,7,8,10
-Classeur "Famille3" dans les onglets recette 11,12,13,14

Si quelqu'un pourrait m'aider ca pourrait être super

Mercii

[BENNASR]

Bonjour
au départ je suis qu'un autodidacte et cette solution certain qualifiée de bricolage
à tester sur une copie de ton fichier original
IMPORTANT : fermez tous les classeurs à modifier avant le lancement de code ... n'est ouvert que le classeur achat

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
Sub MiseAjourCodeProduit()
Dim wkA As Workbook, wkB As Workbook
Dim F As Worksheet
Dim chemin As String, fichier As String
Dim j As Long
Dim w As Worksheet
Dim coll As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wkA = ThisWorkbook
chemin = "C:\Users\DELL\Desktop\"
Dim PlageDeRecherche  As Range
Set F = Sheets("BDD de recette")
Set PlageDeRecherche = F.Range("C2:C" & F.Range("C" & Rows.Count).End(xlUp).Row)
For Each C In PlageDeRecherche
If C = F.Range("I1").Value Then
fichier = F.Cells(C.Row, 1).Value
Onglet = F.Cells(C.Row, 2).Value
Workbooks.Open chemin & fichier
Set wkB = ActiveWorkbook
For Each w In wkB.Worksheets
If w.Name = F.Cells(C.Row, 2).Value Then
w.Columns(1).Replace What:=F.Range("I1").Value, Replacement:=F.Range("J1").Value, LookAt:=xlPart
End If
Next w
wkB.Close True
End If
Next C
Set wkA = Nothing
Set wkB = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

ne modifier que la colonne A ...tu peux ajouter la colonne H
ça suppose que tous les fichiers sont sous un meme répertoire ... dans l'exemple c'est sur mon bureau
faire tes test et on peux peut etre améliorer la solution
Bonne Continuation