Ensuite je copie une formule en a2 avec: ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(INDEX(Usine,MATCH(RC41,code,0),1)),"""",(INDEX(Usine,MATCH(RC41,code,0),1)))"
Ce que je voudrais c'est recopier cette formule en A jusqu'a la dernière cellule nommé de zone dynamique. En fait si la dernière cellule de ma zone Dynamique est en N 456, alors je copie la formule de A2 à A456
Ensuite je copie une formule en a2 avec:
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(INDEX(Usine,MATCH(RC41,code,0),1)),"""",(INDEX(Usine,MATCH(RC41,code,0),1)))"
Ce que je voudrais c'est recopier cette formule en A jusqu'a la dernière
cellule nommé de zone dynamique.
En fait si la dernière cellule de ma zone Dynamique est en N 456, alors je
copie la formule de A2 à A456
Pascal
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
c88d0e96-92fa-4952-a38f-b037094c4010@p11g2000yqe.googlegroups.com...
Bonjour,
Ensuite je copie une formule en a2 avec: ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(INDEX(Usine,MATCH(RC41,code,0),1)),"""",(INDEX(Usine,MATCH(RC41,code,0),1)))"
Ce que je voudrais c'est recopier cette formule en A jusqu'a la dernière cellule nommé de zone dynamique. En fait si la dernière cellule de ma zone Dynamique est en N 456, alors je copie la formule de A2 à A456
Bonjour Je cherche en VBA à atteindre la dernière cellule d'une zone nommée dynamiquement. Merci
MichDenis
Pour atteindre la dernière cellule d'une zone nommée valide pour toutes les versions d'excel Si la plage nommée se nomme toto
With Range("Toto") .Item(.rows.count,.columns.count).select End with
Pour recopier une formule sur la totalité d'une plage
Choix personnel : je ne travaille "jamais" avec des truc RC41 moi, j'ai besoin de quelque chose de plus parlant, et j'utilise l'objet "Range("A1")" pour faire référence à des cellules d'une feuille.
RC41 dans la macro proprosé représente la colonne "AP", au besoin tu n'auras qu'à adapter le 41 de la formule.
'---------------------------------------------- Sub test() Dim Rg As Range
With Feuil1 ' nom feuille à adapter Set Rg = .Range("A1:A" & .Range("A452").End(xlUp).Row) End With
"pb" a écrit dans le message de groupe de discussion : # Bonjour Je cherche en VBA à atteindre la dernière cellule d'une zone nommée dynamiquement. Merci
Pour atteindre la dernière cellule d'une zone nommée
valide pour toutes les versions d'excel
Si la plage nommée se nomme toto
With Range("Toto")
.Item(.rows.count,.columns.count).select
End with
Pour recopier une formule sur la totalité d'une plage
Choix personnel : je ne travaille "jamais" avec des truc RC41
moi, j'ai besoin de quelque chose de plus parlant, et j'utilise
l'objet "Range("A1")" pour faire référence à des cellules d'une
feuille.
RC41 dans la macro proprosé représente la colonne "AP", au besoin
tu n'auras qu'à adapter le 41 de la formule.
'----------------------------------------------
Sub test()
Dim Rg As Range
With Feuil1 ' nom feuille à adapter
Set Rg = .Range("A1:A" & .Range("A452").End(xlUp).Row)
End With
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
#78yLvEsJHA.5912@TK2MSFTNGP02.phx.gbl...
Bonjour
Je cherche en VBA à atteindre la dernière cellule d'une zone nommée
dynamiquement.
Merci
Pour atteindre la dernière cellule d'une zone nommée valide pour toutes les versions d'excel Si la plage nommée se nomme toto
With Range("Toto") .Item(.rows.count,.columns.count).select End with
Pour recopier une formule sur la totalité d'une plage
Choix personnel : je ne travaille "jamais" avec des truc RC41 moi, j'ai besoin de quelque chose de plus parlant, et j'utilise l'objet "Range("A1")" pour faire référence à des cellules d'une feuille.
RC41 dans la macro proprosé représente la colonne "AP", au besoin tu n'auras qu'à adapter le 41 de la formule.
'---------------------------------------------- Sub test() Dim Rg As Range
With Feuil1 ' nom feuille à adapter Set Rg = .Range("A1:A" & .Range("A452").End(xlUp).Row) End With
"pb" a écrit dans le message de groupe de discussion : # Bonjour Je cherche en VBA à atteindre la dernière cellule d'une zone nommée dynamiquement. Merci
MichDenis
correction d'une petite coquille :
| With Feuil1 ' nom feuille à adapter | Set Rg = .Range("A1:A" & .Range("A452").End(xlUp).Row) | End With
si tu connais l'étendue de la plage tu peux utiliser :
With Feuil1 ' nom feuille à adapter Set Rg = .Range("A1:A452") End With
Si tu ignores quelle est la dernière cellule de la colonne A ;
With Feuil1 ' nom feuille à adapter Set Rg = .Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row) End With
"MichDenis" a écrit dans le message de groupe de discussion : # Pour atteindre la dernière cellule d'une zone nommée valide pour toutes les versions d'excel Si la plage nommée se nomme toto
With Range("Toto") .Item(.rows.count,.columns.count).select End with
Pour recopier une formule sur la totalité d'une plage
Choix personnel : je ne travaille "jamais" avec des truc RC41 moi, j'ai besoin de quelque chose de plus parlant, et j'utilise l'objet "Range("A1")" pour faire référence à des cellules d'une feuille.
RC41 dans la macro proprosé représente la colonne "AP", au besoin tu n'auras qu'à adapter le 41 de la formule.
'---------------------------------------------- Sub test() Dim Rg As Range
With Feuil1 ' nom feuille à adapter Set Rg = .Range("A1:A" & .Range("A452").End(xlUp).Row) End With
"pb" a écrit dans le message de groupe de discussion : # Bonjour Je cherche en VBA à atteindre la dernière cellule d'une zone nommée dynamiquement. Merci
correction d'une petite coquille :
| With Feuil1 ' nom feuille à adapter
| Set Rg = .Range("A1:A" & .Range("A452").End(xlUp).Row)
| End With
si tu connais l'étendue de la plage tu peux utiliser :
With Feuil1 ' nom feuille à adapter
Set Rg = .Range("A1:A452")
End With
Si tu ignores quelle est la dernière cellule de la colonne A ;
With Feuil1 ' nom feuille à adapter
Set Rg = .Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
End With
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de groupe de discussion :
#6RtIwFsJHA.3444@TK2MSFTNGP04.phx.gbl...
Pour atteindre la dernière cellule d'une zone nommée
valide pour toutes les versions d'excel
Si la plage nommée se nomme toto
With Range("Toto")
.Item(.rows.count,.columns.count).select
End with
Pour recopier une formule sur la totalité d'une plage
Choix personnel : je ne travaille "jamais" avec des truc RC41
moi, j'ai besoin de quelque chose de plus parlant, et j'utilise
l'objet "Range("A1")" pour faire référence à des cellules d'une
feuille.
RC41 dans la macro proprosé représente la colonne "AP", au besoin
tu n'auras qu'à adapter le 41 de la formule.
'----------------------------------------------
Sub test()
Dim Rg As Range
With Feuil1 ' nom feuille à adapter
Set Rg = .Range("A1:A" & .Range("A452").End(xlUp).Row)
End With
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
#78yLvEsJHA.5912@TK2MSFTNGP02.phx.gbl...
Bonjour
Je cherche en VBA à atteindre la dernière cellule d'une zone nommée
dynamiquement.
Merci
| With Feuil1 ' nom feuille à adapter | Set Rg = .Range("A1:A" & .Range("A452").End(xlUp).Row) | End With
si tu connais l'étendue de la plage tu peux utiliser :
With Feuil1 ' nom feuille à adapter Set Rg = .Range("A1:A452") End With
Si tu ignores quelle est la dernière cellule de la colonne A ;
With Feuil1 ' nom feuille à adapter Set Rg = .Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row) End With
"MichDenis" a écrit dans le message de groupe de discussion : # Pour atteindre la dernière cellule d'une zone nommée valide pour toutes les versions d'excel Si la plage nommée se nomme toto
With Range("Toto") .Item(.rows.count,.columns.count).select End with
Pour recopier une formule sur la totalité d'une plage
Choix personnel : je ne travaille "jamais" avec des truc RC41 moi, j'ai besoin de quelque chose de plus parlant, et j'utilise l'objet "Range("A1")" pour faire référence à des cellules d'une feuille.
RC41 dans la macro proprosé représente la colonne "AP", au besoin tu n'auras qu'à adapter le 41 de la formule.
'---------------------------------------------- Sub test() Dim Rg As Range
With Feuil1 ' nom feuille à adapter Set Rg = .Range("A1:A" & .Range("A452").End(xlUp).Row) End With
"pb" a écrit dans le message de groupe de discussion : # Bonjour Je cherche en VBA à atteindre la dernière cellule d'une zone nommée dynamiquement. Merci