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. 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
    1. si tu le trouve pa di le moi je te le file
      0
      1. Justement j 'lai pa trouvé!!!
        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. 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. Peux tu m'expliké un peu plus
              merci
              0
              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