[VBA] nommer une partie de colonne Fermé

Question

Bonjour,
voilà mon problème: j'ai une ligne nommée header et l'autre footer.
et à chaque fois que dans header une cellule est non vide je nomme la colonne limitée par header et footer par la valeur de cette cellule.
Après avoir identifié la cellule non vide, c'est ici que je bloque.Plusieurs questions me viennent à l'esprit:
- j'aimerai selectionner la cellule non vide de header (ce que j'arrive à faire) mais est-il possible de rajouter une cellule dans une selection?
- et apès avoir selectionné comment la nommer
-pensez-vous que ma "méthode "est bonne?

voici une ébauche de mon programme:

Sub Macro1()

    Dim Header As Range
    Dim Footer As Range
    Dim Cellule As Range
    Set Header = Range("B4:R4")
    Set Footer = Range("B14:R14")
    Dim repere As Integer
    repere = 0
    For Each Cellule In Header
    repere = repere + 1
    
    If Not IsEmpty(Cellule) Then
    
        Cellule.Select
        
        
        
        
    
   
End Sub


merci d'avance pour votre aide.

badboy93120 · Answer

Sub Macro1()

    Dim Header As Range
    Dim Footer As Range
    Dim Cellule As Range
    Set Header = Range("A4:D4")
    Set Footer = Range("A14:D14")
    Dim diff As Integer
    Dim colonne As Range
    Dim test As Range
    Dim yo As Range
    Dim nom  As String
    Dim repere As Integer
    For Each Cellule In Header
        If Not IsEmpty(Cellule) Then
        repere = 0
        nom = Cellule.Value()
            Do
        
                repere = repere + 1
                Set test = Cells(Cellule.Row + repere, Cellule.Column)
                Set yo = Cells(Cellule.Row + repere + 1, Cellule.Column)
                Set colonne = Union(Cellule, test)
             Loop While Application.Intersect(yo, Footer) Is Nothing
        
        colonne.Select
        ActiveWorkbook.Names.Add Name:=nom, RefersTo:=Selection.Address
        End If
    Next Cellule
   
End Sub

badboy93120 · Answer

voila ce que j'ai fait mais apparement cela ne marche pas

badboy93120 · Answer

personne pour répondre?

[VBA] nommer une partie de colonne

3 réponses

Discussions similaires