Excel

mirifadhel Messages postés 6 Statut Membre -  
 koko -
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. koko
     
    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
  2. koko
     
    si tu le trouve pa di le moi je te le file
    0
  3. mirifadhel Messages postés 6 Statut Membre
     
    Justement j 'lai pa trouvé!!!
    0
  4. linkromain Messages postés 78 Statut Membre
     
    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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. koko
     
    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
  7. mirifadhel Messages postés 6 Statut Membre
     
    Peux tu m'expliké un peu plus
    merci
    0
  8. koko
     
    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