Bonjour à tous et merci d'avance de prendre le temps de lire ce message.
J'ai une liste déroulante de choix (region1, region2 region3...)
Lorsque je sélectionne l'une des régions dans ce menu déroulant, je vais avoir automatiquement (via de nombreuses formules et un tableau) un résultat s'affichant dans une cellule de ma feuille.
Mon objectif c'est via une macro, de copier ce résultat pour chacune de mes régions et de le mettre en colonne.
Ex:
je sélectionne (via la macro) la region1à22 successivement dans ma liste > ça m'affiche les montants correspondants à chacune de mes régions (successivement)
et en résultat final je dois avoir:
region1 = 12345€
region2 = 98765€
Region3 = ...
Auriez vous une idée de comment faire? J'ai commencé cette macro mais elle est très incomplète!
Sub changeregion()
For Each cell In Range("L2:L27") 'plage contenant ma liste de regions
If cell.Value = "" Or cell.Value = 0 Then Exit Sub 'évite les erreurs
Sheets("Region").Range("C6") = cell.Value 'c6 = cellule contenant ma liste déroulante
Call copiesomme
Next cell
End Sub
Sub copiesomme()
For n = 12 To 37 'parce que j'ai 22 régions en tout
Range("E9").Select 'cellule dans laquelle j'ai le résultat qui s'affiche (qui sera toujours la même)
Selection.Copy
cell(5, n).Select 'endroit dans lequel je souhaite mettre mes X resultats pour mes X régions en colonne
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next n
End Sub
Merci de votre aide!
Spout
J'ai une liste déroulante de choix (region1, region2 region3...)
Lorsque je sélectionne l'une des régions dans ce menu déroulant, je vais avoir automatiquement (via de nombreuses formules et un tableau) un résultat s'affichant dans une cellule de ma feuille.
Mon objectif c'est via une macro, de copier ce résultat pour chacune de mes régions et de le mettre en colonne.
Ex:
je sélectionne (via la macro) la region1à22 successivement dans ma liste > ça m'affiche les montants correspondants à chacune de mes régions (successivement)
et en résultat final je dois avoir:
region1 = 12345€
region2 = 98765€
Region3 = ...
Auriez vous une idée de comment faire? J'ai commencé cette macro mais elle est très incomplète!
Sub changeregion()
For Each cell In Range("L2:L27") 'plage contenant ma liste de regions
If cell.Value = "" Or cell.Value = 0 Then Exit Sub 'évite les erreurs
Sheets("Region").Range("C6") = cell.Value 'c6 = cellule contenant ma liste déroulante
Call copiesomme
Next cell
End Sub
Sub copiesomme()
For n = 12 To 37 'parce que j'ai 22 régions en tout
Range("E9").Select 'cellule dans laquelle j'ai le résultat qui s'affiche (qui sera toujours la même)
Selection.Copy
cell(5, n).Select 'endroit dans lequel je souhaite mettre mes X resultats pour mes X régions en colonne
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next n
End Sub
Merci de votre aide!
Spout