IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Tirer les formules avec boucle et condition excel


Sujet :

Macros et VBA Excel

  1. #21
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 543
    Points
    15 543
    Par défaut
    Meuh non ! Si tu dois faire appel à cette procédure pour plusieurs colonnes, tu en fais une sub à laquelle tu envoies les paramètres NoColonne, NoPremièreLigne, et ValCherchée
    Et, dans la macro qui appelle, tu crées un tableau pour chaque paramètre (c'est le plus simple à remplir) tu places les N° de colonnes, NoPremièreLigne et valCherchée dans tes 3 tableaux et tu fais une boucle sur la dimension de ton tableau
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    LeTableauColonne = array(4, 7, 8, 9) ' N° des colonnes
    LeTableauLigne = array(20, 24, 27, 12) ' N° de première ligne de la plage de recherche pour les colonnes du LeTableauColonne
    LeTableauValeur(0, 5, 7, 8) 'Valeurs cherchées
    For i = 0 to ubound(LeTableauColonne)
         LaMacroQuiFaitTout (LeTableauColonne(i), LeTableauLigne(i), LeTableauValeur(i))
    Next
    Et pour ta LaMacroQuiFaitTout tu fais
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sub LaMacroQuiFaitTout(NoColonne, NoPremièreLigne,ValeurCherchée)
    Essaie ça, ça ne coûte rien et ça peut t'éclairer
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub AppelLaMacroQuifaittout()
    LaMacroQuifaittout ("T'as compris ?")
    End Sub
     
    Sub LaMacroQuifaittout(LeMot)
     MsgBox LeMot
    End Sub
    A+

    NB - N'oublie pas de supprimer la déclaration de variable NoColonne, NoPremièreLigne,ValeurCherchée et l'affectation de valeurs dans LaMacroQuifaittout
    Dans mon exemple, tu ne peux pas modifier la valeur de "LeMot"
    A toutes fins utiles et si tu savais pas

  2. #22
    Membre du Club Avatar de melodyyy
    Inscrit en
    Octobre 2006
    Messages
    401
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 401
    Points : 50
    Points
    50
    Par défaut
    ouh la je comprends plus rien...pour une cellule a tirer pour quelque colonnes ça me semble compliquer alors que la personne avec qui je travaille dit que c'est super court et super simple

  3. #23
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Points : 4 061
    Points
    4 061
    Par défaut
    564 lignes ce n'est pas enorme. Tu peut copier le code dans un fichier texte et attacher le fichier texte à un message sur ce forum. A moins que tu n'es pas le droit de divulguer le code.
    Quand au message d'erreur je ne demandais pas le numero mais le commentaire associé, s'il y en a un. Je suppose qu'il doit exister des faqs qui rescence les numeros d'erreurs et explique peut être leurs origines possible.
    Bon la ce n'est plus la peine pour le commentaire de l'erreur puisque tu as eu une reponse. Mais pour la prochaine erreur, ce serait bien de le mettre avec ton post. Ce sera plus facile pour nous t'aider.
    Pourquoi faire compliqué lorsque l'on peut faire encore plus compliqué.

  4. #24
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Points : 4 061
    Points
    4 061
    Par défaut
    Bah si cette personne dit que c super court et super simple, elle n'a qu'à le faire, non ? Si c'est si court que ça et si facile que ça, ça lui prendra même pas une minute, non ?
    Pourquoi faire compliqué lorsque l'on peut faire encore plus compliqué.

  5. #25
    Membre du Club Avatar de melodyyy
    Inscrit en
    Octobre 2006
    Messages
    401
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 401
    Points : 50
    Points
    50
    Par défaut
    le fichier est trop gros y'a énormément de colonnes je pense pas pouvoir le mettre...pi il est confidentiel surtout

  6. #26
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 543
    Points
    15 543
    Par défaut
    il me met l'erreur 1004
    et j'ai 565 lignes dans mon fichier
    Avant de faire
    derniereligne=cells(nopremiereligne,35).SpecialCells(xlCellTypelastCell).row
    As-tu affecté un N° de ligne à nopremiereligne ?
    A tout hasard

Discussions similaires

  1. [XL-2010] Formule avec boucle For dans une macro
    Par Derfixien dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 02/09/2014, 22h18
  2. : dans les formules au lieu du ; sous excel 2010
    Par qmike dans le forum Excel
    Réponses: 2
    Dernier message: 24/01/2013, 16h26
  3. Selectionner toutes les CheckBoxs avec boucle imbriquée.
    Par Azaxx dans le forum Général JavaScript
    Réponses: 7
    Dernier message: 27/07/2011, 14h51
  4. Réponses: 6
    Dernier message: 16/05/2008, 09h04
  5. problemes tirer les formules excel
    Par melodyyy dans le forum Macros et VBA Excel
    Réponses: 26
    Dernier message: 27/10/2006, 18h15

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo