Help!!! urgent SVP PB avec cet outil qui marche pas

[marabane]

Merci de jeter un oeil sur cela car le pb est serieux pour moi et je m'en sort pas ! En fait j'ai modifié un premier jet que Catrice m'avait envoyé mais cela ne fonctionne pas.

Catrice, JP et les autres au secours SVP

Merci d'avanc de votre coup de main

 

[Roland_M]

Re : Help!!! urgent SVP PB avec cet outil qui marche pas

bonsoir

je ne connais pas du tout ton classeur mais il semble qu'il manque une déclaration commune pour tes variables dans ton module !?

déjà celle-ci voir pour le reste !?
Public us, zone, prof, profl, typ, puis
'et ceci > Dim mont As Long, celu As Long < apparemment inutile !?

reedit:
tu as ceci:
Sub Calcul_GP1()
Dim mont As Long, celu As Long

With Sheets("Fiche de renseignement")
us = .Range("F23").Value
zone = .Range("F21").Value
prof = .Range("F15").Value
profl = .Range("H23").Value
typ = .Range("O23").Value
puis = .Range("F25").Value
End With
If us <> 1 Then Exit Sub '<<<<<<<<<<< ce test empêche la poursuite du code qui suit !?

If us = 1 Then tourisme
If us = 2 Then util
If us = 3 Then tpm
If us = 4 Then tpv
If us = 5 Then deux_3r
'If us = 6 Then gara_vend
If us = 7 Then ecole
If us = 8 Then locat
'If us = 9 Then chantier
'If us = 10 Then speciaux

 

[marabane]

Re : Help!!! urgent SVP PB avec cet outil qui marche pas

Slt,

merci pour la reponse.

Lorsque je fait ceci : Public us, zone, prof, profl, typ, puis

il me signale une erreur "Attribut incorrect dans une procedure sub ou fonction"

quand j'enleve ceci : 'If us <> 1 Then Exit Sub

il n'affiche tjrs pas de resultat. merci de te pencher sur mon cas

 

[Roland_M]

Re : Help!!! urgent SVP PB avec cet outil qui marche pas

re

c'est normal si tu ne mets ça dans un module uniquement ! pas dans un sub !
déclaré public dans un module signifie que tes routines ont accès à tes variables
sinon tu dois les passer ! Exp: Sub Tri(MonTablo(), TotIdx)

dans un MODULE
Public us, zone, prof, profl, typ, puis

 

[marabane]

Re : Help!!! urgent SVP PB avec cet outil qui marche pas

tu es génial Roland !! je t'aurai embrassé si tu etais à coté !!!!

mille fois merci !

 

[marabane]

Re : Help!!! urgent SVP PB avec cet outil qui marche pas

cela affiche now le resultat mais il existe des cas ki fonctionne pas encore.

pourriez vous regarder SVP ?

 

[Roland_M]

Re : Help!!! urgent SVP PB avec cet outil qui marche pas

re

tu dois regarder dans tout tes sub s'ils utilisent des variables qui passe de l'un à l'autre
et si oui mettre ces variables idem dans le module avec la déclarion Public !

(j'essaye de t'expliquer le plus simplement possible car un débutant et parfois perdu avec certain terme)

 

[Roland_M]

Re : Help!!! urgent SVP PB avec cet outil qui marche pas

re

je vois ceci !?

MesPuis = Array(2, 6, 10, 14, 23, 1000)
For i = 0 To UBound(MesPuis)
If puis <= MesPuis(i) Then Exit For
Next

REEDIT: excuses je n'avais pas vu ceci plus bas > Loca1Tour1(i)
mais attention avec ce jeu là il y a danger
car si la boucle va jusqu'au bout (I ) sera +1 en sortie !
For I=1 to 10:Next >>>> en sortie I=11 !?

c'est mieux comme ceci :
Idx= 0
For i = 0 To UBound(MesPuis)
If puis <= MesPuis(i) Then Idx = I: Exit For
Next

et en bas Loca1Tour1(Idx)

encore faut t'il tester peut être si Idx = 0 alors sortie !? je sais pas !

 

[Roland_M]

Re : Help!!! urgent SVP PB avec cet outil qui marche pas

re

ton fichier nettoyé et un arrangé mais il faut voir pour le reste je sais pas très bien ce que tu souhaites et ou tu rentres tes données ce n'est pas évident du tout !

 

[Roland_M]

Re : Help!!! urgent SVP PB avec cet outil qui marche pas

re

je viens de voir d'ou venais le problème !
tu as une recherche dans un tableau:
(que je t'ai mis dans une fonction pour éviter de répéter à chaque sub cette boucle)
MesPuis = Array(2, 6, 10, 14, 23, 1000)
avec un test
If puis <= MesPuis(I) Then

mais "puis" est tiré de ta liste sur feuille dans la cellule F25 !
qui contient des mots comme cyclomoteur, scooter... !? et des chiffres de 1 à 43 !?
peut être que ta liste n'est pas correcte dans la sélection des données !?

par contre si je sélectionne des chiffres devis fonctionne !
voir classeur joint !

 

[Roland_M]

Re : Help!!! urgent SVP PB avec cet outil qui marche pas

re

petit rectificatif !(il y avait une petite erreur, un oubli de ma part !)

prendre cette version en V3 !!!!!

 

[Catrice]

Re : Help!!! urgent SVP PB avec cet outil qui marche pas

😕 Marabane, il ne faut pas changer de Fil si c'est la meme question !!
Quand tu rajoutes un Post, ça remonte dans la liste des Fil automatiquement ...
Tiens nous au courant de la suite ...

Ton fichier est corrigé dans ce Fil : https://www.excel-downloads.com/threads/probleme-avec-case.106999/

 

[marabane]

Re : Help!!! urgent SVP PB avec cet outil qui marche pas

Slt Catrice, Slt Roland M !

merci énormément pour vos réponses qui vont me permettre d'avancer considérablement !!

Excusez moi d'avoir dupliqué le fil... je me sentais un peu perdu. Excusez aussi du retard de ma reponse.

Comme j'aimerais comprendre ce que vous avez fait pour que cela marche (et compléter les cas qui manque) je vais regarder tout cela ligne par ligne. je vous dis ce sori ce qu'il en est et vous montrerai ce que j'ai fait. Merci pour votre aide si précieuse qui nous permet de mieux appréhender ces choses.

Bonne journée à vous

PS je garderai donc le fil Probleme avec case