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 :

créé une boucle


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Juillet 2007
    Messages
    74
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 74
    Par défaut créé une boucle
    créé une boucle qui me permet d'afficher un mot "salut"dans une colonne si il apparait dans n'importe quelle ligne d'une autre colonne un autre mot"bonjour"

    je penser a sa

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    sub ecrire
    dim i as integer
    dim j as string
    dim f as string
    i= 7 to 50
    j=sheet("planning").(i,4)
    f=sheet("planning").(i,5)
    if j="salut" then 
    f="bonjour"
    end if
    est-ce que c'est correct ?

    ps: je debute en vb

  2. #2
    Membre expérimenté
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    258
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2007
    Messages : 258
    Par défaut
    Ah bon, tu débutes?

    alors les bonnes regles:
    - On met du commentaire pour savoir ce qu'on fait!
    - On met option explicit en tete du code VB

    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
    option explicit
     
    sub ecrire
    'i est un numéro de ligne
    dim i as integer
    'C'est quoi j? On voit plus loin que j est un objet cellule et nom une chaine de 
    'caractère! Cette déclaration est donc fausse
    dim j as string
    'idem
    dim f as string
     
    'Pour i de 7 à 50
    FOR i= 7 to 50
         'j est la CELLULE (i,4) 
          j=sheetS("planning").CELLS(i,4)
         'f est la CELLULE (i,5) 
          f=sheetS("planning").CELLS(i,5)
         'Si j = "Saut"
          if j="salut" then 
                   'Ecrire "Bonjour" dans f
                    f="bonjour"
          end if
    'Ligne suivante
    next i
     
    end sub
    Et en tappant sur F8, ca te donnait quoi?

  3. #3
    Membre confirmé
    Inscrit en
    Juillet 2007
    Messages
    74
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 74
    Par défaut
    oui c mon premier projet vb

    en fonction f8 il ne trouve pas d'erreur mais il ne m'affiche rien

  4. #4
    Membre confirmé
    Inscrit en
    Juillet 2007
    Messages
    74
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 74
    Par défaut
    je l'ais fais a partir d'un bouton que j'ai mis dans un module comme pour la fonction copié que l'on as fais hier

  5. #5
    Membre Expert
    Avatar de zazaraignée
    Profil pro
    Étudiant
    Inscrit en
    Février 2004
    Messages
    3 174
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2004
    Messages : 3 174
    Par défaut
    Citation Envoyé par booskap
    je l'ais fais a partir d'un bouton que j'ais mis dans un module comme pour la fonction copié que l'on as fais hier
    Un bouton dans un module ? Sur une feuille, sur un UserForm, je veux bien, mais dans un module...

  6. #6
    Membre confirmé
    Inscrit en
    Juillet 2007
    Messages
    74
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 74
    Par défaut
    g essayé le code de coconut2 mais sa ne fonctionne pas
    pourtant quand je fais F8 il ne trouve pas d'erreur

  7. #7
    Membre confirmé
    Inscrit en
    Juillet 2007
    Messages
    74
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 74
    Par défaut
    a si il me met que la ligne :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    j = sheets("planning").Cells(i, 4)
    n'appartient pas a la selection

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XSLT] Faire une boucle sur une variable [i]
    Par PoT_de_NuTeLLa dans le forum XSL/XSLT/XPATH
    Réponses: 8
    Dernier message: 07/06/2010, 12h45
  2. Modification de composant ds une boucle
    Par sinsenono dans le forum C++Builder
    Réponses: 10
    Dernier message: 22/02/2004, 12h46
  3. swf dans une boucle asp
    Par Chucky69 dans le forum Flash
    Réponses: 11
    Dernier message: 10/02/2004, 17h07
  4. [Vb.net] Indexé un objet crée dans une boucle
    Par picpic dans le forum Windows Forms
    Réponses: 10
    Dernier message: 17/12/2003, 14h37
  5. Pause dans une boucle
    Par HT dans le forum Langage
    Réponses: 4
    Dernier message: 03/06/2003, 08h52

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