Discussion :

[rossemma]

bonsoir à tous,

on m'a chargé de travailler sur un fichier qui comporte du code VBA car je connais un (petit) peu de VBA
mais là je cale

je dois transformer ceci ==>

Code formule :

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

=SI(OLDJanvier!F9<>"";(INDEX(congés;EQUIV(OLDJanvier!$F9;Diver!$B$3:$B$23;0);3))+(SI(OLDJanvier!$E9<>"";SI(OLDJanvier!$E9<=Diver!$B$28;Diver!$B$31;)));)

pour l'insérer dans :

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim x As Byte
Dim T As Variant
Dim T1 As Variant
 
For x = 9 To 39
 
    If Application.Intersect(Target, Range("B9:G39")) Is Nothing Then
    Else
        If (Range("D" & x) - Range("C" & x)) <= DIVERS.Range("A6") Then
        T = DIVERS.Range("A5")
        Else
        T = (Range("D" & x) - Range("C" & x)) - DIVERS.Range("A5")
        End If
'        If Range("F" & x) <> "" Then
'       T1 =
'       else
'       end if
 
 
        Range("H" & x) = (Range("E" & x) - Range("B" & x) + Range("G" & x)) - T + T1 'calcul prestation journalière
        Range("I" & x) = Range("H" & x) - DIVERS.Range("A4") 'calcul boni du jour
        Range("J" & x) = Range("I" & x) * -1 'calcul mali du jour
 
        Range("L" & x) = Range("K" & x) * -1 'calcul mali du mois
        Range("M" & x) = Range("K" & x) + Range("C3") - Range("C4") 'calcul boni cumul
        Range("N" & x) = Range("M" & x) * -1 'calcul mali cumul

Merci je bloque grave

[ARTURO83]

Bonjour,

Servez-vous de l'enregistreur de macro pour obtenir votre formule en VBA, ce qui donne

Code :

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

ActiveCell.FormulaR1C1 = "=IF(OLDJanvier!R[7]C[-3]<>"""",(INDEX(""congés"",MATCH(OLDJanvier!R[7]C6,Diver!R3C2:R23C2,0),3))+(IF(OLDJanvier!R[7]C5<>"""",IF(OLDJanvier!R[7]C5<=Diver!R28C2,Diver!R31C2))),)"

Remplacez ensuite "ActiveCell" par la plage sur laquelle doit s'appliquer cette formule, exemple plage G1:G20

Code :

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

Range("G2:G20").FormulaR1C1 = "=IF(OLDJanvier!R[7]C[-3]<>"""",(INDEX(congés,MATCH(OLDJanvier!R[7]C6,Diver!R3C2:R23C2,0),3))+(IF(OLDJanvier!R[7]C5<>"""",IF(OLDJanvier!R[7]C5<=Diver!R28C2,Diver!R31C2,))),)"

Cdlt

[ZTeddy]

Bonsoir,

Le code devrait ressembler à ça.

Pourquoi à tu choisi c'est évènement ? (Private Sub Worksheet_SelectionChange(ByVal Target As Range))
Besoin que le code démarre sur une sélection?

J'ai mis les variable en variant car je connait le format des valeurs (Texte "as string", chiffre "as long").
Si c'est du texte l'addition n'est plus la même, cela devient (resultaFinal = resulta1 & " " & résulta2).

Je pense bien que ce code doit être travaillé encore, car il manque des infos, mais l'idée est là!

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
 
 
Sub Test()	
        Dim oCherche as Range
	Dim resulta1 as variant	
	Dim resulta2 as variant
	Dim resultaFinal as variant
 
	'** SI(OLDJanvier!F9<>"";
	if worksheet ("OLDJanvier").range("E=F9").value <> "" then
 
		'** INDEX(congés;EQUIV(OLDJanvier!$F9;Diver!$B$3:$B$23;0);3)
		set oCherche = range("B3:B23").find (what:="congés", lookAt:=xlEntier)
		resulta1 = oCherche.Offset(0,3).value
 
			'** SI(OLDJanvier!$E9<=Diver!$B$28;
			if worksheet ("OLDJanvier").range("E9").value <= worksheet ("Diver").range("B28").value then
				'** Diver!$B$31;
				resulta2 = worksheet ("Diver").range("B31").value
			'** ;"")
			else
				resulta2 = ""
			end if
 
	else
		resulta1 = ""
	end if
 
		'** Faux gérer le cas des 2 résultats vide
		resultaFinal = resulta1 + résulta2
 
 
	'** Ici tu vois comment le visualiser comme msgbox ou l'écrire sur une cellule:
		MsgBox resultaFinal
end sub