Copie

4 réponses

Jacky

15/05/2004 à 08:37

Bonjour à tous

Y a t'il moyen de réduire ou de simplifier ce code?? il entre en fonction
par clique sur un bouton de le feuille "occupation".Certaines cellules sont
fusionnées et je n'ai besoin que du contenu des cellules.

Application.CutCopyMode = False
Sheets("Occupation").Activate
Range("C5:T14").Copy

Sheets("Feuil3").Activate
Range("C5").Activate
ActiveSheet.Paste

Application.CutCopyMode = False
Sheets("Occupation").Activate
Range("C18:O27").Copy

Sheets("Feuil3").Activate
Range("C18").Activate
ActiveSheet.Paste
Application.CutCopyMode = False

Bonne journée
JJ

4 réponses

15/05/2004 à 08:48

Y a t'il moyen de réduire ou de simplifier ce code??
...............

[Feuil3!C5:T14] = [Occupation!C5:T14].Value
[Feuil3!C18:O27] = [Occupation!C18:O27].Value

AV

Jacky

15/05/2004 à 09:29

Merci Alain pour cette réponse rapide et matinale.
De 13 lignes à 2 lignes, pas mal.......
Je me demande pourquoi je cherche toujours à compliquer.

Bonne journée
JJ

"AV" a écrit dans le message de
news:

Y a t'il moyen de réduire ou de simplifier ce code??
...............

[Feuil3!C5:T14] = [Occupation!C5:T14].Value
[Feuil3!C18:O27] = [Occupation!C18:O27].Value

AV

Jacky

15/05/2004 à 15:36

Re Alain
Et pour le format, aurais-tu aussi une solution ??

Salutations
JJ

"Jacky" a écrit dans le message de
news:

Merci Alain pour cette réponse rapide et matinale.
De 13 lignes à 2 lignes, pas mal.......
Je me demande pourquoi je cherche toujours à compliquer.

Bonne journée
JJ

"AV" a écrit dans le message de
news:
Y a t'il moyen de réduire ou de simplifier ce code??
...............

[Feuil3!C5:T14] = [Occupation!C5:T14].Value
[Feuil3!C18:O27] = [Occupation!C18:O27].Value

AV

16/05/2004 à 07:18

Et pour le format, aurais-tu aussi une solution ??

[Occupation!C5:T14].Copy ([Feuil3!C5])
[Occupation!C18:O27].Copy ([Feuil3!C18])

AV

Copie

4 réponses

Veuillez sélectionner un problème