OVH Cloud OVH Cloud

Revenir sur la dernière feuille

10 réponses
Avatar
Didier Novarin
Bonsoir,
je souhaite que cette procédure fonctionne, mais je n'arrive pas à l'écrire
;-)
Je vous remercie
Didier

Sub toto()
Classeur = ActiveSheet
Range("B3:D3").Select
Selection.Copy
Sheets("Fiche").Select
Range("B3:D3").Select
Selection.PasteSpecial Paste:=xlValues
Classeur.Select
End Sub

10 réponses

Avatar
Michel Gaboly
Re,

Classeur est ici un objet, et il faut écrire

Set Classeur = ActiveSheet

et non

Classeur = ActiveSheet

Ceci dit, curieuse idée d'appeler "Classeur" une feuille ;-)))

et surtout tu te compliques la vie :

Sub toto()
Sheets("Fiche").Range("B3:D3").Value = ActiveSheet.Range("B3:D3"). Value
End Sub

suffit.

A de rares exceptions près, les Copier-Coller, Activate et Select sont à proscrire : ils compliquent inutilement le code
et en plus, en ralentissent l'exécution.



Bonsoir,
je souhaite que cette procédure fonctionne, mais je n'arrive pas à l'écrire
;-)
Je vous remercie
Didier

Sub toto()
Classeur = ActiveSheet
Range("B3:D3").Select
Selection.Copy
Sheets("Fiche").Select
Range("B3:D3").Select
Selection.PasteSpecial Paste:=xlValues
Classeur.Select
End Sub





--
Cordialement,

Michel Gaboly
www.gaboly.com

Avatar
Didier Novarin
Encore une fois un très grand merci à l'immense Michel Gaboly !
Didier

"Michel Gaboly" a écrit dans le message de news:
%
Re,

Classeur est ici un objet, et il faut écrire

Set Classeur = ActiveSheet

et non

Classeur = ActiveSheet

Ceci dit, curieuse idée d'appeler "Classeur" une feuille ;-)))

et surtout tu te compliques la vie :

Sub toto()
Sheets("Fiche").Range("B3:D3").Value = ActiveSheet.Range("B3:D3").Value
End Sub

suffit.

A de rares exceptions près, les Copier-Coller, Activate et Select sont à
proscrire : ils compliquent inutilement le code
et en plus, en ralentissent l'exécution.



Bonsoir,
je souhaite que cette procédure fonctionne, mais je n'arrive pas à
l'écrire ;-)
Je vous remercie
Didier

Sub toto()
Classeur = ActiveSheet
Range("B3:D3").Select
Selection.Copy
Sheets("Fiche").Select
Range("B3:D3").Select
Selection.PasteSpecial Paste:=xlValues
Classeur.Select
End Sub




--
Cordialement,

Michel Gaboly
www.gaboly.com

Avatar
Michel Gaboly
Immense, immense, même pas 1m90 ;-))


Encore une fois un très grand merci à l'immense Michel Gaboly !
Didier

"Michel Gaboly" a écrit dans le message de news:
%
Re,

Classeur est ici un objet, et il faut écrire

Set Classeur = ActiveSheet

et non

Classeur = ActiveSheet

Ceci dit, curieuse idée d'appeler "Classeur" une feuille ;-)))

et surtout tu te compliques la vie :

Sub toto()
Sheets("Fiche").Range("B3:D3").Value = ActiveSheet.Range("B3:D3" ).Value
End Sub

suffit.

A de rares exceptions près, les Copier-Coller, Activate et Select son t à
proscrire : ils compliquent inutilement le code
et en plus, en ralentissent l'exécution.




Bonsoir,
je souhaite que cette procédure fonctionne, mais je n'arrive pas à
l'écrire ;-)
Je vous remercie
Didier

Sub toto()
Classeur = ActiveSheet
Range("B3:D3").Select
Selection.Copy
Sheets("Fiche").Select
Range("B3:D3").Select
Selection.PasteSpecial Paste:=xlValues
Classeur.Select
End Sub








