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 :

Boucles et fonctions


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Homme Profil pro
    Inscrit en
    Octobre 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Octobre 2013
    Messages : 2
    Par défaut Boucles et fonctions
    Bonjour à tous,

    Je suis nouveau sur le forum, donc je commence par me présenter.
    Je suis Ben, et j'ai l'habitude de travailler avec VBA, cependant je bug sur le petit problème suivant qui très probablement est idiot


    j'ai le code ci-dessous:

    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
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    Option Explicit
     
    Sub Secteurs()
     
     
    Dim i As Integer
    Dim a As Integer
     
     
    For i = 2 To 1000
     
    If Sheets("BDD").Range("D" & i).Value = Sheets("Accueil").Range("B15").Value Then
     
     
     
                                If Sheets("BDD").Range("D" & i).Value = "test" Then
     
                                  Sheets("BDD").Range("A" & i).Copy
                                  Sheets("Secteurs").Range("B" & i + 4 ).Select
                                  ActiveSheet.Paste
     
                                  Sheets("BDD").Range("B" & i).Copy
                                  Sheets("Secteurs").Range("C" & i + 4).Select
                                  ActiveSheet.Paste
     
                                  Sheets("BDD").Range("C" & i).Copy
                                  Sheets("Secteurs").Range("D" & i + 4).Select
                                  ActiveSheet.Paste
     
                                  Sheets("BDD").Range("E" & i).Copy
                                  Sheets("Secteurs").Range("E" & i + 4 ).Select
                                  ActiveSheet.Paste
    else if
     
    end if
    end if
    next i
    end sub
    Donc en gros ce code vérifie si les cellules de l'onglet BDD et de l'onglet Acceuil sont égales, puis copie la cellule Ai de bdd dans l'onglet secteurs.


    Pour simplifier ce code je souhaite créer une fonction pour faire le copier coller. Or j'ai un problème pour récupérer la valeur du compteur i


    Pour ce faire je crée une fonction copiecolle():
    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
    Sub copiecolle(a)
    Dim i As Integer
     
                                  Sheets("BDD").Range("A" & i).Copy
                                  Sheets("Secteurs").Range("B" & i + a).Select
                                  ActiveSheet.Paste
     
                                  Sheets("BDD").Range("B" & i).Copy
                                  Sheets("Secteurs").Range("C" & i + a).Select
                                  ActiveSheet.Paste
     
                                  Sheets("BDD").Range("C" & i).Copy
                                  Sheets("Secteurs").Range("D" & i + a).Select
                                  ActiveSheet.Paste
     
                                  Sheets("BDD").Range("E" & i).Copy
                                  Sheets("Secteurs").Range("E" & i +  a).Select
                                  ActiveSheet.Paste
     
    end sub
    et j'appelle cette fonction dans mon sub de base de la manière suivant:

    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
    27
    28
    29
    30
    31
    32
    Option Explicit
     
    Sub Secteurs()
     
     
    Dim i As Integer
    Dim a As Integer
     
     
    For i = 2 To 1000
     
    If Sheets("BDD").Range("D" & i).Value = Sheets("Accueil").Range("B15").Value Then
     
     
     
                                If Sheets("BDD").Range("D" & i).Value = "Agriculture/Agroalimentaire" Then
     
       copiecolle (0)
     
                                ElseIf Sheets("BDD").Range("D" & i).Value = "Assurances" Then
     
     
                                    copiecolle (32)
     
                                End If
    End If
     
    Next i         
     
     
     
    End Sub
    Malheureusement ça ne marche pas, auriez vous une idée pour résoudre mon problème? C'est assez urgent

    Merci d'avance pour votre retour,

    Cordialement,
    Ben

  2. #2
    Invité
    Invité(e)
    Par défaut
    Salut,

    Peux-tu mettre ton code entre balises #.

  3. #3
    Candidat au Club
    Homme Profil pro
    Inscrit en
    Octobre 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Octobre 2013
    Messages : 2
    Par défaut
    Bonjour,

    En fait je viens de trouver la solution.
    Erreur bête comme prévu, il fallait déclarer i en public.

    Désolé pour le code, je note pour la prochaine fois

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

Discussions similaires

  1. [AJAX] interface boucle retour fonction Ajax dans code Php
    Par sami117 dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 24/02/2009, 19h41
  2. boucles en fonction d'une variable
    Par Onita dans le forum Algorithmes et structures de données
    Réponses: 6
    Dernier message: 20/10/2008, 21h27
  3. [Mail] Boucle sur fonction mail()
    Par Invité dans le forum Langage
    Réponses: 2
    Dernier message: 11/06/2007, 22h26
  4. Boucle et fonction
    Par maxos75 dans le forum ASP
    Réponses: 7
    Dernier message: 09/01/2006, 12h53
  5. Sortir d'une boucle en fonction d'une durée
    Par BECHE dans le forum Langage
    Réponses: 8
    Dernier message: 30/11/2005, 11h08

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