nommer une cellule suivant le texte d'une autre

[auverland]

Bonjour à tous

Pouvez-vous me dire si il est possible de nommer des cellules en fonction du texte present dans les cellules de la colonne précédente ?

j'ai trouvé cette solution :

Sub essai()
For i = 3 To Range("a65535").End(xlUp).Row + 1
ActiveWorkbook.Names.Add Name:="Total_" & Cells(i, 1), RefersToR1C1:="=Feuil1!R" & i & "C4"
Next i
End Sub

Cette commande reprend bien le texte présent dans la colonne A pour nommer les cellules de la colonne D

Mon soucis est lorsqu'il y a des cellules avec du texte séparé par des espaces ou des virgule ou caractere specifique. (./%,)
- quelle commande je peux ajouter pour remplacer tout cela par des tirés du bas sur toute la colonne de texte ?


deuxième soucis :
je souaiterais si une cellule de nom est vide qu'il prenne en nom la troisième colonne et non plus la premiere.
cela est-il possible ?

merci de votre aide et bonne journée
auverland

 

[vgendron]

Re : nommer une cellule suivant le texte d'une autre

Hello
j'ai pas trop le temps pour le moment de creuser.
mais une piste: pour remplacer les espaces par des tirets utilises la fonction "substitute" avant de créer le nom
et pour le deuxième point
tu mets une condition
if Cells(i, 1)<>0 then
add....
else add...avec le cells(i,2)