Bonjour à tous,
Je suis en train de créer un fichier permettant d'afficher différents tableaux correspondants aux ventes sur un marché choisi.
Il y a deux feuilles : une affichant le tableau des ventes pour le marché demandé ("Bodega") et l'autre contenant les informations sur chaque marché mais non utilisable simplement car il y a un tableau distinct par marché !("BD marché").
Voici la macro avec en jaune mon souci :
Sub Macro1()
'
' Macro1 Macro
Range("C1").Select
Selection.Copy
Sheets("BD marché").Select
Range("A1").Select
Cells.Find(What:="MERCADO DESTINO: ANGOLA", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.End(xlToRight).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Bodegas").Select
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveSheet.Paste
End Sub
En fait, le texte en jaune est le résultat de ce que j'ai copié plus tôt :
Range("C1").Select
Selection.Copy
Cette cellule CA contient le texte qui va permettre avec l'outil rechercher de retrouver le tableau du marché en question et de le copier dans la feuille "bodega". Le problème, c'est que la macro ne prend pas en compte la cellule copié mais le texte affiché lors de l'enregistrement de la macro. A savoir ici le marché de l'Angola.
Je veux pouvoir utiliser cette macro lorsque le nom du pays change.
Merci de votre aide, et faite moi savoir si ce n'est pas compréhensible !
Amaury
Je suis en train de créer un fichier permettant d'afficher différents tableaux correspondants aux ventes sur un marché choisi.
Il y a deux feuilles : une affichant le tableau des ventes pour le marché demandé ("Bodega") et l'autre contenant les informations sur chaque marché mais non utilisable simplement car il y a un tableau distinct par marché !("BD marché").
Voici la macro avec en jaune mon souci :
Sub Macro1()
'
' Macro1 Macro
Range("C1").Select
Selection.Copy
Sheets("BD marché").Select
Range("A1").Select
Cells.Find(What:="MERCADO DESTINO: ANGOLA", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.End(xlToRight).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Bodegas").Select
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveSheet.Paste
End Sub
En fait, le texte en jaune est le résultat de ce que j'ai copié plus tôt :
Range("C1").Select
Selection.Copy
Cette cellule CA contient le texte qui va permettre avec l'outil rechercher de retrouver le tableau du marché en question et de le copier dans la feuille "bodega". Le problème, c'est que la macro ne prend pas en compte la cellule copié mais le texte affiché lors de l'enregistrement de la macro. A savoir ici le marché de l'Angola.
Je veux pouvoir utiliser cette macro lorsque le nom du pays change.
Merci de votre aide, et faite moi savoir si ce n'est pas compréhensible !
Amaury