Bonjour à toutes et à tous,
Je vous souhaite un beau WE
Je bute (comme d'hab lol) sur ce qui suit :
J'ai fait ce code :
VB:
Sub plage()
With ActiveWorkbook.ActiveSheet 'With Worksheets("SuivisAppels") 'Nom feuille au besoin
With .Range("a2:a" & .Range("a65536").End(xlUp).Row).Select
End With
End With
End Sub
ça fonctionne 'euréka )
Je voudrais donner un nom de plage et je n'y arrive pas malgré mes recherches et tests
Auriez-vous la solution ?
Je vous remercie ... une fois de plus et je ne les compte plus lol
Amicalement,
lionel,
Sub plage()
With ActiveSheet 'With Worksheets("SuivisAppels") 'Nom feuille au besoin
With .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
.Select
.Name = "MaPlage"
End With
End With
End Sub
Sub plage()
Dim plage, cel, a
With ActiveWorkbook.ActiveSheet 'With Worksheets("SuivisAppels") 'Nom feuille au besoin Set plage = .Range("a2:a" & .Range("a65536").End(xlUp).Row) '.Select
With plage
For Each cel In plage
a = cel.Value
Next
End With
End With
End Sub
Merci à vous pour m'avoir répondu
J'ai du mal m'expliquer lol
Mon code fonctionne très bien mais simplement je voudrais remplacer mon code par une plage nommée dans le gestionnaire de noms et que ça sélectionne les lignes non vides comme le fait le code.
@chris : utiliser un tableau structuré m'obligerait à refaire tous mes classeurs de travail que j'utilise depuis bientôt 10 ans et vu les complexités de mes fichiers, je n'aurai ni le temps et ni (peut-être) le courage de le faire
lionel,
Sub plage()
With ActiveSheet 'With Worksheets("SuivisAppels") 'Nom feuille au besoin
With .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
.Select
.Name = "MaPlage"
End With
End With
End Sub