Bonjour à Tous,
Ça fait plusieurs jours que je bloque sur l'automatisation d'un tache et ça m’empêche d'avancer... (j'ai fait beaucoup de recherche avant de poster, je suis désolé si le sujet a déjà été traité, je ne l'ai pas trouvé ou pas compris).
Je souhaite nommer des champs en ligne automatiquement sur une feuille et non en colonne.
J'ai récupéré le code ci dessous qui fonctionne pour nommer des champs en colonne mais je n'ai pas réussi à le modifier pour nommer en ligne
Sub NommerChamps()
For Each c In Range([A1], [IV1].End(xlToLeft))
If Not IsEmpty(c.Offset(1, 0)) Then
ActiveWorkbook.Names.Add Name:=c, RefersTo:="=" & Range(c.Offset(1, 0), c.End(xlDown)).Address
End If
Next
End Sub
Ce que je souhaiterais :
et si possible il faut que ça fasse référence à la feuille en cours:
Voila, si vous avez la solution à mon problème je serais vraiment très content.
Merci beaucoup pour votre aide
Ça fait plusieurs jours que je bloque sur l'automatisation d'un tache et ça m’empêche d'avancer... (j'ai fait beaucoup de recherche avant de poster, je suis désolé si le sujet a déjà été traité, je ne l'ai pas trouvé ou pas compris).
Je souhaite nommer des champs en ligne automatiquement sur une feuille et non en colonne.
J'ai récupéré le code ci dessous qui fonctionne pour nommer des champs en colonne mais je n'ai pas réussi à le modifier pour nommer en ligne
Sub NommerChamps()
For Each c In Range([A1], [IV1].End(xlToLeft))
If Not IsEmpty(c.Offset(1, 0)) Then
ActiveWorkbook.Names.Add Name:=c, RefersTo:="=" & Range(c.Offset(1, 0), c.End(xlDown)).Address
End If
Next
End Sub
Ce que je souhaiterais :
et si possible il faut que ça fasse référence à la feuille en cours:
Voila, si vous avez la solution à mon problème je serais vraiment très content.
Merci beaucoup pour votre aide
Pièces jointes
Dernière édition: