Bonjour à tous,
Je cherche à récupérer le nom du champ dans lequel est ma cellule active
Pourquoi dans cette Macro :
Sub RetourMenu()
Dim c As Range, Noms As Range, Nom As Range
With Sheets("Fonctions")
Set Noms = .[IMPRESSIONS].Resize(, 1)
For Each c In Noms
If Left(c.Offset(, 1), 11) = "=Procédure!" Then
If Not Intersect(Range(c.Value), ActiveCell) Is Nothing Then
Set Rg = Range(c.Value)
Exit For
End If
End If
Next c
ActiveSheet.PageSetup.PrintArea = [Rg].Address
Range("Nom").Value = [Rg].Name
' Application.Goto Reference:=["=VLOOKUP([Rg].Name,TABLE,2,FALSE)"],
Scroll:=True
End Sub
Après cette instruction Range("Nom").Value = [Rg].Name
J’obtiens l’adresse de Rg au lieu de son nom ?
Ceci est fâcheux pour l’instruction suivante où je veux grâce à un
recherchev sur la cellule définie par ma TABLE, où est l’erreur ?
@+ j'espère
--
Jean-Paul V
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
tissot.emmanuel
Bonjour,
Vite lu, mais si Rg est une cellule nommé alors tu peux obtenir son nom avec:
Rg.Name.Name
Cordialement,
Manu,
"Jean-Paul V" a écrit dans le message de news:
Bonjour à tous, Je cherche à récupérer le nom du champ dans lequel est ma cellule active Pourquoi dans cette Macro :
Sub RetourMenu() Dim c As Range, Noms As Range, Nom As Range With Sheets("Fonctions") Set Noms = .[IMPRESSIONS].Resize(, 1) For Each c In Noms If Left(c.Offset(, 1), 11) = "=Procédure!" Then If Not Intersect(Range(c.Value), ActiveCell) Is Nothing Then Set Rg = Range(c.Value) Exit For End If End If Next c ActiveSheet.PageSetup.PrintArea = [Rg].Address Range("Nom").Value = [Rg].Name
' Application.Goto Reference:=["=VLOOKUP([Rg].Name,TABLE,2,FALSE)"], Scroll:=True End Sub Après cette instruction Range("Nom").Value = [Rg].Name J'obtiens l'adresse de Rg au lieu de son nom ? Ceci est fâcheux pour l'instruction suivante où je veux grâce à un recherchev sur la cellule définie par ma TABLE, où est l'erreur ? @+ j'espère -- Jean-Paul V
Bonjour,
Vite lu, mais si Rg est une cellule nommé alors tu peux obtenir son nom
avec:
Rg.Name.Name
Cordialement,
Manu,
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message
de news: 239F0D70-2E27-4C6F-B95E-0C6745508B16@microsoft.com...
Bonjour à tous,
Je cherche à récupérer le nom du champ dans lequel est ma cellule active
Pourquoi dans cette Macro :
Sub RetourMenu()
Dim c As Range, Noms As Range, Nom As Range
With Sheets("Fonctions")
Set Noms = .[IMPRESSIONS].Resize(, 1)
For Each c In Noms
If Left(c.Offset(, 1), 11) = "=Procédure!" Then
If Not Intersect(Range(c.Value), ActiveCell) Is Nothing Then
Set Rg = Range(c.Value)
Exit For
End If
End If
Next c
ActiveSheet.PageSetup.PrintArea = [Rg].Address
Range("Nom").Value = [Rg].Name
' Application.Goto
Reference:=["=VLOOKUP([Rg].Name,TABLE,2,FALSE)"],
Scroll:=True
End Sub
Après cette instruction Range("Nom").Value = [Rg].Name
J'obtiens l'adresse de Rg au lieu de son nom ?
Ceci est fâcheux pour l'instruction suivante où je veux grâce à un
recherchev sur la cellule définie par ma TABLE, où est l'erreur ?
@+ j'espère
--
Jean-Paul V
Vite lu, mais si Rg est une cellule nommé alors tu peux obtenir son nom avec:
Rg.Name.Name
Cordialement,
Manu,
"Jean-Paul V" a écrit dans le message de news:
Bonjour à tous, Je cherche à récupérer le nom du champ dans lequel est ma cellule active Pourquoi dans cette Macro :
Sub RetourMenu() Dim c As Range, Noms As Range, Nom As Range With Sheets("Fonctions") Set Noms = .[IMPRESSIONS].Resize(, 1) For Each c In Noms If Left(c.Offset(, 1), 11) = "=Procédure!" Then If Not Intersect(Range(c.Value), ActiveCell) Is Nothing Then Set Rg = Range(c.Value) Exit For End If End If Next c ActiveSheet.PageSetup.PrintArea = [Rg].Address Range("Nom").Value = [Rg].Name
' Application.Goto Reference:=["=VLOOKUP([Rg].Name,TABLE,2,FALSE)"], Scroll:=True End Sub Après cette instruction Range("Nom").Value = [Rg].Name J'obtiens l'adresse de Rg au lieu de son nom ? Ceci est fâcheux pour l'instruction suivante où je veux grâce à un recherchev sur la cellule définie par ma TABLE, où est l'erreur ? @+ j'espère -- Jean-Paul V
Jean-Paul V
Bonjour Emmanuel
Merci ça marche, il suffisait de bégayer Name.Name -- Jean-Paul V
"tissot.emmanuel" wrote:
Bonjour,
Vite lu, mais si Rg est une cellule nommé alors tu peux obtenir son nom avec:
Rg.Name.Name
Cordialement,
Manu,
"Jean-Paul V" a écrit dans le message de news:
Bonjour à tous, Je cherche à récupérer le nom du champ dans lequel est ma cellule active Pourquoi dans cette Macro :
Sub RetourMenu() Dim c As Range, Noms As Range, Nom As Range With Sheets("Fonctions") Set Noms = .[IMPRESSIONS].Resize(, 1) For Each c In Noms If Left(c.Offset(, 1), 11) = "=Procédure!" Then If Not Intersect(Range(c.Value), ActiveCell) Is Nothing Then Set Rg = Range(c.Value) Exit For End If End If Next c ActiveSheet.PageSetup.PrintArea = [Rg].Address Range("Nom").Value = [Rg].Name
' Application.Goto Reference:=["=VLOOKUP([Rg].Name,TABLE,2,FALSE)"], Scroll:=True End Sub Après cette instruction Range("Nom").Value = [Rg].Name J'obtiens l'adresse de Rg au lieu de son nom ? Ceci est fâcheux pour l'instruction suivante où je veux grâce à un recherchev sur la cellule définie par ma TABLE, où est l'erreur ? @+ j'espère -- Jean-Paul V
Bonjour Emmanuel
Merci ça marche, il suffisait de bégayer Name.Name
--
Jean-Paul V
"tissot.emmanuel" wrote:
Bonjour,
Vite lu, mais si Rg est une cellule nommé alors tu peux obtenir son nom
avec:
Rg.Name.Name
Cordialement,
Manu,
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message
de news: 239F0D70-2E27-4C6F-B95E-0C6745508B16@microsoft.com...
Bonjour à tous,
Je cherche à récupérer le nom du champ dans lequel est ma cellule active
Pourquoi dans cette Macro :
Sub RetourMenu()
Dim c As Range, Noms As Range, Nom As Range
With Sheets("Fonctions")
Set Noms = .[IMPRESSIONS].Resize(, 1)
For Each c In Noms
If Left(c.Offset(, 1), 11) = "=Procédure!" Then
If Not Intersect(Range(c.Value), ActiveCell) Is Nothing Then
Set Rg = Range(c.Value)
Exit For
End If
End If
Next c
ActiveSheet.PageSetup.PrintArea = [Rg].Address
Range("Nom").Value = [Rg].Name
' Application.Goto
Reference:=["=VLOOKUP([Rg].Name,TABLE,2,FALSE)"],
Scroll:=True
End Sub
Après cette instruction Range("Nom").Value = [Rg].Name
J'obtiens l'adresse de Rg au lieu de son nom ?
Ceci est fâcheux pour l'instruction suivante où je veux grâce à un
recherchev sur la cellule définie par ma TABLE, où est l'erreur ?
@+ j'espère
--
Jean-Paul V
Merci ça marche, il suffisait de bégayer Name.Name -- Jean-Paul V
"tissot.emmanuel" wrote:
Bonjour,
Vite lu, mais si Rg est une cellule nommé alors tu peux obtenir son nom avec:
Rg.Name.Name
Cordialement,
Manu,
"Jean-Paul V" a écrit dans le message de news:
Bonjour à tous, Je cherche à récupérer le nom du champ dans lequel est ma cellule active Pourquoi dans cette Macro :
Sub RetourMenu() Dim c As Range, Noms As Range, Nom As Range With Sheets("Fonctions") Set Noms = .[IMPRESSIONS].Resize(, 1) For Each c In Noms If Left(c.Offset(, 1), 11) = "=Procédure!" Then If Not Intersect(Range(c.Value), ActiveCell) Is Nothing Then Set Rg = Range(c.Value) Exit For End If End If Next c ActiveSheet.PageSetup.PrintArea = [Rg].Address Range("Nom").Value = [Rg].Name
' Application.Goto Reference:=["=VLOOKUP([Rg].Name,TABLE,2,FALSE)"], Scroll:=True End Sub Après cette instruction Range("Nom").Value = [Rg].Name J'obtiens l'adresse de Rg au lieu de son nom ? Ceci est fâcheux pour l'instruction suivante où je veux grâce à un recherchev sur la cellule définie par ma TABLE, où est l'erreur ? @+ j'espère -- Jean-Paul V