VBA Excel 2003 : Range avec référence à la cellule active ?
2 réponses
Céline Brien
Bonjour à tous,
Une liste de données sur les employés.
No des employés en colonne A
Usine en colonne B¸
Nom et prénom en colonne C
Mois en colonne D. Les mois sont numérotés 1 pour janvier, 2 pour février.
Pour débuter un nouveau mois, une macro commance copie de l'onglet Liste les
employés, leur numéro et leur usine et leur nom et prénom.
Le bout de codes ci-après doit numéroter le mois en colonne D.
J'accroche sur les trois dernières lignes :
y = ActiveCell.Row
x = [A65536].End(3).Row
Selection.AutoFill Destination:=Range("d & y:d" & x)
Comment indiquer dans le Range la cellule active ???
Merci de votre aide,
Céline
------------------------------------------------------------------------------------
' Numéroter le mois en colonne D
Range("D1").Select
Selection.End(xlDown).Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Range("D1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:=
_
False, Transpose:=False
y = ActiveCell.Row
x = [A65536].End(3).Row
Selection.AutoFill Destination:=Range("d & y:d" & x)
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
Daniel.C
Bonjour. Selection.AutoFill Destination:=Range("d" & y & ":d" & x) Cordialement. Daniel
"Céline Brien" a écrit dans le message de news:
Bonjour à tous, Une liste de données sur les employés. No des employés en colonne A Usine en colonne B¸ Nom et prénom en colonne C Mois en colonne D. Les mois sont numérotés 1 pour janvier, 2 pour février. Pour débuter un nouveau mois, une macro commance copie de l'onglet Liste les employés, leur numéro et leur usine et leur nom et prénom. Le bout de codes ci-après doit numéroter le mois en colonne D. J'accroche sur les trois dernières lignes : y = ActiveCell.Row x = [A65536].End(3).Row Selection.AutoFill Destination:=Range("d & y:d" & x) Comment indiquer dans le Range la cellule active ??? Merci de votre aide, Céline
------------------------------------------------------------------------------------ ' Numéroter le mois en colonne D Range("D1").Select Selection.End(xlDown).Select Selection.Copy ActiveCell.Offset(1, 0).Range("A1").Select ActiveSheet.Paste Range("A2").Select Application.CutCopyMode = False Selection.Copy Range("D1").Select Selection.End(xlDown).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _ False, Transpose:úlse y = ActiveCell.Row x = [A65536].End(3).Row Selection.AutoFill Destination:=Range("d & y:d" & x)
Bonjour.
Selection.AutoFill Destination:=Range("d" & y & ":d" & x)
Cordialement.
Daniel
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message de
news: OvCuoxouIHA.748@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Une liste de données sur les employés.
No des employés en colonne A
Usine en colonne B¸
Nom et prénom en colonne C
Mois en colonne D. Les mois sont numérotés 1 pour janvier, 2 pour février.
Pour débuter un nouveau mois, une macro commance copie de l'onglet Liste
les employés, leur numéro et leur usine et leur nom et prénom.
Le bout de codes ci-après doit numéroter le mois en colonne D.
J'accroche sur les trois dernières lignes :
y = ActiveCell.Row
x = [A65536].End(3).Row
Selection.AutoFill Destination:=Range("d & y:d" & x)
Comment indiquer dans le Range la cellule active ???
Merci de votre aide,
Céline
------------------------------------------------------------------------------------
' Numéroter le mois en colonne D
Range("D1").Select
Selection.End(xlDown).Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Range("D1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd,
SkipBlanks:= _
False, Transpose:úlse
y = ActiveCell.Row
x = [A65536].End(3).Row
Selection.AutoFill Destination:=Range("d & y:d" & x)
Bonjour. Selection.AutoFill Destination:=Range("d" & y & ":d" & x) Cordialement. Daniel
"Céline Brien" a écrit dans le message de news:
Bonjour à tous, Une liste de données sur les employés. No des employés en colonne A Usine en colonne B¸ Nom et prénom en colonne C Mois en colonne D. Les mois sont numérotés 1 pour janvier, 2 pour février. Pour débuter un nouveau mois, une macro commance copie de l'onglet Liste les employés, leur numéro et leur usine et leur nom et prénom. Le bout de codes ci-après doit numéroter le mois en colonne D. J'accroche sur les trois dernières lignes : y = ActiveCell.Row x = [A65536].End(3).Row Selection.AutoFill Destination:=Range("d & y:d" & x) Comment indiquer dans le Range la cellule active ??? Merci de votre aide, Céline
------------------------------------------------------------------------------------ ' Numéroter le mois en colonne D Range("D1").Select Selection.End(xlDown).Select Selection.Copy ActiveCell.Offset(1, 0).Range("A1").Select ActiveSheet.Paste Range("A2").Select Application.CutCopyMode = False Selection.Copy Range("D1").Select Selection.End(xlDown).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _ False, Transpose:úlse y = ActiveCell.Row x = [A65536].End(3).Row Selection.AutoFill Destination:=Range("d & y:d" & x)
Céline Brien
Bonjour Daniel, Merci beaucoup pour ta réponse. Le tout fonctionne très bien. J'avais testé un couple de possibilités avec les " mais pas celle-là ;-) Merci encore, Céline
"Daniel.C" a écrit dans le message de news: O%
Bonjour. Selection.AutoFill Destination:=Range("d" & y & ":d" & x) Cordialement. Daniel
"Céline Brien" a écrit dans le message de news:
Bonjour à tous, Une liste de données sur les employés. No des employés en colonne A Usine en colonne B¸ Nom et prénom en colonne C Mois en colonne D. Les mois sont numérotés 1 pour janvier, 2 pour février. Pour débuter un nouveau mois, une macro commance copie de l'onglet Liste les employés, leur numéro et leur usine et leur nom et prénom. Le bout de codes ci-après doit numéroter le mois en colonne D. J'accroche sur les trois dernières lignes : y = ActiveCell.Row x = [A65536].End(3).Row Selection.AutoFill Destination:=Range("d & y:d" & x) Comment indiquer dans le Range la cellule active ??? Merci de votre aide, Céline
------------------------------------------------------------------------------------ ' Numéroter le mois en colonne D Range("D1").Select Selection.End(xlDown).Select Selection.Copy ActiveCell.Offset(1, 0).Range("A1").Select ActiveSheet.Paste Range("A2").Select Application.CutCopyMode = False Selection.Copy Range("D1").Select Selection.End(xlDown).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _ False, Transpose:úlse y = ActiveCell.Row x = [A65536].End(3).Row Selection.AutoFill Destination:=Range("d & y:d" & x)
Bonjour Daniel,
Merci beaucoup pour ta réponse.
Le tout fonctionne très bien.
J'avais testé un couple de possibilités avec les " mais pas celle-là ;-)
Merci encore,
Céline
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
O%23xqCXpuIHA.2292@TK2MSFTNGP05.phx.gbl...
Bonjour.
Selection.AutoFill Destination:=Range("d" & y & ":d" & x)
Cordialement.
Daniel
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message de
news: OvCuoxouIHA.748@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Une liste de données sur les employés.
No des employés en colonne A
Usine en colonne B¸
Nom et prénom en colonne C
Mois en colonne D. Les mois sont numérotés 1 pour janvier, 2 pour
février.
Pour débuter un nouveau mois, une macro commance copie de l'onglet Liste
les employés, leur numéro et leur usine et leur nom et prénom.
Le bout de codes ci-après doit numéroter le mois en colonne D.
J'accroche sur les trois dernières lignes :
y = ActiveCell.Row
x = [A65536].End(3).Row
Selection.AutoFill Destination:=Range("d & y:d" & x)
Comment indiquer dans le Range la cellule active ???
Merci de votre aide,
Céline
------------------------------------------------------------------------------------
' Numéroter le mois en colonne D
Range("D1").Select
Selection.End(xlDown).Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Range("D1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd,
SkipBlanks:= _
False, Transpose:úlse
y = ActiveCell.Row
x = [A65536].End(3).Row
Selection.AutoFill Destination:=Range("d & y:d" & x)
Bonjour Daniel, Merci beaucoup pour ta réponse. Le tout fonctionne très bien. J'avais testé un couple de possibilités avec les " mais pas celle-là ;-) Merci encore, Céline
"Daniel.C" a écrit dans le message de news: O%
Bonjour. Selection.AutoFill Destination:=Range("d" & y & ":d" & x) Cordialement. Daniel
"Céline Brien" a écrit dans le message de news:
Bonjour à tous, Une liste de données sur les employés. No des employés en colonne A Usine en colonne B¸ Nom et prénom en colonne C Mois en colonne D. Les mois sont numérotés 1 pour janvier, 2 pour février. Pour débuter un nouveau mois, une macro commance copie de l'onglet Liste les employés, leur numéro et leur usine et leur nom et prénom. Le bout de codes ci-après doit numéroter le mois en colonne D. J'accroche sur les trois dernières lignes : y = ActiveCell.Row x = [A65536].End(3).Row Selection.AutoFill Destination:=Range("d & y:d" & x) Comment indiquer dans le Range la cellule active ??? Merci de votre aide, Céline
------------------------------------------------------------------------------------ ' Numéroter le mois en colonne D Range("D1").Select Selection.End(xlDown).Select Selection.Copy ActiveCell.Offset(1, 0).Range("A1").Select ActiveSheet.Paste Range("A2").Select Application.CutCopyMode = False Selection.Copy Range("D1").Select Selection.End(xlDown).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _ False, Transpose:úlse y = ActiveCell.Row x = [A65536].End(3).Row Selection.AutoFill Destination:=Range("d & y:d" & x)