Discussion :

[Hocked]

Bonjour,

J'ai une feuille nommée "Tableau général" comme suit :

Pièce jointe 186815

Je souhaite que la cellule P2 du tableau ci-dessus prenne automatiquement la valeur de la "date de dernière visite d'entretien" de la feuille véhicule "CLIO 3 - CK-469-BW" suivante, soit la valeur de la cellule A18 pour l'exemple ci-dessous :

Pièce jointe 186814

Le problème est qu'il s'agit donc de prendre en compte la valeur de la date la plus récente de la colonne "DATE INTERVENTION" (colonne A) dans la feuille véhicule ayant le mot REVISION dans la colonne "NATURE OPERATION" (colonne G) et dont le nom de la feuille correspond à la colonne "MODELE - IMMAT" (colonne C) de la feuille "Tableau général" sachant que mes "feuilles véhicules" sont toutes nommées selon la même configuration suivante : MODELE - IMMAT (colonne C) de la feuille "Tableau général" = Nom de la feuille véhicule correspondante, soit pour la première ligne, ma feuille véhicule correspondante s'appelle " CLIO 3 - CK-469-BW".

J'espère avoir été suffisamment clair pour que vous puissiez m'aider à trouver un code VBA qui mettrait à jour automatiquement ma feuille "Tableau général" sur les données des colonnes P, Q et R.

Merci d'avance de votre soutien.

Cordialement.

[Hocked]

Bonsoir,

J'ai essayé ce code; mais cela ne fonctionne pas :

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_Activate()
 
Dim Nom As String, c1 As Range
Dim strNomFeuille As String
Dim DateOR1 As String
Dim KmsMod1 As String
Dim NatureOperation1 As String
Dim start_Mod1 As String
Dim destination1 As String
Dim ligne As Variant
 
destination1 = "='" & Feuil1.Name & "'!"
 
    For Each c1 In Range("NameFeuil")
    Nom = c1.Value
    strNomFeuille = Nom
        If Not FeuilleInexistante(strNomFeuille) = False Then
            'la référence à la feuille "Modèle"
            start_Mod1 = "='" & c1.Name & "'!"
            DateOR1 = start_Mod1 & Cells(12, 20).Address
            KmsMod1 = start_Mod1 & Cells(12, 19).Address
            NatureOperation1 = start_Mod1 & Cells(12, 21).Address
            ligne = Cells.Find(Nom, , xlValues).Row
            With Sheets(destination1)
                .Cells(ligne, 15).Formula = DateOR1
                .Cells(ligne, 16).Formula = KmsMod1
                .Cells(ligne, 17).Formula = NatureOperation1
            End With
        End If
      Next c1
End Sub

Existerait-il une âme charitable pour m'aider à venir à bout de ce problème ?

Merci à tous les bons samaritains.

Cordialement.

[vinc_bilb]

Bonjour,

La pièce jointe ..... ne l'est pas donc difficile de regarder plus en avant

Pièce jointe spécifié(e) non valide. Si vous suivez un lien valide, veuillez notifier l'administrateur