Discussion :

[bebe1310]

Bonjour,

j'ai un petit soucis avec la varible "choix". En effet, la variable choix représente le nom d'une des feuilles que je choisi lors $que le message me le demande.
Le probleme se présente lorqu'il effectue la derniere ligne ci-dessous

Pouvez-vous m'aider
Merci par avance

Voici le debut de ma macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim mois As String
Dim moisannee As String
Dim x, y, z As Variant
Dim choix As String
xxx:
  choix = InputBox("Indiquer le mois pour la mise à jour des moyennes")
  choix = "Le mois choisi est " & choix & ". Etes-vous sûr ?"
  'MsgBox Oui + Non
Select Case MsgBox(mois, vbYesNoCancel, "Validation du mois")
Case vbYes


    Mareponse = MsgBox("Voulez-vous vraiment mettre à jour les MOYENNES ?", vbYesNo + vbQuestion, "Mise à jour des moyennes")
    If Mareponse = vbYes Then
    Sheets("GENERAL").Select
        Range("O7").Select
            Worksheets("GENERAL").Range("O7").FormulaR1C1 = Worksheets("GENERAL").Range("O7").FormulaR1C1 + "+'choix'!R13C[-5]"

[bebe1310]

Voici la reponse pour ceux que ca interesse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("GENERAL").Range("O7").FormulaR1C1 = Worksheets("GENERAL").Range("O7").FormulaR1C1 & "+'" & choix & "'!R13C[-5]"