Bonjour,
Je fais encore appel à vous car je n’arrive pas récupérer la variable de l’ InputBox pour l’intégrer dans la fonction FormulaR1C1.
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
Columns(3).Find("*", , , , , xlPrevious).Offset(-1, 0).EntireRow.Insert Shift:=xlDown
 
TypeSituation = InputBox("SAISIR LE TYPE DE SITUATION :" & vbLf & "(1-2-3-4-5-6)")
 
If TypeSituation = "" Then Exit Sub
 
If Right(ActiveCell.Offset(-1, 0), 2) = "DO" Then
 
    MsgBox "vrai"
    ActiveCell.FormulaR1C1 = "=""N° ""&username()&""/""&TEXT(RC[1],""aamm"")&TEXT(RIGHT(R[-2]C,3)+1, ""000"")"
 
Else
 
    MsgBox "faux"
    ActiveCell.FormulaR1C1 = "=""N° ""&username()&""/""&TEXT(RC[1],""aamm"")&TEXT(RIGHT(R[-1]C,3)+1,""000"")"
 
End If
Si je modifie
Code : Sélectionner tout - Visualiser dans une fenêtre à part
&username()&
par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
&TypeSituation&username()&
Cela ne fonctionne pas ?
Un petit coup de pouce svp.
Merci d’avance.