Besoin d'aide pour une macro Résolu

Question

Bonjour à tous,

Voila je souhaite réaliser une macro me permettant de mettre un nom bien précis, dans la plage allant de L2 jusqu'à la dernière ligne sur plusieurs onglet d’où ma boucle allant de "DEBUT" jusqu'à "FIN".Cependant le nom que je souhaite mettre sur cette plage dépend essentiellement du nom de la feuille active. Pouvez vous m'appuyer sur cette macro selon le code que j'ai commencé à écrire, en rappelant que je suis novice en VBA et que j'essaye seulement de progresser et de comprendre mes erreurs afin de ne pas les refaire. Merci d'avance pour toute aide 

Sub insert_formule()


Sheets("DEBUT").Select

    Do
        ActiveSheet.Next.Select
        If ActiveSheet.Name = "DEBUT" Then
    Exit Do
        End If
        

        

Dim i As Integer, DernLigne As Variant, Selection As Variant


DernLigne = Range("L" & Rows.Count).End(xlUp).Row
        i = 2

ActiveSheet.Range("L:L").Select

For Selection = i To DernLigne

Do While DernLigne > i

If ActiveSheet.Name = "AAA" Then Selection.Range = "STRUCTURE"

If ActiveSheet.Name = "AAB" Then Selection.Range = "STRUCTURE1"

If ActiveSheet.Name = "AAC" Then Selection.Range = "STRUCTURE2"

If ActiveSheet.Name = "AAD" Then Selection.Range = "STRUCTURE3"

If ActiveSheet.Name = "AAE" Then Selection.Range = "STRUCTURE4"



Range("L1").Name = "ETB"
Exit Do



Loop Until ActiveSheet.Next.Name = "FIN"



End Sub

ThauTheme · Answer

Bonjour Eldyviah, bonjour le forum,

Pas sûr d'avoir bien compris... Peut-être comme ça :

Sub insert_formule()
Dim O As worksheeet 'déclare la variable O (Onglets)
Dim DL As Long 'déclare la variable DL (Derniere Ligne)

For Each O In Sheets 'boucle sur tous les onglets O du classeur
    If Not O.Name = "DEBUT" And Not O.Name = "FIN" Then 'condition : si l'onglet ne s'appelle ni "DEBUT" ni "FIN"
        DL = O.Cells(Application.Rows.Count, 12).End(xlUp).Row 'définit la dernière ligne éditée Dl de la colonne 12 (=L) de l'onglet O
        Select Case O.Name 'agit en fonction du nom de l'onglet
            Case "AAA" 'cas
                O.Range("L2:L" & DL).Name = "STRUCTURE" 'action
            Case "AAB" 'cas
                O.Range("L2:L" & DL).Name = "STRUCTURE1" 'action
            Case "AAC" 'cas
                O.Range("L2:L" & DL).Name = "STRUCTURE2" 'action
            Case "AAD" 'cas
                O.Range("L2:L" & DL).Name = "STRUCTURE3" 'action
            Case "AAE" 'cas
                O.Range("L2:L" & DL).Name = "STRUCTURE4" 'action
        End Select 'fin de l'action en fonction du nom de l'onglet O
        O.Range("L1").Name = "ETB" 'nomme la cellule Li
    End If 'fin de la condition
Next O 'prochain onglet de la boucle
End Sub

Pierre1310 · Answer

Salut,

Peux-tu me fournir un exemple avec ton document excel que je puisse t'aider?
Vas sur le site cijoint.com, fais moi un exemple et envois moi le lien.
Je regarderai ça après mangé.

Besoin d'aide pour une macro

2 réponses

Discussions similaires

Newsletters