Récupérer les valeurs d'une colonne excel

roberto93, le mercredi 2 juillet 2008 à 14:08:15

Bonjour,

Je souhaite récupérer les valeurs d'une colonne de la feuille 1 et l'envoyer sur la feuille 2.
J'ai 12 feuilles, je veux automatiser le processus pour allez plus vite car je dois faire la meme chose sur des dizaines de classeurs.
La feuille 1 regroupe les données sur toute l'année, chaque mois est sur une colonne

colonne A Colonne B Colonne C Colonne D et ainsi de suite....
Mois Activité Durée de l'activité Mois

Je veux récupérer les données des colonnes mois seulement de la feuille 1 et le copier/coller sur la feuille 2, 3, 4...12
sur la cellule N23 sur toute les feuilles.

Voici pour le moment la macro que j'ai

Sub Macro2()

Selection.Copy
Sheets(ActiveSheet.Name).Select
Range("N23").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

J'en déduit qu'il faut rajouter une variable d'incrémentation pour lire les colonnes voulues et récupérer les valeurs.
Pour une colonne ce n'est pas la meme chose que pour les lignes on ne peut pas faire i = i +1, il faut utiliser le code ASCii et faire une double boucle pour les colonnes avec deux lettres. Comment dois je faire?
Dans le code ascii A = 65
J'ai besoin de votre aide pour résoudre mon problème
Merci d'avance

Configuration: Windows 2000
Internet Explorer 6.0

Répondre à roberto93 Signaler ce message aux modérateurs Aller au dernier message

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Mike-31, le mercredi 2 juillet 2008 à 14:24:01

Salut,

tu peux utiliser un code simple et facile à écrire et à suivre

Sub Macro1()
'
Sheets("Feuil1").Select
Columns("A:A").Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("Feuil1").Select
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil3").Select
Range("A1").Select
ActiveSheet.Paste

' rajouter ici le code pour les douze feuilles

Sheets("Feuil1").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub

A+

Répondre à Mike-31

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

roberto93, le mercredi 2 juillet 2008 à 15:41:15

Merci pour ton aide j'ai utilisé ta méthode, elle est suffisante pour moi

Cependant, y a t'il pas un moyen de faire une boucle imaginons nous avions plus de 100 colonnes a copier. Comment doit on procéder?

Cordialement,

Répondre à roberto93

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

Mike-31, le mercredi 2 juillet 2008 à 19:15:32

Sur la même feuille il est possible d'écrire le code différemment, mais dans ton cas il faut prendre une colonne différente de la feuille1 pour les coller dans une feuille différente à chaque fois. par contre il est possible de nommer chaque colonne de la feuille 1 et à la place d'écrire dans la macro

Columns("A:A").Copy
on pourrai écrire le nom que l'on à donné à cette colonne exemple une.copy ou Pierre.copy etc ...

Sheets("Feuil1").Select ("Feuil1") est le nom de la feuille principale
Columns("A:A").Copy cette ligne fait référence à la colonne A
Sheets("Feuil2").Select ("Feuil2") est le nom d'une feuille de réception
Range("A1").Select A1 est la position de départ pour coller les infos
ActiveSheet.Paste et colle

à partir de ce code tu peux écrire cette fonction pour chaque colonne que tu doit copier sur la feuille de ton choix

A+

__________________________________________________________________

Besoin d’aide. Auprès du forum, des bénévoles prennent le temps de décrypter vos explications parfois confuses, et proposent leur connaissance.
Solution trouvée, ayez la courtoisie de porter votre statut résolu. Afin que votre problème soit classé, et serve de référence pour d’autres cas similaires.

Répondre à Mike-31

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

pitchoooo, le vendredi 24 octobre 2008 à 10:31:04

Salut
moi j'avais fait cette macro pour rechercher une cellule qui contenait une certaine chaine de caractere ici ------Application----- et je supprimais toutes les cellules apres si sa peut t'aider .

Sub appli()
Dim i As Long
Dim j As Long
Dim k As String
Dim kk As String
i = 1
jj = 65
j = 65
k = Chr(j)
kk = Chr(jj)
For jj = 65 To 72 Step 1
kk = Chr(jj)
For j = 65 To 90 Step 1
k = Chr(j)
'Do While ActiveSheet.Range(kk & k & i).Value <> ""
'For jj = 65 To 73 Step 1
'For j = 65 To 90 Step 1
Do While i <> 1000

If ActiveSheet.Range(kk & k & i).Value = " ------------Applications (WMI)---------" Then
ActiveSheet.Range(kk & k & i & ":IV" & i).Delete Shift:=xlToLeft
End If
i = i + 1
Loop
i = 1
Next
'Loop
Next

End Sub

Voila
++

Répondre à pitchoooo

Posez votre question Répondre

Résultats pour Récupérer les valeurs d'une colonne excel

Télécharger Business Valuation Model Excel Business Valuation Model Excel est un logiciel de gestion de chiffre d'affaire conçu pour les entreprises. Il permet d'évaluer l'efficacité d'une entreprise en proposant des indicateurs de revenus et coût d'une entreprise. L'application peut établir... www.commentcamarche.net/telecharger/telecharger-34057332-business-valuation-model-excel

Problème avec conditions dans colonne excel (Résolu) Bonjour à tous, Voila mon problème. je souhaite créer une condition sur une colonne excel. Pour l'exemple qui suit voici quelques informations: Colonne F = Informations à changer en fonction de la condition H2 = Notions H3 = Pratique... www.commentcamarche.net/forum/affich-5225297-probleme-avec-conditions-dans-colonne-excel

Separer adresse cp et ville dans excel (Résolu) bonjour j'ai récupéré un fichier excel ou dans la meme colonne se trouve l'adresse le code postal et la ville je souhaiterais séparer cette colonne en 3 (une pour ladresse lautre pour le code postal et une pour la ville) mais je ne sais pas... www.commentcamarche.net/forum/affich-2618011-separer-adresse-cp-et-ville-dans-excel

1 2 3 Suivant

Résultats pour Récupérer les valeurs d'une colonne excel

EXCEL : La fonction INTERSECTIONVous avez un tableau constitué de lignes et de colonnes. Vous voulez connaitre la valeur de la cellule située à une intersection Ligne / Colonne de votre tableau.... Exemple : Votre tableau : - commence en C3, jusqu'en F3 ... pour les... www.commentcamarche.net/faq/sujet-8642-excel-la-fonction-intersection

1 2 3 Suivant

Résultats pour Récupérer les valeurs d'une colonne excel

Une formule excel pour ... (Résolu)Bonjour à tous, Est-ce que quelqu'un aurait une formule pour ceci : voilà je récupère un fichier excel 2000 avec la colonne A qui comporte 3 informations à la suite : NOM PRENOM ADRESSE NOM PRENOM ADRESSE sur des centaines de lignes. Comment... www.commentcamarche.net/forum/affich-8754293-une-formule-excel-pour

Convertir un csv en un xls (Résolu)bonjour, j'ai un fichier csv avec comme séparateur des points virgule. Je voudrais récupérer chaque champ dans une colonne excel. Comment faire? je sais que c'est possible, mais comment faire ? merci de votre aide; www.commentcamarche.net/forum/affich-997833-convertir-un-csv-en-un-xls

Historisation des données Excel (Résolu)Bonjour, j'ai une question similaire à celle posée dans le sujet "http://wwww.commentcamarche.net/forum/affich 5847197 copie de colonnes excel automatiques" mais comme la solution n'y est pas indiquée, je me permets de revenir tout en... www.commentcamarche.net/forum/affich-6866765-historisation-des-donnees-excel

1 2 3 Suivant