[VBA] nommer une partie de colonne
badboy93120
Messages postés
25
Statut
Membre
-
badboy93120 Messages postés 25 Statut Membre -
badboy93120 Messages postés 25 Statut Membre -
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.
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.
Configuration: Windows XP Internet Explorer 6.0
3 réponses
-
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 -
voila ce que j'ai fait mais apparement cela ne marche pas
-