--
Cordialement,

Michel Gaboly
www.gaboly.com


Avatar
jps
s'agirait-il de la largeur???????
:-))))))
jps

"Michel Gaboly" a écrit dans le message de
news:%
Immense, immense, même pas 1m90 ;-))


Encore une fois un très grand merci à l'immense Michel Gaboly !
Didier

"Michel Gaboly" a écrit dans le message de
news:

%
Re,

Classeur est ici un objet, et il faut écrire

Set Classeur = ActiveSheet

et non

Classeur = ActiveSheet

Ceci dit, curieuse idée d'appeler "Classeur" une feuille ;-)))

et surtout tu te compliques la vie :

Sub toto()
Sheets("Fiche").Range("B3:D3").Value ActiveSheet.Range("B3:D3").Value
End Sub

suffit.

A de rares exceptions près, les Copier-Coller, Activate et Select sont à
proscrire : ils compliquent inutilement le code
et en plus, en ralentissent l'exécution.




Bonsoir,
je souhaite que cette procédure fonctionne, mais je n'arrive pas à
l'écrire ;-)
Je vous remercie
Didier

Sub toto()
Classeur = ActiveSheet
Range("B3:D3").Select
Selection.Copy
Sheets("Fiche").Select
Range("B3:D3").Select
Selection.PasteSpecial Paste:=xlValues
Classeur.Select
End Sub








--
Cordialement,

Michel Gaboly
www.gaboly.com


Avatar
Modeste
Bonsour® jps avec ferveur ;o))) vous nous disiez :

s'agirait-il de la largeur???????
Immense, immense, même pas 1m90 ;-))


Bah ??? alors si le terme "Hauteur" ne convient pas non plus ...?
le terme "Longueur" serait quant à lui ,mon sens superfetatoire !!!
Utiliser le terme "Grandeur" serait un lése-majesté car réservé aux rois
....
reste alors le terme de "Profondeur" ...
mais cela suppose une intimité de mauvais aloi ;o)))
Parler ensuite d'Eminence ferait de l'ombre à Clément ...

Ah !!! Jean-Paul...., nous sommes à l'abri de ces éloges dithyrambiques
nous les têtes de turcs, les cibles à scuds ( dit : "tirs en boucs !!" ).

;o)))





--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr

Avatar
Sitting Hoax
Bonsoiir,
on connait bien la répartie de Napoléon le "grand",
lorsqu'un général empressé voulant attrapper le chapeau du caporal,
que manifestement il avait du mal à reprendre.
"Laissez sire, je suis plus grand que vous" dit le malheureux à l'empereur.
Vous n'êtes pas plus grand lui rétorqua celui ci, vous êtes plus long...
Sur ce, bonne nuit à tous.
Amicalement
Sitting Hoax

"Modeste" a écrit dans le message de news:
%
Bonsour® jps avec ferveur ;o))) vous nous disiez :

s'agirait-il de la largeur???????
Immense, immense, même pas 1m90 ;-))


Bah ??? alors si le terme "Hauteur" ne convient pas non plus ...?
le terme "Longueur" serait quant à lui ,mon sens superfetatoire !!!
Utiliser le terme "Grandeur" serait un lése-majesté car réservé aux rois
....
reste alors le terme de "Profondeur" ...
mais cela suppose une intimité de mauvais aloi ;o)))
Parler ensuite d'Eminence ferait de l'ombre à Clément ...

Ah !!! Jean-Paul...., nous sommes à l'abri de ces éloges dithyrambiques
nous les têtes de turcs, les cibles à scuds ( dit : "tirs en boucs !!" ).

;o)))





--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr





Avatar
jps
:-)))))))))
jps

"Modeste" a écrit dans le message de
news:%
Bonsour® jps avec ferveur ;o))) vous nous disiez :

s'agirait-il de la largeur???????
Immense, immense, même pas 1m90 ;-))


