Code de formule Excel

**robangos** · 08/12/2013, 18h53

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** · 08/12/2013, 21h37

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** · 09/12/2013, 06h25

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** · 09/12/2013, 07h18

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** · 09/12/2013, 14h02

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** · 09/12/2013, 15h35

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,

**robangos** · 09/12/2013, 22h24

Merci nibledispo. ca marche maintenant super bien.

Pa rapport à moi vous êtes expert.

Encore une question svp:

je voudrai faire un code comme le précédent qui va me permettre de calculer la différence entre les dates contenues dans la colonne "M4" et celles contenues dans la colonne "A4" et enrégistrer la reponse en "jour" dans la colonne "O4"

Merci déjà si c'est faisable.

**nibledispo** · 10/12/2013, 07h25

Bonjour,

Voici le code te donnant le nombre de jours.
Si la formule vaut pour les autres cellules, faire une boucle "for next" sur l'ensemble des lignes du fichier. M4 devient alors "range("M" & i)" , idem pour A4 et O4.

Code :

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

1
2
 
Range("O4") = DateDiff("d", Range("M4"), Range("A4"))

Tu peux aussi, plutôt que le code, loger la formule ci-dessous dans la cellule O4 du tableur.

Code :

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

1
2
 
=DATEDIF(M4;A4;"d")

Remarque : A4 doit être la date la plus proche. Si ce n'est le cas inverser M4 et A4.

Cordialement,

**robangos** · 11/12/2013, 03h40

Salut nibledispo

j'ai essayé toute la journée mais ça ne marche pas. j'ai fait une boucle For et next avec le premier code en me basant sur le code que vous avez fait plus haut mais ça me donne toujours 0 quel que soient les dates rentrées. Je ne sais plus comment procéder.
Merci pour tout le temps que vous avez pris pour me donner un coup de main.

**nibledispo** · 11/12/2013, 04h48

Bonjour,

Ci-joint le fichier exemple que tu as fourni.
J'ai rajouté dans le 1er code de la feuille NC la formule à l’intérieur de la boucle.
du fait qu'il s'agit d'une boucle "for each ... next" l'instruction est modifiée mais peut rester la même si on ajoute un compteur "i = i + 1".

Pour indication : pour un résultat en jour "M -A" est également valable mais il est préférable de garder l'instruction car si un jour tu veux un résultat en mois ou année il suffira de remplacer "d" par "m" ou "y".

Cordialement

**robangos** · 12/12/2013, 15h41

Salut nibledispo
j'espère que vous vous portez bien.
Je faisais d,abord les test avant de vous revenir. Je pense que la formule de la différence de date doit avoir sa fonction toute seule car depuis hier je fais des modifications mais rien. Lorsque je mets cette formule exactement comme mentionné plus haut, et que je rentre des chiffre qui ne representent pas une date dans le textbox qui rempli la colonne A, j'ai une erreur d'éxécution '6' dépassement de capacité.
lorsque je clique sur déboguage ca me ramène à la formule:

Code :

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

cel.Offset(0, 9) = DateDiff("d", cel.Offset(0, -5), cel.Offset(0, 6))

Je souhaite aussi imposer la saisie d'une date en bonne et due forme dans les textbox remplissant les colonnes A et L sinon envoyer un message d'erreur et retourner au formulaire.

Merci

**nibledispo** · 12/12/2013, 16h10

bonjour,

peux-tu me joindre ton fichier sans données confidentielles que je vois si-possible la cause de ce comportement mystérieux ?

Cordialement,

**robangos** · 12/12/2013, 16h40

Je vous l'envoie dans 2h environ car je n'ai pas de logiciel de compression dans la machine sur laquelle je suis présentement.
Merci

**Marc-L** · 12/12/2013, 18h10

Bonjour,

pas besoin de compression, l'enregistrer en .xls …

**robangos** · 12/12/2013, 19h49

Merci à Marc-L pour l'info

voici le fichier

**robangos** · 13/12/2013, 16h11

Salut nibledispo

Avez vous pu ouvrir le fichier??

**nibledispo** · 13/12/2013, 16h20

bonjour,

j'ai pu l'ouvrir mais je ne comprends pas le problème. en colonne O tu as bien le nombre de jour.
par contre, il faudrait si la colonne L n'est pas renseignée éviter d'avoir un résultat négatif. Une simple condition if ....

Cordialement,