bonjour,
j'ai 26 feuilles nommées A, B, ...Z
dans chacunes de ces feuilles j'ai la colonne A qui est remplie
chaque feuille à un nombre différent de lignes..
Je voudrais par macro nommer les cellules de la feuille A - de A1 à
A(dernière ligne remplie) - liste_a
pareil pour la feuille B où la plage se nommera liste_b, et ainsi de suite
jusqu'a Z.
Sur Excellabo j'ai trouvé ceci :
With Range("A:D")
Range("A1:D" & .Find("machaine", .Item(1), , , ,
xlPrevious).Row).Select
ActiveWorkbook.Names.Add Name:="zaza",
RefersTo:=Selection.Address
End With
j'ai essayé de l'adapter mais je m'y casse les dents
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour SOCARA Strasbourg,
et ceci :
'---------------- Sub NommerColonneA()
Dim B As Long, Sh As Worksheet For Each Sh In Worksheets With Sh B = .Range("A65536").End(xlUp).Row .Range("A1:A" & B).Name = "Liste_" & Sh.Name End With Next Set Sh = Nothing
End Sub '------------------
Salutations!
"SOCARA Strasbourg" a écrit dans le message de news:bhd94t$hc9$ bonjour, j'ai 26 feuilles nommées A, B, ...Z dans chacunes de ces feuilles j'ai la colonne A qui est remplie chaque feuille à un nombre différent de lignes..
Je voudrais par macro nommer les cellules de la feuille A - de A1 à A(dernière ligne remplie) - liste_a pareil pour la feuille B où la plage se nommera liste_b, et ainsi de suite jusqu'a Z.
Sur Excellabo j'ai trouvé ceci :
With Range("A:D") Range("A1:D" & .Find("machaine", .Item(1), , , , xlPrevious).Row).Select ActiveWorkbook.Names.Add Name:="zaza", RefersTo:=Selection.Address End With
j'ai essayé de l'adapter mais je m'y casse les dents
Bonjour SOCARA Strasbourg,
et ceci :
'----------------
Sub NommerColonneA()
Dim B As Long, Sh As Worksheet
For Each Sh In Worksheets
With Sh
B = .Range("A65536").End(xlUp).Row
.Range("A1:A" & B).Name = "Liste_" & Sh.Name
End With
Next
Set Sh = Nothing
End Sub
'------------------
Salutations!
"SOCARA Strasbourg" <contact@socara.net> a écrit dans le message de news:bhd94t$hc9$1@news-reader2.wanadoo.fr...
bonjour,
j'ai 26 feuilles nommées A, B, ...Z
dans chacunes de ces feuilles j'ai la colonne A qui est remplie
chaque feuille à un nombre différent de lignes..
Je voudrais par macro nommer les cellules de la feuille A - de A1 à
A(dernière ligne remplie) - liste_a
pareil pour la feuille B où la plage se nommera liste_b, et ainsi de suite
jusqu'a Z.
Sur Excellabo j'ai trouvé ceci :
With Range("A:D")
Range("A1:D" & .Find("machaine", .Item(1), , , ,
xlPrevious).Row).Select
ActiveWorkbook.Names.Add Name:="zaza",
RefersTo:=Selection.Address
End With
j'ai essayé de l'adapter mais je m'y casse les dents
Dim B As Long, Sh As Worksheet For Each Sh In Worksheets With Sh B = .Range("A65536").End(xlUp).Row .Range("A1:A" & B).Name = "Liste_" & Sh.Name End With Next Set Sh = Nothing
End Sub '------------------
Salutations!
"SOCARA Strasbourg" a écrit dans le message de news:bhd94t$hc9$ bonjour, j'ai 26 feuilles nommées A, B, ...Z dans chacunes de ces feuilles j'ai la colonne A qui est remplie chaque feuille à un nombre différent de lignes..
Je voudrais par macro nommer les cellules de la feuille A - de A1 à A(dernière ligne remplie) - liste_a pareil pour la feuille B où la plage se nommera liste_b, et ainsi de suite jusqu'a Z.
Sur Excellabo j'ai trouvé ceci :
With Range("A:D") Range("A1:D" & .Find("machaine", .Item(1), , , , xlPrevious).Row).Select ActiveWorkbook.Names.Add Name:="zaza", RefersTo:=Selection.Address End With
j'ai essayé de l'adapter mais je m'y casse les dents
Willy Gruner
Salut Socara, Pour ta feuille1 : Dim LaPlageFeuille1 as Range Set LaPlageFeuille1 = Range("A1:A" & [A65536].End(xlUp).Row) Tu fais pareil pour les autres feuilles A+ Willy
Salut Socara,
Pour ta feuille1 :
Dim LaPlageFeuille1 as Range
Set LaPlageFeuille1 = Range("A1:A" & [A65536].End(xlUp).Row)
Tu fais pareil pour les autres feuilles
A+
Willy
Salut Socara, Pour ta feuille1 : Dim LaPlageFeuille1 as Range Set LaPlageFeuille1 = Range("A1:A" & [A65536].End(xlUp).Row) Tu fais pareil pour les autres feuilles A+ Willy
SOCARA Strasbourg
Comme d'habitude, rien à dire si ce n'est que c'est parfait !
Un grand merci.
"michdenis" a écrit dans le message de news:%
Bonjour SOCARA Strasbourg,
et ceci :
'---------------- Sub NommerColonneA()
Dim B As Long, Sh As Worksheet For Each Sh In Worksheets With Sh B = .Range("A65536").End(xlUp).Row .Range("A1:A" & B).Name = "Liste_" & Sh.Name End With Next Set Sh = Nothing
End Sub '------------------
Salutations!
"SOCARA Strasbourg" a écrit dans le message de news:bhd94t$hc9$
bonjour, j'ai 26 feuilles nommées A, B, ...Z dans chacunes de ces feuilles j'ai la colonne A qui est remplie chaque feuille à un nombre différent de lignes..
Je voudrais par macro nommer les cellules de la feuille A - de A1 à A(dernière ligne remplie) - liste_a pareil pour la feuille B où la plage se nommera liste_b, et ainsi de suite jusqu'a Z.
Sur Excellabo j'ai trouvé ceci :
With Range("A:D") Range("A1:D" & .Find("machaine", .Item(1), , , , xlPrevious).Row).Select ActiveWorkbook.Names.Add Name:="zaza", RefersTo:=Selection.Address End With
j'ai essayé de l'adapter mais je m'y casse les dents
Comme d'habitude, rien à dire si ce n'est que c'est parfait !
Un grand merci.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23s1iDXZYDHA.1744@TK2MSFTNGP12.phx.gbl...
Bonjour SOCARA Strasbourg,
et ceci :
'----------------
Sub NommerColonneA()
Dim B As Long, Sh As Worksheet
For Each Sh In Worksheets
With Sh
B = .Range("A65536").End(xlUp).Row
.Range("A1:A" & B).Name = "Liste_" & Sh.Name
End With
Next
Set Sh = Nothing
End Sub
'------------------
Salutations!
"SOCARA Strasbourg" <contact@socara.net> a écrit dans le message de
news:bhd94t$hc9$1@news-reader2.wanadoo.fr...
bonjour,
j'ai 26 feuilles nommées A, B, ...Z
dans chacunes de ces feuilles j'ai la colonne A qui est remplie
chaque feuille à un nombre différent de lignes..
Je voudrais par macro nommer les cellules de la feuille A - de A1 à
A(dernière ligne remplie) - liste_a
pareil pour la feuille B où la plage se nommera liste_b, et ainsi de suite
jusqu'a Z.
Sur Excellabo j'ai trouvé ceci :
With Range("A:D")
Range("A1:D" & .Find("machaine", .Item(1), , , ,
xlPrevious).Row).Select
ActiveWorkbook.Names.Add Name:="zaza",
RefersTo:=Selection.Address
End With
j'ai essayé de l'adapter mais je m'y casse les dents
Comme d'habitude, rien à dire si ce n'est que c'est parfait !
Un grand merci.
"michdenis" a écrit dans le message de news:%
Bonjour SOCARA Strasbourg,
et ceci :
'---------------- Sub NommerColonneA()
Dim B As Long, Sh As Worksheet For Each Sh In Worksheets With Sh B = .Range("A65536").End(xlUp).Row .Range("A1:A" & B).Name = "Liste_" & Sh.Name End With Next Set Sh = Nothing
End Sub '------------------
Salutations!
"SOCARA Strasbourg" a écrit dans le message de news:bhd94t$hc9$
bonjour, j'ai 26 feuilles nommées A, B, ...Z dans chacunes de ces feuilles j'ai la colonne A qui est remplie chaque feuille à un nombre différent de lignes..
Je voudrais par macro nommer les cellules de la feuille A - de A1 à A(dernière ligne remplie) - liste_a pareil pour la feuille B où la plage se nommera liste_b, et ainsi de suite jusqu'a Z.
Sur Excellabo j'ai trouvé ceci :
With Range("A:D") Range("A1:D" & .Find("machaine", .Item(1), , , , xlPrevious).Row).Select ActiveWorkbook.Names.Add Name:="zaza", RefersTo:=Selection.Address End With
j'ai essayé de l'adapter mais je m'y casse les dents
