Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

marabane

XLDnaute Nouveau
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
 

Pièces jointes

Trier par date Trier par votes
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
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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)
 
Vote positif 0 Vote négatif
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 !
 
Dernière édition:
Vote positif 0 Vote négatif
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 !
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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 !
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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 !!!!!
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Pb mise à jour des ctrl d'un usf par boucle sur cells
Réponses
3
Affichages
1 K
ledzepfred
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…