Forum Discussion

Yves_Richard_74600's avatar
Yves_Richard_74600
Copper Contributor
Mar 10, 2023

Remplir une cellule en fonction d'une autre cellule

Bonjour J’ai dans une cellule(A1) le choix entre France OU Export dans une menu déroulant. Dans la cellule (B1) J’aimerai que pour le choix France afficher EUR et si Export avoir une liste de devise...
office 365
Yves_Richard_74600's avatar
Yves_Richard_74600
Copper Contributor
Mar 10, 2023
Bonsoir
je ne retrouve pas la macro pour m'en servir dans mon tableau.
Cordialement.
  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Mar 10, 2023

    Yves_Richard_74600 

    Pour afficher le code, cliquez avec le bouton droit sur l'onglet de la feuille et sélectionnez "Afficher le code" dans le menu contextuel.

    • Yves_Richard_74600's avatar
      Yves_Richard_74600
      Copper Contributor
      Mar 10, 2023
      Bonsoir
      J'ai bien récupérer le code mais j'ai un autre problème pour le modifier car j'ai trois feuilles dans mon classeur :
      FEUILLE VENTES :
      Date de Facturation # Facture F/E Dev Cours Montant brut HT
      15/02/2023 2023-001 France EUR 1,00000 1 500,00
      16/02/2023 2023-002 Export USD 0,98000 1 500,00
      FEUILLE ACHATS :
      Date Description F/E Dev Cours Dépense HT
      15-janv-23 France EUR 1,00000 500,00

      ET UNE FEUILLE DATAS :
      France Export <= Cellules B et C 44 dans feuille DATAS
      EUR USD <= Cellules B et C 45 dans feuille DATAS
      CAD
      GBP
      CHF
      AUD

      Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Range("A1"), Target) Is Nothing Then
      Application.ScreenUpdating = False
      Application.EnableEvents = False
      If Range("A1").Value = "France" Then
      Range("B1").Value = "EUR"
      Else
      Range("B1").ClearContents
      End If
      Application.EnableEvents = True
      Application.ScreenUpdating = True
      End If
      End Sub
      Encore un grand merci pour votre aide !

Resources