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