Récupération de données

[malinsard]

Bonjour a tous,
En premier lieux, une pensée pour les personnes qui ont perdu un être chère dans la tragédie de Nice.
Ma question, je sais que le sujet à été abordé plusieurs fois mais je n'arrive pas à trouver ce que je voudrais faire.
J'ai 26 feuilles qui correspondent à l'alphabet.
Je souhaiterai pouvoir récupérer sur ces feuilles certaines données pour les transférer sur une autre en faisant un tri par ordre alphabétique. Les lignes concernées sont B,V,H et I.
Le tableau sur chaque feuille va de A1 à J48.
Merci pour votre aide, si besoin je peux fournir le classeur.

 

[Modeste]

Bonjour malinsard,

si besoin je peux fournir le classeur.

J'ai bien peur que ce ne soit incontournable Ajoutes-y, pour faire bonne mesure, quelques indications supplémentaires concernant:
- quelles données doivent être récupérées
- qu'est-ce qui permet de déterminer quelles sont ces données
- où elles doivent l'être
- ... et j'en passe ...

 

[malinsard]

Effectivement je joint le fichier pour le transfert les colonne de données qui m'intéresses sont : B,C,H et I ce qui correspond au Nom, Prénom , Tel Fixe et Tel Port.
Le transfert doit se faire sur la feuille synthèse.
Encore merci

 

[Modeste]

Re-bonjour,

Préciser les colonnes, c'était bien ... en faire autant pour les lignes eut été mieux encore J'ai considéré que tu reprenais l'ensemble des valeurs des 4 colonnes.
Je ne me suis pas occupé du tri ... les feuilles le sont déjà, triées ... non? Tu veux refaire un tri alphabétique sur les noms, sur les noms et prénoms, etc. à l'intérieur de chaque groupe?

À tester dans un module standard:

Sub recap()
Dim tabRes(), tablo()
For Each f In ThisWorkbook.Sheets
  If Len(f.Name) = 1 And Asc(f.Name) >= 65 And Asc(f.Name) <= 90 Then
  ReDim tablo(0)
  nbLigne = f.Cells(49, 2).End(xlUp).Row - 1
  If nbLigne > 0 Then
  tablo = f.Cells(2, 2).Resize(nbLigne, 8).Value
  For lig = 1 To UBound(tablo)
  ReDim Preserve tabRes(3, x)
  tabRes(0, x) = tablo(lig, 1)
  tabRes(1, x) = tablo(lig, 2)
  tabRes(2, x) = tablo(lig, 7)
  tabRes(3, x) = tablo(lig, 8)
  x = x + 1
  Next lig
  End If
  End If
Next f
Feuil1.[A1].Resize(x, 4) = Application.Transpose(tabRes)
End Sub

PS: attention au nom de la feuille SHYNTESE (au lieu de SYNTHESE)