Excel

Bonjour,

j'ai une question excel.J'ai un tableau avec pleins de données(plusieurs champ:exemple Pays).J'ai envi sur une autre feuille de créer un tableau dans lequel pour un pays donné j'aurai que les données relatives a ce pays.

Merci d'avance

7 réponses

  1. tt dabor tu précise le chemin de ton classeur, ensuite tu précise le nom de ton classeur é pui la ligne ke tu veu kil te recupére, é a la fin la ou tu veu kil te la mette.
    c un peu clair la?
    0
    1. Peux tu m'expliké un peu plus
      merci
      0
      1. Option Explicit

        Sub Recap_Clic()

        'Procédure assignée au bouton Copie

        'Le chemin d'accès au fichier source est saisi par une boîte InputBox.

        Dim Defaut_Source As String 'Chemin complet, par défaut, d'accès au fichier source.

        Defaut_Source = "D:\Mes donnees\...\2009\C1\C1P02.xls"

        Dim Source As String 'Chemin complet d'accès au fichier Source.

        Source = InputBox("Chemin complet du fichier source", "Fichier source", Defaut_Source)

        If Source = "" Then Exit Sub 'Pas de saisie effective

        On Error GoTo Erreur 'En cas d'erreur lors de l'ouverture du fichier source

        Application.Workbooks.Open Source 'Ouverture du fichier source

        On Error GoTo 0 'On annule la récupération des erreurs

        Dim Classeur_Source As Workbook

        Set Classeur_Source = Application.Workbooks("C1P02.xls")

        Dim Feuille_Source As Worksheet

        Set Feuille_Source = Classeur_Source.Sheets("03 08 09")

        Dim Plage_source As Range

        Set Plage_source = Feuille_Source.Range("A3:B3")

        Dim Classeur_Cible As Workbook

        Set Classeur_Cible = ThisWorkbook

        Dim Feuille_Cible As Worksheet

        Set Feuille_Cible = Classeur_Cible.Worksheets("Recap")

        Dim Plage_Cible As Range

        Set Plage_Cible = Feuille_Cible.Range("C5:C6")

        Dim i As Byte

        For i = 1 To Plage_source.Cells.Count

        Plage_Cible.Cells(i) = Plage_source.Cells(i)

        Next i

        'Classeur_Source.Close False 'Fermeture du fichier source sans sauvegarde

        Exit Sub

        Erreur: 'En cas d'erreur lors de l'ouverture du fichier source

        MsgBox "Impossible d'ouvrir le fichier " & Source, , "Erreur"

        End Sub

        il marche, adapte le et sa devrai allé
        0
        1. Tu ouvre ton autre feuille et dans la premiere cellule tu ecris "=" et tu vas cliquer sur la clonne ou les cellules de ton choix sur ton autre feuille ainsi toutes les données entrées, sélectionnées, sur ta premiere feuille seront retranscites sur une autre feuille
          0
          1. Justement j 'lai pa trouvé!!!
            0
            1. si tu le trouve pa di le moi je te le file
              0
              1. bjr, essay mon prgm il marche il te suffi juste de précisé la cellule de ce que tu veux avoir et que tu l'adapte....
                0