> 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
  Grand 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
34,74 €Carte mémoire Samsung 256 Go MicroSDXC Evo Select U3 (130 Mo/s) à 34,74 €
Valable jusqu'au 25 Juin

Amazon fait une promotion sur la carte mémoire Samsung 256 Go MicroSDXC Evo Select U3 qui passe à 34,74 €. Une bonne affaire pour cette carte que l'on trouve ailleurs à partir de 50 € et qui offre des vitesses de 130 Mo/s en lecture et 110 Mo/s en écriture.  Elle est idéale pour les téléphones, caméras et appareils photo 4K. Elle est étanche, anti-choc et résiste aux rayons X et aux champs magnétiques. Elle est garantie 10 ans.


> Voir l'offre
49,99 €Imprimante multifonction HP DeskJet 2710e (Wifi) + 6 mois instant Ink à 49,99 €
Valable jusqu'au 25 Juin

Cdiscount fait une belle promotion sur l'imprimante multifonction HP DeskJet 2710e (WiFi) qui passe à 49,99 € au lieu de 89 € ailleurs.. Cette imprimante 3 en 1 fait donc imprimante, photocopieur et scanner. Elle dispose d'un chargeur automatique de documents. Elle fonctionne avec 2 cartouches d'encre (une noire et une 3 couleurs). Connexion via USB, Bluetooth et Wifi. Vous pourrez facilement imprimer et numériser avec votre ordinateur, tablette, smartphone.


> Voir l'offre
89,99 €SSD Interne M.2 NVMe Samsung 980 1 To (3500 Mo/s) à 89,99 €
Valable jusqu'au 26 Juin

Boulanger fait une promotion sur le SSD Interne M.2 NVMe PCIe 3.0 Samsung 980 1 To qui passe à 89,99 €. On le trouve ailleurs à partir de 120 €. Ce SSD offre des taux de transfert de 3500 Mo/s. Une bonne affaire.


> 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