> 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
6,85 €Clé USB 3.0 Kingston DataTraveler 50 32 Go à 6,50 €
Valable jusqu'au 28 Février

Amazon vous propose actuellement la clé USB 3.0 Kingston DataTraveler 50 DT50 32 Go à 6,50 €. La livraison est gratuite.


> Voir l'offre
35,99 €Souris sans fil Logitech G305 à 35,99 €
Valable jusqu'au 26 Février

Amazon fait une belle promotion sur la nouvelle souris sans fil Logitech G G305 qui passe à 35,99 € livrée gratuitement alors qu'on la trouve ailleurs autour de 50 €. Cette souris vous offre des performances sans fil de niveau professionnel et une fiabilité inégalée surpassant même certaines des meilleures souris gaming filaire. Dotée du capteur HERO, vous allez connaitre une précision exceptionnelle grâce à sa sensibilité pouvant aller jusqu'à 12 000 dpi.


> Voir l'offre
92,35 €Disque dur externe portable Maxtor M3 USB 3.0 4 To à 92,35 €
Valable jusqu'au 28 Février

Amazon propose actuellement le disque dur externe portable Seagate M3 4 To à 92,35 € livré gratuitement. Le disque dur dispose d'une connectique USB 3.0 compatible USB 2.0 et offre des débits d'environ 115 Mo/s en lecture et écriture. Seagate ayant racheté les branches disques durs de Samsung et Maxtor, vous pouvez donc trouver le logo Maxtor, Samsung ou Seagate sur ce disque dur M3. 


> 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