Discussion :

[alex.a]

Bonjour,

Mon problème est le suivant:
J'ai deux classeurs:
CL1 qui liste des composants et leurs tx de défaillance.(feuille FL1)
Et Calcul-lambda-Res qui donne le detail des composant de type Res (Résistance), sur ce classeur j'ai une feuille pour chaque composant. Le nom du composant étant le nom de la feuille

Je voudrais renseigner (sur le classeur Calcul-lambda-Res) la valeur du tx de défaillance (FL1) de chaque composant sur les différentes feuilles.
c'est à dire que si le nom de l'onglet est dans la liste (FL1) alors on renseigne la valeur associée (en "L2" de la feuille correspondante) .

Mon code ne renseigne rien, et ne me renvois pas d'erreur
Avez-vous une idée?
Merci d'avance

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
Public Sub Ajout_CalculFides(NomCarte As String, Version As String)
   Application.ScreenUpdating = False
 
    Dim CL1 As Workbook
    Dim FL1 As Worksheet
 
On Error Resume Next
    Set CL1 = Workbooks("Recap-Calcul-Fides-" & NomCarte & ".xls")
    If Err.Number = 9 Then
        GoTo line1
    End If
line1:
 
    Windows(CL1).Activate
    Set FL1 = CL1.Worksheets("Recap-Fides")
    nb_lignes_totales = FL1.UsedRange.Rows.Count
 
    Workbooks("Calcul-lambda-Res-" & NomCarte).Activate
 
    Dim Feuille As Worksheet
    For Each Feuille In ThisWorkbook.Worksheets
 
    j = 8
 
    Do While nb_lignes_totales <> j
    If Feuille.Name = FL1.Range("A" & j).Value Then
    FL1.Range("E" & j).Select
    Worksheets("Feuille").Range("L2").Value = FL2.Range("E" & j)
    End If
    j = j + 1
    Loop
 
    Next Feuille
 
    Application.ScreenUpdating = True
End Sub

[alex.a]

voir la discussion suivante

http://www.developpez.net/forums/sho...d.php?t=334436