Selection des données

jobar38 · 23 Janvier 2009

Bonjour,

je voudrais selectionner certaines colonnes et lignes de plusieurs fichiers pour les copiers dans un seule feuille excel mais j'ai un probleme de syntaxe

Sheets("COMBATTANTS").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 2 To Sheets.Count
Range(Sheets(s)("C2:E1281")).Select
Selection.Copy_ [A65000].End(xlUp).Offset(1, 0)
Next s

Est-ce que quelqu'un peut venir à mon secour?

skoobi · 23 Janvier 2009

Re : Selection des données

Bonjour,

tu veux copier plusieurs fichiers ou plusieurs feuilles?
D'après ton code, c'est plusieurs feuilles...

Une chose que je remarque, le "_" en trop:

Code:

Selection.Copy[COLOR=red][B]_[/B][/COLOR] [A65000].End(xlUp).Offset(1, 0)

Le Select n'est pas nécessaire et tu as inversé Sheets et Range:

Code:

Sheets(s).Range("C2:E1281").Copy [A65000].End(xlUp).Offset(1, 0)

jobar38 · 23 Janvier 2009

Re : Selection des données

Super tu es un pro.

je veux en plus rajouter l'origine des informations dans une colonne suplémentaire avec

Value = Sheets(s).Name mais je ne sais pas ou la mettre

skoobi · 23 Janvier 2009

Re : Selection des données

Re,
Tu veux répéter le nom de la feuille dans la colonne X autant de fois que le nombre de lignes copier?

jobar38 · 23 Janvier 2009

Re : Selection des données

oui c'est bien ça!

skoobi · 23 Janvier 2009

Re : Selection des données

Si j'ai bien compté (en pleine digestion ):

Code:

Range([[B][COLOR=red]A[/COLOR][/B]65000].End(xlUp).Offset(1, 0),[[COLOR=red][B]A[/B][/COLOR]65000].End(xlUp).Offset(1280, 0)).Value = Sheets(2).Name

Remplace "A" par la colonne dans laquelle tu veux le faire apparaître.

jobar38 · 23 Janvier 2009

Re : Selection des données

Lorsque je lance la macro, il renseigne dans la colonne uniquement le nom de la premiere feuille, même si la ligne provient d'une autre.

skoobi · 23 Janvier 2009

Re : Selection des données

oupppsss,

après mon test, j'ai oublié de remplacé le "2" par un "s", tu n'as pas vu?

....Offset(1280, 0)).Value = Sheets(s).Name

jobar38 · 23 Janvier 2009

Re : Selection des données

Si, j'avais vu mais même en reprenant la valeur 'S' c'est NOK.

Il renseigne le nom de la premiere feuille pour toutes les lignes.

skoobi · 23 Janvier 2009

Re : Selection des données

Peux-tu envoyer le fichier stp?

jobar38 · 23 Janvier 2009

Re : Selection des données

le voici!

Merci pour le temps passé sur le probleme!

skoobi · 23 Janvier 2009

Re : Selection des données

Re,

Tu n'avais pas dis que le nombre de ligne pouvait varier... petit cachotier.
J'ai commenté le code, si tu as des questions, n'hésite pas:

Code:

Sub RECUPERATION()
  Dim DerLig As Long, Nbre As Long
  Sheets("COMBATTANTS").[A1].CurrentRegion.Offset(1, 0).Clear
  For s = 2 To Sheets.Count
    With Sheets(s)
    'on récupère la dernière ligne non vide de la colonne E
      DerLig = .[E65536].End(xlUp).Row
      'on calcul le nombre de ligne qui seront copiées
      Nbre = DerLig - 2 + 1
      .Range("C2:E" & DerLig).Copy [A65000].End(xlUp).Offset(1, 0)
      Range([D65000].End(xlUp).Offset(1, 0), [D65000].End(xlUp).Offset(Nbre, 0)).Value = Sheets(s).Name
    End With
  Next s
End Sub

jobar38 · 23 Janvier 2009

Re : Selection des données

je suis désolé mais comme je débute, j'ai fait en sorte de faire au plus simple pour moi.

Grace à toi j'ai compris comment faire et je t'en remercie.

@+

skoobi · 23 Janvier 2009

Re : Selection des données

Re,

t'inquiète, c'est pas grave, l'important c'est:

j'ai compris comment faire

Selection des données

jobar38

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

jobar38

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

jobar38

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

jobar38

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

jobar38

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

jobar38

XLDnaute Nouveau

Pièces jointes

skoobi

XLDnaute Barbatruc

jobar38

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

Discussions similaires