Récupérer une variable d’un InputBox et FormulaR1C1

Version imprimable

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:

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:

&username()&

par

Code:

&TypeSituation&username()&

Cela ne fonctionne pas ?
Un petit coup de pouce svp.
Merci d’avance.

14/07/2014, 11h21
SfJ5Rpw8

bonjour,

cela veut dire quoi "cela ne fonctionne pas " que se passe-t'il ?

pour que tes formules soit plus lisible rajoute des espaces autour de ton opérateur & ...
14/07/2014, 13h47
modus57

Bonjour bbil,

Merci de t'intéresser à mon petit problème.

Voici la formule que je souhaiterai dans la cellule si le choix et 6 pour le type de situation:

Code:

="N° " & "6" & username()& "/"&TEXTE(C60;"aamm")&TEXTE(DROITE(B58;3)+1; "000")

Voilà la formule renvoyée par ma procédure (voir fichier joint)

Code:

="N° " & TypeSituation & username()& "/"&TEXTE(C60;"aamm")&TEXTE(DROITE(B58;3)+1; "000")

J’espère que je me suis bien expliqué.
14/07/2014, 15h41
SfJ5Rpw8

Je vois bien ta formule ... mais tu as oublié de poster le code qui permet de générer cette formule !!

voir aussi : Fichier joint dans vos discussions

Bonsoir,

Je vous prie de m’excuser je n’ai pas percuté.
Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub CréerSituation()
 
Columns(2).Find("*", , , , , xlPrevious).Offset(-1, 0).Select
 
Selection.EntireRow.Insert Shift:=xlDown
 
NumAdhérent = InputBox("SAISIR LE N° D' ADHÉRENT")
 
If NumAdhérent = "" Then Exit Sub
 
ActiveCell.Offset(0, -1) = NumAdhérent
 
TypeSituation = InputBox("SAISIR LE TYPE DE SITUATION :" & vbLf & "(1-2-3-4-5-6)")
 
If TypeSituation = "" Then Exit Sub
 
DateSituation = InputBox("SAISIR LA DATE DE SITUATION ")
 
If DateSituation = "" Then Exit Sub
 
ActiveCell.Offset(0, 1) = DateSituation
 
    If Right(ActiveCell.Offset(-1, 0), 2) = "DO" Then
 
        ActiveCell.FormulaR1C1 = "=""N° "" & TypeSituation & UserName ()& ""/""&TEXT(RC[1],""aamm"")&TEXT(RIGHT(R[-2]C,3)+1, ""000"")"
 
    Else
 
        ActiveCell.FormulaR1C1 = "=""N° "" & TypeSituation &  UserName () & ""/""&TEXT(RC[1],""aamm"")&TEXT(RIGHT(R[-1]C,3)+1,""000"")"
 
    End If
 
End Sub
 
Public Function UserName()
 
    UserName = Mid(Application.UserName, 1, 1) & Mid(Application.UserName, 4, 1)
 
End Function

14/07/2014, 23h22
SfJ5Rpw8

Bonsoir,

il te faut sortir ta variable des guillemets

Code:

ActiveCell.FormulaR1C1 = "=""N° " & TypeSituation & """ & UserName() & ""/""&TEXT(RC[1],""aamm"")&TEXT(RIGHT(R[-1]C,3)+1,""000"")"

sur le forum c'est facile à voir, ce qui est dans les guillemets et rouge....

tout cela en supposant que UserName est une fonction accessible dans ta feuille de calcul...
15/07/2014, 08h37
modus57

Bonjour bbil :ccool::lun:

Merci, beau coup.

Effectivement c'est tout simple.

Je n'avais jamais fait attention que ce qui est dans les guillemets et rouge, c'est super.

La fonction UserName est accessible dans la feuille de calcul.

Excellente et belle journée à vous.