Importer certaines donnée d'une feuille excel dans une autre

Question

Bonjour 
je voudrais importer d'une feuille excel dans une autre certaines données concernant certaines valeurs
je m'explique : pour la celule A3 = à la valeur "X" je veux importer la valeur de la celule B3, C3,D3 dans une autre feuille excel

par avance merci de votre réponse
elena

petiflamand · Answer

Bonjour voici j' espere vas t'aider
écrit pour toi.
Dim sheet As Object
Dim exldoc As Object
Dim exlapp As Object
Dim i As Integer
Dim j As Integer
Dim croix As String
    Set exlapp = CreateObject("excel.application")
    Set exldoc = exlapp.workbooks.Open(App.Path & "	a_feuille.xls")
    Set sheet = exlapp.activeWorkBook.ActiveSheet
    For i = 1 To 1000 ' metre le nomde de ligne de ta feuille excell
    'le i represente le numero de ta ligne
    'donc (I,1) I= numero de la ligne,1=numero de la colonne
        If sheet.cells(i, 1) "X" Then '1 colonne A
        a sheet.cells(i, 2) '2 colonne B
        b sheet.cells(i, 3) '3 colonne C
        c sheet.cells(i, 4) ' 4 colonne C
        End If
    Next i
Soit tu sauve tes données dans un msflexgrid pour les resortir apres dans une autre feuille

mbattache · Answer

Bonjour petiflamand,

je tiens a te remercier pour ce code il m'a bcq aider mais j'aimerais bien te demander d'autres question en faite j'ai un fichier excel qui contient presque 20 colonnes et 600 lignes et chaque colonne contient un a une liste deroulante pour trier et filtrer etc ..
et moi je voudrais pour tel mois et tel departement et tel service recuperer le nombre d'occurence de cette direction et le nombre de jours de travail etc ..
dans l'attente d'une reponse de votre part, je te fais un grand salut et je te remercie par avance et je te remercie encore une fois pour ton code ci dessus il m'a aider mais j'ai encore besoin d'aide à très bientot j'èspere.

Importer certaines donnée d'une feuille excel dans une autre

2 réponses

Votre réponse

Discussions similaires