Extraire données
Fermé
Capitaine Trop top
Messages postés
25
Date d'inscription
lundi 18 février 2013
Statut
Membre
Dernière intervention
20 mars 2013
-
18 févr. 2013 à 11:54
Capitaine Trop top Messages postés 25 Date d'inscription lundi 18 février 2013 Statut Membre Dernière intervention 20 mars 2013 - 19 févr. 2013 à 15:05
Capitaine Trop top Messages postés 25 Date d'inscription lundi 18 février 2013 Statut Membre Dernière intervention 20 mars 2013 - 19 févr. 2013 à 15:05
A voir également:
- Vba extraire des données d'un tableau excel vers un autre tableau
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Comment faire un tableau - Guide
- Trier un tableau excel - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
2 réponses
via55
Messages postés
14502
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2024
2 736
18 févr. 2013 à 13:14
18 févr. 2013 à 13:14
Bonjour
Pourquoi vouloir passer par du VBA alors que tu peux
ou dupliquer simplement la 1ere feuille par clic dur l'onglet
ou copier les données et les coller dans une autre
ou les inserer dans la 2nde feuille par formule style =Feuil1!A1
ou créer un tableau dynamique croisé sur une nouvelle feuille
Cdlmnt
Pourquoi vouloir passer par du VBA alors que tu peux
ou dupliquer simplement la 1ere feuille par clic dur l'onglet
ou copier les données et les coller dans une autre
ou les inserer dans la 2nde feuille par formule style =Feuil1!A1
ou créer un tableau dynamique croisé sur une nouvelle feuille
Cdlmnt
Capitaine Trop top
Messages postés
25
Date d'inscription
lundi 18 février 2013
Statut
Membre
Dernière intervention
20 mars 2013
18 févr. 2013 à 14:34
18 févr. 2013 à 14:34
Je sais mais je voudrais automatiser la chose genre à chaque fois que je rentre les données d'un client sur la feuille client , elle me sort directement les données sur l'autre feuille pour effectuer les calculs
via55
Messages postés
14502
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2024
2 736
18 févr. 2013 à 15:47
18 févr. 2013 à 15:47
Que veux tu exactement ?
Que si tu as rentres des données dans la feuille Client par en B2, C2,D2 elles soient copiées dans la feuille Calcul en B2, C2,D2
ou que lorsque tu rentres des données client en B2, C2,D2 ou en B5,C5,D5 elles soient copiées toujours dans calcul B2,C2 et D2 ?
Que si tu as rentres des données dans la feuille Client par en B2, C2,D2 elles soient copiées dans la feuille Calcul en B2, C2,D2
ou que lorsque tu rentres des données client en B2, C2,D2 ou en B5,C5,D5 elles soient copiées toujours dans calcul B2,C2 et D2 ?
Capitaine Trop top
Messages postés
25
Date d'inscription
lundi 18 février 2013
Statut
Membre
Dernière intervention
20 mars 2013
18 févr. 2013 à 16:10
18 févr. 2013 à 16:10
si je rentre des données client en B2 C2 D2 elle soit recopier dans une autre feuille en B2 C2 D2
via55
Messages postés
14502
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2024
2 736
18 févr. 2013 à 16:27
18 févr. 2013 à 16:27
Ouvrir Editeur avec ALT F11
Dans le worksheet de la feuille correspondant au client mettre le code :
Private Sub Worksheet_Change(ByVal Target As Range)
nom2 = "Feuil3"
x = Target.Row
y = Target.Column
Sheets(nom2).Cells(x, y).Value = ActiveSheet.Cells(x, y).Value
End Sub
En remplaçant Feuil3 par le nom de ta feuille de calcul
Est ce bien ce que tu désirais ?
Cdlmnt
Dans le worksheet de la feuille correspondant au client mettre le code :
Private Sub Worksheet_Change(ByVal Target As Range)
nom2 = "Feuil3"
x = Target.Row
y = Target.Column
Sheets(nom2).Cells(x, y).Value = ActiveSheet.Cells(x, y).Value
End Sub
En remplaçant Feuil3 par le nom de ta feuille de calcul
Est ce bien ce que tu désirais ?
Cdlmnt
Capitaine Trop top
Messages postés
25
Date d'inscription
lundi 18 février 2013
Statut
Membre
Dernière intervention
20 mars 2013
18 févr. 2013 à 16:59
18 févr. 2013 à 16:59
c'est bien ce que je désire mais là je me rend compte d'un problème c'est que le tableau sur la feuille source n'est pas dispatché de la même manière que dans la feuille calcul est ce que c'est possible d'extraire une à une chaque donnée ?
via55
Messages postés
14502
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2024
2 736
18 févr. 2013 à 17:13
18 févr. 2013 à 17:13
oui mais il faut savoir chaque fois où la mettre !
donc faire des conditions dans ton code style
xs=target.row:ys=target.column
if target.address="$B$2" then xd=3:yd=5
if .......
et à la fin des if changer la ligne
Sheets(nom2).Cells(xd, yd).Value = ActiveSheet.Cells(xs, ys).Value
c'est pour cela que je pense que c'est plus pratique de faire référence dans la feuille de calcul à la feuille client sans passer par du vba
si tu veux en B2 de calcul ce qu'il a en A2 de la feuille nommée "client" dans le même classeur il suffit dans la cellule B2 de mettre =client!A2
A toi de voir !
donc faire des conditions dans ton code style
xs=target.row:ys=target.column
if target.address="$B$2" then xd=3:yd=5
if .......
et à la fin des if changer la ligne
Sheets(nom2).Cells(xd, yd).Value = ActiveSheet.Cells(xs, ys).Value
c'est pour cela que je pense que c'est plus pratique de faire référence dans la feuille de calcul à la feuille client sans passer par du vba
si tu veux en B2 de calcul ce qu'il a en A2 de la feuille nommée "client" dans le même classeur il suffit dans la cellule B2 de mettre =client!A2
A toi de voir !