Discussion :

[modus57]

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.

[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 & ...

[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 :

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

="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 :

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

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

J’espère que je me suis bien expliqué.

[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

[modus57]

Bonsoir,

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

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
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

[SfJ5Rpw8]

Bonsoir,

il te faut sortir ta variable des guillemets

Code :

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

   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...

[modus57]

Bonjour bbil

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.