Selection des données

[jobar38]

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]

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:

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:

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

 

[jobar38]

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]

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]

Re : Selection des données

oui c'est bien ça!

 

[skoobi]

Re : Selection des données

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

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]

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]

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]

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]

Re : Selection des données

Peux-tu envoyer le fichier stp?

 

[jobar38]

Re : Selection des données

le voici!

Merci pour le temps passé sur le probleme!

 

[skoobi]

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:

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]

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]

Re : Selection des données

Re,

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

j'ai compris comment faire