Demande d'aide VBA

Bonjour,

Voici un fichier simplifié de mon problème.


J’aimerais utiliser une macro simple afin d’avoir la liste des colonnes A et B dans les onglets correspondants.

Sachant que je n’ai pas toujours le même nombre de lignes par années.

J’ai essayé avec do – loop until en incrémentant des instr mais je n’y arrive pas (chercher dans une cellule l’année de référence (par exemple 2010) puis une fois la cellule trouver, copier toutes les lignes suivantes dans l’onglet correspondant jusqu'à ce que l’on trouve dans une cellule l’année de référence suivante (2011 dans ce cas)).

J’espère avoir été assez clair.

Pouvez-vous m’aider svp ?

Merci,

Tu n'as même pas fait un exemple de code dans ton fichier ?

1) Tu peux utiliser la commande Right("Référence année - 2010",4) pour extraire les 4 dernier caractères de la chaine.

2) Worksheets("2010").Range("A" & y).Value = Worksheets("Initial").Range("A" & y).Value

Tu vois un peu le genre. J'espère que cela va te débloquer.

Bonsoir,

Voici un code pour commencer.
L'année de référence est repérée grace au texte "Année de référence". Si ce texte est détecté dans une cellule de la colonne A, on relève les 4 derniers caractères de la chaine pour avoir l'année.
On dispose ainsi du nom de la feuille dans laquelle on doit copier les données. La valeur des cellules suivantes est copiée dans la feuille correspondante, et ainsi de suite jusqu'à trouver à nouveau le texte "Année de référence".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Ventiler() Dim Plage As Range, Cel As Range Dim F As String With Worksheets("initial") Set Plage = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row) For Each Cel In Plage If Cel <> "" Then If InStr(Cel, "Année de référence") > 0 Then F = Right(Cel, 4) Else On Error Resume Next Cel.Resize(1, 2).Copy Worksheets(F).Range("A" & Rows.Count).End(xlUp).Offset(1, 0) On Error GoTo 0 End If End If Next Cel Set Plage = Nothing End With End Sub

---

cordialement.