Parcourir tableau puis copier les données dans un autre tableau

Fermé

juju19942003 Messages postés 10 Date d'inscription jeudi 12 juin 2014 Statut Membre Dernière intervention 24 juin 2014 - 23 juin 2014 à 09:04
juju19942003 Messages postés 10 Date d'inscription jeudi 12 juin 2014 Statut Membre Dernière intervention 24 juin 2014 - 23 juin 2014 à 14:12

Bonjour,

Alors voilà je suis débutant en vba et excel et je me tourne vers vous pour de l'aide.

J'ai un tableau dans la feuil1 ou tous les employés sont mélangés (famille, nom, fixe, mobile, société). En vba comment est ce qu'on parcours le tableau pour que à chaque fois que l'on tombe sur une ligne ou l'employé appartient a la société 2CB, cela l'ajoute dans la feuille nommé CB?

Pour le moment voici mon code :

Sub lstentreprise()
Dim i As Long 'ligne

Dim j As Integer 'colonne

Dim DerniereColonne As Integer 'selection derniere colonne
DerniereColonne = Range("A1").CurrentRegion.End(xlToRight).Column

Dim DerniereLigne As Long 'selection derniere ligne
DerniereLigne = Range("A1").CurrentRegion.End(xlDown).Row

'parcours des société pour affecter l'employé
For j = 1 To DerniereColonne
For i = 1 To DerniereLigne
If ActiveSheet.Cells(i, 5) = "2CB" Then
Worksheets("2CB").Rows.Add
End If
Next
Next
End Sub

Merci de vôtre aide.

A voir également:

Parcourir tableau puis copier les données dans un autre tableau
Tableau croisé dynamique - Guide
Tableau ascii - Guide
Tableau word - Guide
Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
Tableau de combinaison loto 5/90 - Forum Excel

6 réponses

Réponse 1 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
23 juin 2014 à 10:03

Bonjour,

tous les employés sont mélangés (famille, nom, fixe, mobile, société)

Peut-etre, mais quand meme pas de melange dans les colonnes ?????

Réponse 2 / 6

juju19942003 Messages postés 10 Date d'inscription jeudi 12 juin 2014 Statut Membre Dernière intervention 24 juin 2014
23 juin 2014 à 10:46

non pas de dans les colonnes mais mélangé par société.
Par exemple :
famille nom fixe mobile société
convergent cizaire 0385380025 0616789630 2CB
convergent richou 0385390208 0671256394 EBM
convergent tremeau 0385663230 0689755568 2CB
etc...

Réponse 3 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 23/06/2014 à 11:56

Re,

les onglets sont deja crees ???

Vous n'avez besoin que des 2CB, pas les autres ????

Réponse 4 / 6

juju19942003 Messages postés 10 Date d'inscription jeudi 12 juin 2014 Statut Membre Dernière intervention 24 juin 2014
23 juin 2014 à 12:12

les onglets sont déjàs créer, j'ai besoin que de 2CB.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
23 juin 2014 à 13:57

Re,

Sub lstentreprise()
    Dim Nb As Integer, Lig As Long, Point As Integer, Col_E As Range, derlig As Long
    
    With Worksheets("feuil1")
        Rech = "2CB"
        'derniere cellule non vide colonne A
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        'mise en memoire infos colonne E
        Set Col_E = .Range("E2:E" & derlig)
        'Recherche du nombre de 2CB
        Nb = Application.CountIf(Col_E, Rech)
        If Nb > 0 Then
            'ligne de depart
            Lig = 1
            'premiere cellule vide 2CB colonne A
            derlig = Worksheets("2CB").Range("A" & Rows.Count).End(xlUp).Row + 1
            'boucle de recherche
            For Point = 1 To Nb
                'ligne ou se trouve 2CB
                Lig = .Columns("E").Find(Rech, .Cells(Lig, "E"), , xlWhole).Row
                'Ecriture Tableau
                .Range("A" & Lig & ":E" & Lig).Copy Worksheets("2CB").Range("A" & derlig & ":E" & derlig)
                'plus 1
                derlig = derlig + 1
            Next Point
        End If
    End With
End Sub

Réponse 6 / 6

juju19942003 Messages postés 10 Date d'inscription jeudi 12 juin 2014 Statut Membre Dernière intervention 24 juin 2014
23 juin 2014 à 14:12

merci beaucoup ca marche :)

Discussions similaires

ou sont les bananes ?

Tableau croisé dynamique avec plusieurs en-têtes identiques

Bibliothèque

exo pix

tableaux croisés dynamique

Discussions similaires

Newsletters