XL 2010 Transfert de donnée d une feuille à une autre

sams96

XLDnaute Nouveau
Bonjour à tous , je me permet de venir vers vous pour savoir s'il serait possible de m'aider à réaliser la macro suivante :
Dans la colonne B , on voit des lignes qui sont remplies et d 'autres non :
on va se concentrer seulement sur celles qui sont remplies ( à part les lignes commençant par CH et FDS) et les copier dans la feuilles 2 ,
Je veux donc que cette macro me copie toute ces données dans la feuille 2 , avec une condition que les lignes commençant par ( CH et FDS ne soient pas prises en compte ) .
Vous trouverez dans la feuille 2 le résultat rechercher .
Merci par avance .
 

Pièces jointes

  • Classeur22 vbexec (1).xlsx
    41.5 KB · Affichages: 7

job75

XLDnaute Barbatruc
Bonsoir sams96,

Voyez le fichier joint et cette macro dans le code de Feuil2 :
VB:
Private Sub Worksheet_Activate()
Dim ncol%, tablo, resu(), i&, x$, n&, j%
ncol = 14 'suivant besoin
tablo = Feuil1.UsedRange.Resize(, ncol + 6) 'matrice, plus rapide
ReDim resu(1 To UBound(tablo), 1 To ncol)
For i = 15 To UBound(tablo)
    x = tablo(i, 2)
    If x <> "" And x <> "CH" And x <> "FDS" Then
        n = n + 1
        resu(n, 1) = x
        For j = 2 To ncol
            resu(n, j) = tablo(i, j + 6)
        Next j
    End If
Next i
'---restitution---
If FilterMode Then ShowAllData 'si la feuille est filtrée
With [C13] 'cellule à adapter
    If n Then .Resize(n, ncol) = resu
    .Offset(n).Resize(Rows.Count - n - .Row + 1, ncol).ClearContents 'RAZ en dessous
End With
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub
Elle se déclenche quand on active la feuille.

L'exécution est très rapide car on utilise des tableaux VBA.

Feuil2 doit être formatée préalablement car les formats ne sont pas copiés.

Bonne nuit.
 

Pièces jointes

  • Transfert(1).xlsm
    52.2 KB · Affichages: 15

sams96

XLDnaute Nouveau
Je voudrais savoir s'il serait possible de m'aider à créer une autre boucle qui va copier les colonnes B,C,H,K,N dans la feuille 2, cette boucle elle devra supprimer la catégorie 'CH' et ses sous catégorie , ainsi que la catégorie "FDS" et ses sous-catégories , sans oublier que mon tableau dans la feuille 1 est dynamique ,
Vous trouverez le résultat attendu dans la feuille 2 merci d 'avance.
 

Pièces jointes

  • Transfert(1).xlsm
    46.1 KB · Affichages: 4

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof