Code de formule Excel

Version imprimable

08/12/2013, 17h53
robangos

1 pièce(s) jointe(s)

Code de formule Excel

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

bonsoir,

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

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,

09/12/2013, 05h25
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) = "

code formule

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:

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,

09/12/2013, 13h02
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.

code formule

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:

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,

09/12/2013, 21h24
robangos

Merci nibledispo. ca marche maintenant super bien.

Pa rapport à moi vous êtes expert.:ccool:

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.
10/12/2013, 06h25
nibledispo

code formule
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:

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:

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,
11/12/2013, 02h40
robangos

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.
11/12/2013, 03h48
nibledispo

1 pièce(s) jointe(s)

code formule

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
12/12/2013, 14h41
robangos

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:

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
12/12/2013, 15h10
nibledispo

code formule

bonjour,

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

Cordialement,
12/12/2013, 15h40
robangos

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
12/12/2013, 17h10
Marc-L

Bonjour,

pas besoin de compression, l'enregistrer en .xls …
12/12/2013, 18h49
robangos

1 pièce(s) jointe(s)

Merci à Marc-L pour l'info

voici le fichier
13/12/2013, 15h11
robangos

Salut nibledispo

Avez vous pu ouvrir le fichier??
13/12/2013, 15h20
nibledispo

code de formule

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,
13/12/2013, 15h45
robangos

si vous rentrez un nombre comme 3333333333dans le textbox de la date vous aurez une erreur qui renvoi au code
13/12/2013, 23h55
nibledispo

1 pièce(s) jointe(s)

Code de formulaire

Bonsoir,

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

bien des choses sont selon moi à revoir.

Cordialement,
17/12/2013, 10h58
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.