Extraire données
Capitaine Trop top
Messages postés
25
Statut
Membre
-
Capitaine Trop top Messages postés 25 Statut Membre -
Capitaine Trop top Messages postés 25 Statut Membre -
Bonjour,
je voudrais solliciter votre aide aujourd'hui car j'ai un fichier excel avec des données client sur une feuille je voudrais les extraire vers une autre feuille afin d'effectuer des calculs sur ces données là , grâce à une macro ou une commande vba je vous remercie d'avance pour votre aide
je voudrais solliciter votre aide aujourd'hui car j'ai un fichier excel avec des données client sur une feuille je voudrais les extraire vers une autre feuille afin d'effectuer des calculs sur ces données là , grâce à une macro ou une commande vba je vous remercie d'avance pour votre aide
A voir également:
- Vba extraire des données d'un tableau excel vers un autre tableau
- Tableau word - Guide
- Trier un tableau excel - Guide
- Tableau ascii - Guide
- Imprimer un tableau excel - Guide
- Tableau croisé dynamique excel exemple - Guide
2 réponses
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
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
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
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 !