Bah ??? alors si le terme "Hauteur" ne convient pas non plus ...?
le terme "Longueur" serait quant à lui ,mon sens superfetatoire !!!
Utiliser le terme "Grandeur" serait un lése-majesté car réservé aux rois
....
reste alors le terme de "Profondeur" ...
mais cela suppose une intimité de mauvais aloi ;o)))
Parler ensuite d'Eminence ferait de l'ombre à Clément ...

Ah !!! Jean-Paul...., nous sommes à l'abri de ces éloges dithyrambiques
nous les têtes de turcs, les cibles à scuds ( dit : "tirs en boucs !!" ).

;o)))





--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr





Avatar
Michel Gaboly
Salut Modeste et jps,

J'ai de la chance encore : j'ai échappé à l'épaisseur ;-))

"nous les têtes de turcs, les cibles à scuds"

Pauvres petites choses, va ! Pas très convainquant ;-))))


Bonsour® jps avec ferveur ;o))) vous nous disiez :


s'agirait-il de la largeur???????
Immense, immense, même pas 1m90 ;-))



Bah ??? alors si le terme "Hauteur" ne convient pas non plus ...?
le terme "Longueur" serait quant à lui ,mon sens superfetatoire !!!
Utiliser le terme "Grandeur" serait un lése-majesté car réservé aux rois
....
reste alors le terme de "Profondeur" ...
mais cela suppose une intimité de mauvais aloi ;o)))
Parler ensuite d'Eminence ferait de l'ombre à Clément ...

Ah !!! Jean-Paul...., nous sommes à l'abri de ces éloges dithyrambi ques
nous les têtes de turcs, les cibles à scuds ( dit : "tirs en boucs !!" ).

;o)))








--
Cordialement,

Michel Gaboly
www.gaboly.com


Avatar
jps
:-))))))))))))))))))
jps

"Michel Gaboly" a écrit dans le message de news:

Salut Modeste et jps,

J'ai de la chance encore : j'ai échappé à l'épaisseur ;-))

"nous les têtes de turcs, les cibles à scuds"

Pauvres petites choses, va ! Pas très convainquant ;-))))


Bonsour® jps avec ferveur ;o))) vous nous disiez :


s'agirait-il de la largeur???????
Immense, immense, même pas 1m90 ;-))



Bah ??? alors si le terme "Hauteur" ne convient pas non plus ...?
le terme "Longueur" serait quant à lui ,mon sens superfetatoire !!!
Utiliser le terme "Grandeur" serait un lése-majesté car réservé aux rois
....
reste alors le terme de "Profondeur" ...
mais cela suppose une intimité de mauvais aloi ;o)))
Parler ensuite d'Eminence ferait de l'ombre à Clément ...

Ah !!! Jean-Paul...., nous sommes à l'abri de ces éloges dithyrambiques
nous les têtes de turcs, les cibles à scuds ( dit : "tirs en boucs !!" ).

;o)))








--
Cordialement,

Michel Gaboly
www.gaboly.com


Avatar
LSteph
Bonjour à tous (scudeurs invétérés),

c'est un problème d'attraction terrestre (si,si ne riez pas)
ce qui est haut finit par se tasser et là ,
le plus gros problème c'est qu'entre le plafond et le sol
toujours aussi présente, il y a la table.

lSteph



"Modeste" a écrit dans le message de news:
%
Bonsour® jps avec ferveur ;o))) vous nous disiez :

s'agirait-il de la largeur???????
Immense, immense, même pas 1m90 ;-))


Bah ??? alors si le terme "Hauteur" ne convient pas non plus ...?
le terme "Longueur" serait quant à lui ,mon sens superfetatoire !!!
Utiliser le terme "Grandeur" serait un lése-majesté car réservé aux rois
....
reste alors le terme de "Profondeur" ...
mais cela suppose une intimité de mauvais aloi ;o)))
Parler ensuite d'Eminence ferait de l'ombre à Clément ...

Ah !!! Jean-Paul...., nous sommes à l'abri de ces éloges dithyrambiques
nous les têtes de turcs, les cibles à scuds ( dit : "tirs en boucs !!" ).

;o)))





--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr