> Tous les forums > Forum Bureautique
 Formule excel 2007Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
SKIPBO
  Posté le 22/03/2015 @ 12:29 
Aller en bas de la page 
Petit astucien

Bonjour.

Voici mon problème:

J'ai un tableau avec plusieurs colonnes, N° d'ordre, Noms, Prénoms, Adresse, Téléphone, Code Postal, Ville, + plusieurs colonnes d'activités, et N° de Carte.

Ce tableau comprend environ 500 noms, soit 500 lignes.

Dans ce tableau je voudrai sélectionner deux plages, non contiguës. (Voir la macro en bas de page). pour les recopier dans un autre tableau sur une autre feuille.

Je voudrai que cela se fasse avec une macro, que j'ai fais mais ne fonctionne pas, C'est la première ligne qui bloque...

La macro fonctionne trés bien avec une seule plage, mais pas avec les deux.

Je vous remercie.

SKIPBO

Sub PUBLIPOSTAGE()

'' PUBLIPOSTAGE Macro

' Copie les noms,adresses et N° de Carte

'

Range("D7:H491")("X7:X491").Select

Selection.Copy

ActiveWindow.ScrollWorkbookTabs Position:=xlLast

Sheets("Feuil2").Select

Range("A3").Select

ActiveSheet.Paste

Range("A1").Select

End Sub

Publicité
poussebois
 Posté le 22/03/2015 à 14:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Bonjour ,

Je n'ai pas vérifié la macro, mais la première ligne s'écrit :

Range("D7:H491,X7:X491").Select

@ +

SKIPBO
 Posté le 22/03/2015 à 16:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci poussebois, ça fonctionne parfaitement.

J'ai marqué le sujet résolu

A bientôt.

SKIPBO

ferrand
 Posté le 22/03/2015 à 21:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

Pour optimiser ton code (ce n'est jamais inutile), une ligne suffit :

Range("D7:H491,X7:X491").Copy Worksheets("Feuil2").Range("A3")

SKIPBO
 Posté le 24/03/2015 à 07:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci ferrand

C'est un concentré qui fonctionne parfaitement!

A +

SKIPBO

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
98,99 €SSD WD Blue SN550 1 To (NMVe M.2, 2400 Mo/s) à 98,99 €
Valable jusqu'au 20 Mai

Amazon fait une promotion sur le SSD WD Blue SN550 1 To (NMVe M.2) qui passe à 98,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 129 €. Ce SSD utilise une interface M.2 NVMe PCIe Gen3 x 4 pour une connexion simple et des performances exceptionnelles : jusqu’à 2 400 Mo/s en lecture séquentielle et jusqu’à 1 950 Mo/s en écriture séquentielle. Le SSD est doté de la technologie 3D TLC NAND haute densité offrant une endurance d’écriture durable et assorti d’une garantie de cinq ans.


> Voir l'offre
89,99 €SSD Samsung 870 QVO 1 To à 89,99 €
Valable jusqu'au 20 Mai

Amazon fait une promotion sur le SSD Samsung 870 QVO 1 To qui passe à 89,99 € au lieu de 100 €. Ce SSD offre des vitesses de 560 Mo/s en lecture et 530 Mo/s en écriture. Il est garanti 3 ans.


> Voir l'offre
729,99 €Ultrabook Acer Swift 3 14 pouces (Ryzen 5 4500U, 16Go de RAM, SSD 512 Go, Vega 6) à 729,99 €
Valable jusqu'au 20 Mai

Cdiscount fait une promotion sur l'ordinateur portable ultrabook Acer Swift 3 SF314-42 qui passe à 729,99 € alors qu'on le trouve ailleurs à partir de 899 €. Cet ordinateur portable est équipé d'un écran 14 pouces FullHD (1920x1080) IPS mat sans reflet, d'un processeur AMD Ryzen 5 4500U (6 coeurs), de 16 Go de RAM, d'un SSD de 512 Go et d'une carte graphique Vega 6. Une webcam, le WiFi 6 et le Bluetooth 5 sont de la partie. Des ports USB 2.0, USB 3.1 et HDMI sont présents. Le tout tourne sous Windows 10. Il pèse 1,2 kg et offre un autonomie jusqu'à 11 h. 


> Voir l'offre

Sujets relatifs
Formule Excel 2007
excel 2007 formule
formule excel 2007 ou autres
formule excel 2007
Excel 2007 formule somme dont 2 chiffres ds cellul
Créer une formule de calcul avec excel 2007
formule excel 2007
Formule pour un tableau excel 2007
HELP => Formule conditionnelle dans Excel 2007
Excel 2007 résultat formule dans une autre cellule
Plus de sujets relatifs à Formule excel 2007
 > Tous les forums > Forum Bureautique