Discussion :

[minironaldo]

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,

[leinadjan]

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.

[gFZT82]

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 :

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
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.