Numérotation, incrémentation et report de valeurs

Bonjour,

Tout d'abord, je tiens à remercier toutes les personnes de cette communauté pour leur soutien .

Je vous sollicite afin de m'aider à trouver des solutions pour la gestion d'un fichier où je dois créer des numérotations automatiques, reporter ces numérotations dans d'autres onglets du classeur.

J'ai préparé un fichier avec 3 onglets qui ont chacun des commentaires nécessaires pour plus de précisions.

Encore !!! !!!

Bonjour et bienvenue sur le forum

Difficile de tout comprendre en suivant tes explications sur des tableaux vides de toute données.

Peut-être avec des exemples précis de ce que tu as au départ et de ce que tu veux obtenir permettrait d'y voir plus clair ?

Bye !

Bonjour et Merci à toi GMB pour ton retour.

J'ai essayé d'apporter des informations supplémentaires tout en espérant que cela pourra aider.

Encore merci!

Bonsoir à tous,

SLTD, la méthode Autofill est ton amie

Pour t'aider à remplir le tableau située en feuille "Base de travail", tu boucles sur toutes ses lignes en t'appuyant sur ce bout de code

Sub test_autofill()
    With Sheets("Base de travail").Range("k11")
        .Value = "Action-2017-" & .Offset(, -3).Value & "-1"
        .AutoFill .Resize(, .Offset(, -1).Value)
    End With
End Sub

Sub test_autofill1()
Dim i As Long
    With Sheets("Base de travail")
        .Range(.Cells(3, 11), .Cells(11, 22)).ClearContents
        For i = 3 To 11
            If .Cells(i, 10).Value > 0 Then
                With .Cells(i, 11)
                    .Value = "Action-" & Year(Now) & "-" & .Offset(, -3).Value & "-1"
                    If .Offset(, -1).Value > 1 Then
                        .AutoFill .Resize(, .Offset(, -1).Value)
                    End If
                End With
            End If
        Next
    End With
End Sub

klin89

Bonjour à tous

Un essai concernant la feuille "Base de travail".

Une macro événementielle met à jour la ligne du tableau à titres bleus dès que tu valides une cellule de la colonne J

Pour les autres feuilles, désolé mais je ne comprends pas ce que tu attends.

Bye !

Bonjour à tous et merci beaucoup pour vos retours.

J'ai testé les 2 méthodes proposées et cela marche super bien. Merci.

Pour l'onglet Evénement, j'ai créer un 2ème onglet Evénement 2 car j'ai trouvé une formule sur d'autres forums, elle m'affiche la première valeur mais les autres ne s'affichent pas. J'arrive pas à trouver où se trouve l'erreur. Sachez aussi que ce fichier va vivre beaucoup, donc il risque d'y a voir beaucoup de lignes remplies.

Concernant l'onglet Action, je voudrais prendre les valeurs mentionnées ligne par ligne des colonnes K à V et les transposer dans la colonne A de l'onglet Action. Quand je le fais manuellement, je copie les valeurs de la ligne voulue, je fais coller dans la colonne A en utilisant Options de collage - Transposer (T). Cette action, je voudrais l'avoir en automatique via une formule ou VBA.

Encore une fois merci!

re SLTD,

A tester :

Option Explicit
Sub test()
Dim i As Long, dLig As Long
    Application.ScreenUpdating = False
    Sheets("Action").Range("a2").CurrentRegion.Offset(1).ClearContents
    With Sheets("Evénement").Range("a2").CurrentRegion.Offset(1)
        Union(.Columns("c"), .Columns("r"), .Columns("u:af")).ClearContents
    End With
    With Sheets("Base de travail")
        With .Range("j2").CurrentRegion.Offset(1)
            .Columns("b:m").ClearContents
        End With
        For i = 3 To 11
            If .Cells(i, 10).Value > 0 Then
                With .Cells(i, 11)
                    .Value = "Action-" & Year(Now) & "-" & .Offset(, -3).Value & "-1"
                    If .Offset(, -1).Value > 1 Then
                        .AutoFill .Resize(, .Offset(, -1).Value)
                    End If
                End With
                .Range(.Cells(i, 11), .Cells(i, 22)).Copy
                Sheets("Action").Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial _
                        Paste:=xlPasteValues, Transpose:=True
            End If
            If .Cells(i, 6).Value = "D" Then
                dLig = Sheets("Evénement").Cells(Rows.Count, 3).End(xlUp)(2).Row
                Sheets("Evénement").Cells(dLig, 3).Value = "FX-" & Year(Now) & "-" & .Cells(i, 8).Value
                Sheets("Evénement").Cells(dLig, 18).Value = .Cells(i, 10).Value
                .Range(.Cells(i, 11), .Cells(i, 22)).Copy
                Sheets("Evénement").Cells(dLig, 21).PasteSpecial _
                        Paste:=xlPasteValues
            End If
        Next
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

klin89