Excel Fermé

Question

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

Configuration: Windows Vista / Internet Explorer 7.0

koko · Answer

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....

koko · Answer

si tu le trouve pa di le moi je te le file

mirifadhel · Answer

Justement j 'lai pa trouvé!!!

linkromain · Answer

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

koko · Answer

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é

mirifadhel · Answer

Peux tu m'expliké un peu plus
merci

koko · Answer

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?