Excel
mirifadhel
Messages postés
6
Statut
Membre
-
koko -
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
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
A voir également:
- Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Excel trier par ordre croissant chiffre - Guide
7 réponses
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....
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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é
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é
