Bonjour à tous
Mon problème :
comment ajouter une cellule F23 dans la sélection ""Range("B3:N3").Select""
et de la copier dans la colonne O avec bien sur
"[B65000].End(xlUp).Offset(1, 0).Select"
Si je mets "Range("B3:N3,F23") cela ne marche pas
erreur 1004 _ impossible d'executer cette commande sur des sélections
multiples
Sub zaza()
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Merci à tous
Jean Berti
Bonjour à tous
Mon problème :
comment ajouter une cellule F23 dans la sélection ""Range("B3:N3").Select""
et de la copier dans la colonne O avec bien sur
"[B65000].End(xlUp).Offset(1, 0).Select"
Si je mets "Range("B3:N3,F23") cela ne marche pas
erreur 1004 _ impossible d'executer cette commande sur des sélections
multiples
Sub zaza()
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Merci à tous
Jean Berti
Bonjour à tous
Mon problème :
comment ajouter une cellule F23 dans la sélection ""Range("B3:N3").Select""
et de la copier dans la colonne O avec bien sur
"[B65000].End(xlUp).Offset(1, 0).Select"
Si je mets "Range("B3:N3,F23") cela ne marche pas
erreur 1004 _ impossible d'executer cette commande sur des sélections
multiples
Sub zaza()
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Merci à tous
Jean Berti
Salut à toi
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
en conclusion 2 possibilités
Soit tu augmentes ta plage pour inclure F23 ainsi :
Le point de départ : B3
le point d'arrivé : N23
Ce qui donne Range("B3:N23") qui englobe donc F23
Inconvénient tu embarques toutes les cellules de la nouvelle plage (peut
être un peu beaucoup)
Soit tu réalise l'opération en 2 fois
1° Fois :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
2° Fois :
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Le tout faisant :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Celà devrait être nettement mieux
Dis moi !!!!Bonjour à tous
Mon problème :
comment ajouter une cellule F23 dans la sélection
""Range("B3:N3").Select""
et de la copier dans la colonne O avec bien sur
"[B65000].End(xlUp).Offset(1, 0).Select"
Si je mets "Range("B3:N3,F23") cela ne marche pas
erreur 1004 _ impossible d'executer cette commande sur des sélections
multiples
Sub zaza()
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Merci à tous
Jean Berti
Salut à toi
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
en conclusion 2 possibilités
Soit tu augmentes ta plage pour inclure F23 ainsi :
Le point de départ : B3
le point d'arrivé : N23
Ce qui donne Range("B3:N23") qui englobe donc F23
Inconvénient tu embarques toutes les cellules de la nouvelle plage (peut
être un peu beaucoup)
Soit tu réalise l'opération en 2 fois
1° Fois :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
2° Fois :
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Le tout faisant :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Celà devrait être nettement mieux
Dis moi !!!!
Bonjour à tous
Mon problème :
comment ajouter une cellule F23 dans la sélection
""Range("B3:N3").Select""
et de la copier dans la colonne O avec bien sur
"[B65000].End(xlUp).Offset(1, 0).Select"
Si je mets "Range("B3:N3,F23") cela ne marche pas
erreur 1004 _ impossible d'executer cette commande sur des sélections
multiples
Sub zaza()
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Merci à tous
Jean Berti
Salut à toi
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
en conclusion 2 possibilités
Soit tu augmentes ta plage pour inclure F23 ainsi :
Le point de départ : B3
le point d'arrivé : N23
Ce qui donne Range("B3:N23") qui englobe donc F23
Inconvénient tu embarques toutes les cellules de la nouvelle plage (peut
être un peu beaucoup)
Soit tu réalise l'opération en 2 fois
1° Fois :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
2° Fois :
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Le tout faisant :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Celà devrait être nettement mieux
Dis moi !!!!Bonjour à tous
Mon problème :
comment ajouter une cellule F23 dans la sélection
""Range("B3:N3").Select""
et de la copier dans la colonne O avec bien sur
"[B65000].End(xlUp).Offset(1, 0).Select"
Si je mets "Range("B3:N3,F23") cela ne marche pas
erreur 1004 _ impossible d'executer cette commande sur des sélections
multiples
Sub zaza()
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Merci à tous
Jean Berti
Bonjour FFO
Merci beaucoup de tes explications pédagogiques.
J'avais bien pensé à le faire en 2 fois, mais je croyais qu'il y aurait 1
combine.
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
Range("D13,D20,F16,L20:L36,C20:C36,E13,M15,F21:F36").ClearContents
Comment alors expliquer que cela fonctionne?
Excuses moi mais j'aime bien comprendre et l'aide (excel 2003),un peu vague.
Merci encore
Jean Berti
"FFO" a écrit dans le message de news:Salut à toi
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
en conclusion 2 possibilités
Soit tu augmentes ta plage pour inclure F23 ainsi :
Le point de départ : B3
le point d'arrivé : N23
Ce qui donne Range("B3:N23") qui englobe donc F23
Inconvénient tu embarques toutes les cellules de la nouvelle plage (peut
être un peu beaucoup)
Soit tu réalise l'opération en 2 fois
1° Fois :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
2° Fois :
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Le tout faisant :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Celà devrait être nettement mieux
Dis moi !!!!Bonjour à tous
Mon problème :
comment ajouter une cellule F23 dans la sélection
""Range("B3:N3").Select""
et de la copier dans la colonne O avec bien sur
"[B65000].End(xlUp).Offset(1, 0).Select"
Si je mets "Range("B3:N3,F23") cela ne marche pas
erreur 1004 _ impossible d'executer cette commande sur des sélections
multiples
Sub zaza()
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Merci à tous
Jean Berti
Bonjour FFO
Merci beaucoup de tes explications pédagogiques.
J'avais bien pensé à le faire en 2 fois, mais je croyais qu'il y aurait 1
combine.
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
Range("D13,D20,F16,L20:L36,C20:C36,E13,M15,F21:F36").ClearContents
Comment alors expliquer que cela fonctionne?
Excuses moi mais j'aime bien comprendre et l'aide (excel 2003),un peu vague.
Merci encore
Jean Berti
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
4E8ED86A-24AF-44D3-AF67-51492A3431C2@microsoft.com...
Salut à toi
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
en conclusion 2 possibilités
Soit tu augmentes ta plage pour inclure F23 ainsi :
Le point de départ : B3
le point d'arrivé : N23
Ce qui donne Range("B3:N23") qui englobe donc F23
Inconvénient tu embarques toutes les cellules de la nouvelle plage (peut
être un peu beaucoup)
Soit tu réalise l'opération en 2 fois
1° Fois :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
2° Fois :
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Le tout faisant :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Celà devrait être nettement mieux
Dis moi !!!!
Bonjour à tous
Mon problème :
comment ajouter une cellule F23 dans la sélection
""Range("B3:N3").Select""
et de la copier dans la colonne O avec bien sur
"[B65000].End(xlUp).Offset(1, 0).Select"
Si je mets "Range("B3:N3,F23") cela ne marche pas
erreur 1004 _ impossible d'executer cette commande sur des sélections
multiples
Sub zaza()
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Merci à tous
Jean Berti
Bonjour FFO
Merci beaucoup de tes explications pédagogiques.
J'avais bien pensé à le faire en 2 fois, mais je croyais qu'il y aurait 1
combine.
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
Range("D13,D20,F16,L20:L36,C20:C36,E13,M15,F21:F36").ClearContents
Comment alors expliquer que cela fonctionne?
Excuses moi mais j'aime bien comprendre et l'aide (excel 2003),un peu vague.
Merci encore
Jean Berti
"FFO" a écrit dans le message de news:Salut à toi
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
en conclusion 2 possibilités
Soit tu augmentes ta plage pour inclure F23 ainsi :
Le point de départ : B3
le point d'arrivé : N23
Ce qui donne Range("B3:N23") qui englobe donc F23
Inconvénient tu embarques toutes les cellules de la nouvelle plage (peut
être un peu beaucoup)
Soit tu réalise l'opération en 2 fois
1° Fois :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
2° Fois :
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Le tout faisant :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Celà devrait être nettement mieux
Dis moi !!!!Bonjour à tous
Mon problème :
comment ajouter une cellule F23 dans la sélection
""Range("B3:N3").Select""
et de la copier dans la colonne O avec bien sur
"[B65000].End(xlUp).Offset(1, 0).Select"
Si je mets "Range("B3:N3,F23") cela ne marche pas
erreur 1004 _ impossible d'executer cette commande sur des sélections
multiples
Sub zaza()
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Merci à tous
Jean Berti
Bonjour FFO
Merci beaucoup de tes explications pédagogiques.
J'avais bien pensé à le faire en 2 fois, mais je croyais qu'il y aurait 1
combine.
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
Range("D13,D20,F16,L20:L36,C20:C36,E13,M15,F21:F36").ClearContents
Comment alors expliquer que cela fonctionne?
Excuses moi mais j'aime bien comprendre et l'aide (excel 2003),un peu vague.
Merci encore
Jean Berti
"FFO" a écrit dans le message de news:Salut à toi
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
en conclusion 2 possibilités
Soit tu augmentes ta plage pour inclure F23 ainsi :
Le point de départ : B3
le point d'arrivé : N23
Ce qui donne Range("B3:N23") qui englobe donc F23
Inconvénient tu embarques toutes les cellules de la nouvelle plage (peut
être un peu beaucoup)
Soit tu réalise l'opération en 2 fois
1° Fois :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
2° Fois :
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Le tout faisant :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Celà devrait être nettement mieux
Dis moi !!!!Bonjour à tous
Mon problème :
comment ajouter une cellule F23 dans la sélection
""Range("B3:N3").Select""
et de la copier dans la colonne O avec bien sur
"[B65000].End(xlUp).Offset(1, 0).Select"
Si je mets "Range("B3:N3,F23") cela ne marche pas
erreur 1004 _ impossible d'executer cette commande sur des sélections
multiples
Sub zaza()
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Merci à tous
Jean Berti
Bonjour FFO
Merci beaucoup de tes explications pédagogiques.
J'avais bien pensé à le faire en 2 fois, mais je croyais qu'il y aurait 1
combine.
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
Range("D13,D20,F16,L20:L36,C20:C36,E13,M15,F21:F36").ClearContents
Comment alors expliquer que cela fonctionne?
Excuses moi mais j'aime bien comprendre et l'aide (excel 2003),un peu vague.
Merci encore
Jean Berti
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
4E8ED86A-24AF-44D3-AF67-51492A3431C2@microsoft.com...
Salut à toi
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
en conclusion 2 possibilités
Soit tu augmentes ta plage pour inclure F23 ainsi :
Le point de départ : B3
le point d'arrivé : N23
Ce qui donne Range("B3:N23") qui englobe donc F23
Inconvénient tu embarques toutes les cellules de la nouvelle plage (peut
être un peu beaucoup)
Soit tu réalise l'opération en 2 fois
1° Fois :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
2° Fois :
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Le tout faisant :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Celà devrait être nettement mieux
Dis moi !!!!
Bonjour à tous
Mon problème :
comment ajouter une cellule F23 dans la sélection
""Range("B3:N3").Select""
et de la copier dans la colonne O avec bien sur
"[B65000].End(xlUp).Offset(1, 0).Select"
Si je mets "Range("B3:N3,F23") cela ne marche pas
erreur 1004 _ impossible d'executer cette commande sur des sélections
multiples
Sub zaza()
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Merci à tous
Jean Berti
Bonjour FFO
Merci beaucoup de tes explications pédagogiques.
J'avais bien pensé à le faire en 2 fois, mais je croyais qu'il y aurait 1
combine.
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
Range("D13,D20,F16,L20:L36,C20:C36,E13,M15,F21:F36").ClearContents
Comment alors expliquer que cela fonctionne?
Excuses moi mais j'aime bien comprendre et l'aide (excel 2003),un peu vague.
Merci encore
Jean Berti
"FFO" a écrit dans le message de news:Salut à toi
Quand tu sélectionnes par l'instruction Range("B3:N3") tu détermines une
plage selon 2 repères :
Le point de départ : B3
Le point d'arrivé : N3
si tu rajoute un troisième repère Excel ne comprend plus rien
en conclusion 2 possibilités
Soit tu augmentes ta plage pour inclure F23 ainsi :
Le point de départ : B3
le point d'arrivé : N23
Ce qui donne Range("B3:N23") qui englobe donc F23
Inconvénient tu embarques toutes les cellules de la nouvelle plage (peut
être un peu beaucoup)
Soit tu réalise l'opération en 2 fois
1° Fois :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
2° Fois :
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Le tout faisant :
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
sheets("Onglet de départ").Select
Range("F23").Copy
Sheets("Cours").Activate
Range("O65000").end(xlup).offset(1,0).select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Celà devrait être nettement mieux
Dis moi !!!!Bonjour à tous
Mon problème :
comment ajouter une cellule F23 dans la sélection
""Range("B3:N3").Select""
et de la copier dans la colonne O avec bien sur
"[B65000].End(xlUp).Offset(1, 0).Select"
Si je mets "Range("B3:N3,F23") cela ne marche pas
erreur 1004 _ impossible d'executer cette commande sur des sélections
multiples
Sub zaza()
Selection.NumberFormat = "0.00"
Range("B3:N3").Select
Selection.Copy
Sheets("Cours").Activate
[B65000].End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Merci à tous
Jean Berti
... ceci dit c'était pour reprendre l'exemple
On pourrait également boucler les cellules
de Range("B3:n3,f23")
en décalant depuis [b65536].end(xlup) (2)
mais
je préfère grandement le style de ce qu'AV t'a proposé
à ta question analogue du 28/06.
Espérant t'avoir ouvert d'autres fenêtres.
Cordialement.
lSteph
... ceci dit c'était pour reprendre l'exemple
On pourrait également boucler les cellules
de Range("B3:n3,f23")
en décalant depuis [b65536].end(xlup) (2)
mais
je préfère grandement le style de ce qu'AV t'a proposé
à ta question analogue du 28/06.
Espérant t'avoir ouvert d'autres fenêtres.
Cordialement.
lSteph
... ceci dit c'était pour reprendre l'exemple
On pourrait également boucler les cellules
de Range("B3:n3,f23")
en décalant depuis [b65536].end(xlup) (2)
mais
je préfère grandement le style de ce qu'AV t'a proposé
à ta question analogue du 28/06.
Espérant t'avoir ouvert d'autres fenêtres.
Cordialement.
lSteph