Discussion :

[robangos]

Quelqu'un peut-il m'aider à intégrer cette formule dans le code de mon fichier??

=SI(F13:F65008="NC Achat";60*1;SI(F13:F65008="NC Devis";60*1,5;SI(F13:F65008="NC Production";60*1,5;SI(F13:F65008="NC Fournisseur";60*2,5;""))))


Le calcul se fait en fonction du type de NC choisi dans mon formulaire et enregistre le résultat dans la colonne "I4" lorsqu'on appuie sur "valider".

Je souhaite avoir le code.

Merci en avance

[nibledispo]

bonsoir,

peut-être ceci sans garantie du gouvernement car à la vérité je ne vois pas très bien à quoi ce code aboutit :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
plage = Range("f13:f65008")
for each cel in plage
    If cel = "NC Achat" Then cel.offset(0,3) = 60
       ElseIf cel = "NC Devis" Or plage = "NC Production" Then cel.offset(0,3)    = 60 * 1.5
       ElseIf cel = "NC Fournisseur" Then cel.offset(0,3) = 60 * 2.5
Else
   cel.offset(0,3)  = ""
End If
next

mais le plus simple serait assurément une instruction select case.

Cordialement,

[robangos]

Merci nibledispo
j'ai essayé le code et ça me signale une erreur de compilation: "else sans if".

Ca ne fonctionne pas malgré le fait que j'ai renvoyé tous les codes après Then à la ligne.

j'ai une erreur 424 : objet requis sur les " cel.Offset(0, 3) = "

[nibledispo]

Bonjour,

Grossière erreur de ma part : j'ai omis de préciser set

Voici deux solutions qui j'espère répondront à ton attente:

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 essai()
 
Set plage = Range("f13:f65008")
For Each cel In plage
    If cel = "NC Achat" Then
       cel.Offset(0, 3) = 60
    ElseIf cel = "NC Devis" Or cel = "NC Production" Then
       cel.Offset(0, 3) = 60 * 1.5
    ElseIf cel = "NC Fournisseur" Then
       cel.Offset(0, 3) = 60 * 2.5
    Else
       cel.Offset(0, 3) = ""
    End If
Next
End Sub
 
.........................................................
Sub essai1()
Dim plage As Range, cel As Range
Set plage = Range("f13:f65008")
 
For Each cel In plage
    Select Case cel
    Case Is = "NC Achat"
       cel.Offset(0, 3) = 60
    Case Is = "NC Devis", "NC Production"
       cel.Offset(0, 3) = 60 * 1.5
    Case Is = "NC Fournisseur"
       cel.Offset(0, 3) = 60 * 2.5
    Case Else
       cel.Offset(0, 3) = ""
    End Select
Next
End Sub

Cordialement,

[robangos]

Bonjour nibledispo et merci de vous penchez sur mon problème

En fait les 2 versions s'exécutent sans arrêt lorsque je les introduis dans mon code. je ne sais pas si c'est moi qui les introduit mal. Prière de faire un essai dans le fichier exemple que j'ai posté tout au début pour voir si ca fonctionne. Vous en spécialiste, ça sera moins compliqué. Je me casse les ongles depuis là dessus.

[nibledispo]

Bonjour,

Les deux codes fonctionnent parfaitement.
Encore faut-il pour cela que le fichier soit adapté à celui-ci.
En effet, tu précises dans ta demande range("f13:f65008") or ton fichier ne contient rien après f13.
commence en f2 et tu verras le résultat.

Ci-dessous les mêmes codes qui prévoient le calcul de la dernière ligne occupée du fichier à traiter afin de ne pas boucler inutilement sur des lignes vides.

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 essai()
Sheets("NC").Activate
Dim plage As Range, cel As Range
derlig = Range("a65500").End(xlUp).Row 'donne la dernière ligne occupée
Set plage = Range("f2:f" & derlig)
For Each cel In plage
    If cel = "NC Achat" Then
       cel.Offset(0, 3) = 60
    ElseIf cel = "NC Devis" Or cel = "NC Production" Then
       cel.Offset(0, 3) = 60 * 1.5
    ElseIf cel = "NC Fournisseur" Then
       cel.Offset(0, 3) = 60 * 2.5
    Else
       cel.Offset(0, 3) = ""
    End If
Next
End Sub
 
'.........................................................
Sub essai1()
Dim plage As Range, cel As Range
derlig = Range("a65500").End(xlUp).Row 'donne la dernière ligne occupée
Set plage = Range("f2:f" & derlig)
 
For Each cel In plage
    Select Case cel
    Case Is = "NC Achat"
       cel.Offset(0, 3) = 60
    Case Is = "NC Devis", "NC Production"
       cel.Offset(0, 3) = 60 * 1.5
    Case Is = "NC Fournisseur"
       cel.Offset(0, 3) = 60 * 2.5
    Case Else
       cel.Offset(0, 3) = ""
    End Select
Next
End Sub

Ceci étant précisé, je ne suis pas un spécialiste de VBA mais comme toi un amateur qui essaie de progresser.
Le nombre de point attribué aux membres est trompeur. Il est plutôt le reflet de leur participation que de leur réelle capacité.
tu constateras d'ailleurs que des gens ayant peu de points sont de vrais pros.

Cordialement,

[nibledispo]

Bonsoir,

regarde les modifications sur le code feuille NC et les commentaires.

bien des choses sont selon moi à revoir.

Cordialement,

[robangos]

Merci à vous nibledispo, j'ai eu un weekend très compliqué, mais j'ai pu agencer mon code et cela m'a donné quelque chose d'acceptable.