Question très bizarre

Bonjour le forum

voila j'ai une question très très bizarre

j'ai deux fichier:

• un fichier ou j'ai toutes mes macro (mes macro je les ai fait commencer a partir de 2015 jusqu'en 2017)
• un fichier ou je vais coller mes macro (qui s’appelle TBT)

cependant j'ai plusieurs contrat (plusieurs fichier excel).

la première colonne de mon fichier tbt il y a le nom du contrat (mais certain contrat commence en 2013 et d'autre en 2015) et je ne vois pas comment je pourrais faire pour ne pas changer tout le temps mon code par rapport aux dates

(pour ceux contrat je met de 2015 a 2017 pour l'autre contrat je met 2013 a 2014 puis pour l'autre 2013 a 2018 etccc)

j'ai le même problème pour le nom des feuille

ma premier fichier excel porte le nom de sinistre1, le deuxieme sinistreabc , le troisieme sinistre822...

merciii pour votre aide

Aude,

Je pense que toutes tes données sont en dur et qu'il faudrait les remplacer par des variables mais sans ton fichier, impossible à dire !

Girodo,

merci pour ta réponse

malheureusement je ne peux pas transmettre les fichier

comment sa "en dur"

Sans fichier ta question est purement incompréhensible... Essaies de créer un nouveau fichier avec des données anonymes...

Quand on parle de données en "DUR" ce sont des valeurs inscrites directement dans ton code VBA.

Par exemple :

Range("A1").value = 2

La case A1 va prendre la valeur 2 car la valeur est inscrite tel quelle dans le code.

On peut remplacer ça par une variable.

AnnéeActuelle = Year(Now)

Range("A1").value = AnnéeActuelle

Ici il y a deux étapes. D'abord on donne une valeur à notre variable "AnnéeActuelle"

Ensuite on rempli A1 avec cette valeur. Il faudrait à mon avis passer par cela pour résoudre ton pb. Pour aller plus loin pour t'aider il me faudra ton fichier... (A la limite par message privé si tu ne veux pas le diffuser sur le forum.)

Bonne journée,

je suis en train de faire un fichier de la même forme

le premier fichier et la ou j'ai effectuer toute mes macro

le deuxième est celui ou je veux coller ceux que les macro mont envoyer

voici un des code que j'ai effectuer

Sub NOMBRE_DE_SINISTRES_DECLARES()

    Dim Date_Souscription_Adhésion As Range, Date_Survenance As Range
    Dim DernLigne As Long
    Dim nblignes(1 To 12, 2013 To 2017) As Long
    Dim i, j, k As Integer
    Dim a, b, c, d, e As Integer

    With Worksheets("Sinistre_Historique_ICICDDE01_8")
        DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        Set Date_Souscription_Adhésion = .Range("G2:G" & DernLigne)
        Set Date_Survenance = .Range("U2:U" & DernLigne)
    End With

    a = LBound(nblignes, 2)
    e = UBound(nblignes, 2)

    For i = 2 To DernLigne
       If a <= Year(Cells(i, 21).Value) And Year(Cells(i, 21).Value) <= e Then
            j = Month(Cells(i, 7).Value)
            k = Year(Cells(i, 7).Value)
            nblignes(j, k) = nblignes(j, k) + 1
        End If
    Next i

    For i = 1 To 12
        For k = a To e
            Sheets("Feuil4").Cells(i + 1 + (k - 2013) * 12, 3).Value = nblignes(i, k)
        Next k
    Next i

bonjour

question de base : à quoi sert la macro ? ne peut-on pas faire de même avec un bête TCD ?

nota : tes tableaux n'ont pas d'intitulés de champ (en-têtes de colonnes)

au début j utiliser des tcd mais mon tuteur veut que je le fasse en vba (pas le choix )

ils ont pas d'en tete parce que les entête sont déjà sur la feuille ou je veux coller justement les sorti des macro

si VBA obligatoire (idée bizarre) je passe la parole à plus qualifiés que moi dans ce domaine

merci qd mm