Sub Nom_cell() Dim MaPlage As Range 'plage ou travailler Set MaPlage = Range("A1:A10") ' boucle sur la plage de cellules For Each cell In MaPlage cell.Select ' recuperation du contenu de la cellule valeur = cell.Value ' test si commence par "PA" ( en majuscule ou minuscule) If UCase(Left(valeur, 2)) = "PA" Then 'coordonnées de la cellule Cellule = "R" & cell.Row & "C" & cell.Column ' "Nomage de la cellule ActiveWorkbook.Names.Add Name:=valeur, RefersToR1C1:="=Feuil1!" & Cellule End If Next 'prochaine cellule de la plage End Sub
Set MaPlage = Range("A1:A10")
ActiveWorkbook.Names.Add Name: =valeur, RefersToR1C1:="=Feuil1!R5C2"
Cellule = "R" & cell.Row & "C" & cell.Column ActiveWorkbook.Names.Add Name:=valeur, RefersToR1C1:="=Feuil1!" & Cellule
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Tu ferais un bon professeur (mais tu l'es peut-être dèjà!).