Selection des données

skoobi

XLDnaute Barbatruc

• 23 Janvier 2009

• #2

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)

 

Vote positif 0 Vote négatif

J

jobar38

Guest

• 23 Janvier 2009

• #3

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

 

Dernière modification par un modérateur: 23 Janvier 2009

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 23 Janvier 2009

• #4

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?

 

Vote positif 0 Vote négatif

J

jobar38

Guest

• 23 Janvier 2009

• #5

Re : Selection des données

oui c'est bien ça!

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 23 Janvier 2009

• #6

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.

 

Vote positif 0 Vote négatif

J

jobar38

Guest

• 23 Janvier 2009

• #7

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.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 23 Janvier 2009

• #8

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

 

Vote positif 0 Vote négatif

J

jobar38

Guest

• 23 Janvier 2009

• #9

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.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 23 Janvier 2009

• #10

Re : Selection des données

Peux-tu envoyer le fichier stp?

 

Vote positif 0 Vote négatif

J

jobar38

Guest

• 23 Janvier 2009

• #11

Re : Selection des données

le voici!

Merci pour le temps passé sur le probleme!

 

Pièces jointes

• TOURNOI.zip

  16.8 KB · Affichages: 28
• TOURNOI.zip

  16.8 KB · Affichages: 29
• TOURNOI.zip

  16.8 KB · Affichages: 28

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 23 Janvier 2009

• #12

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

 

Vote positif 0 Vote négatif

J

jobar38

Guest

• 23 Janvier 2009

• #13

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.

@+

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 23 Janvier 2009

• #14

Re : Selection des données

Re,

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

j'ai compris comment faire

Cliquez pour agrandir...

😉

 

Vote positif 0 Vote négatif