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éer une variable égale au numéro de la boucle en cours [XL-2007]


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut Créer une variable égale au numéro de la boucle en cours
    Bonjour,

    Je poste ici car je suis en train de créer une macro pour automatiser un traitement excel long et pénible.

    J'ai un tableau ou chaque colonne est définit par une valeur de temps placée sur la ligne 1 et ou chaque ligne correspond à une fréquence placée en colonne A.
    Je souhaite extraire les "temps" et "fréquence" correspondant à la valeur la plus proche de 0.2 pour chacune de mes colonnes (allant de B2:B232 à EK2:EK232 soit 131 colonnes, si je ne dis pas de conneries). Puis copier ces temps et fréquences dans un tableau présent sur une autre feuille (basiquement mon tableau de données en Feuil1 et mon tableau de resultats en Feuil2 avec les temps en A2:Ax et les fréquences en B2:Bx) Je ne sais pas si je suis très clair...

    Voici la macro que j'ai commencé à rédiger:

    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
    Sub ferfghjk()
     
    Dim PORC As Double
    Dim macellulite As Range
    Dim tamere As Range
    Dim i As Integer
     
    Set F1 = Worksheets("Feuil1")
    Set F2 = Worksheets("Feuil2")
     
    For i = 1 To 131
     
        F1.Select
        Set tamere = F1.Columns("i + 1").Row("1:232")
        PORC = Application.Match("0.2", [tamere], -1).Value
        Set macellulite = Columns("PORC").Rows("i + 1")
        macellulite.Select
        Selection.End(xlUp).Select
        Selection.Copy
        F2.Select
        Cells(i + 1, 1).Select
        ActiveSheet.Paste
     
        F1.Select
        macellulite.Select
        Selection.End(xlToLeft).Select
        Selection.Copy
        F2.Select
        Cells(i + 1, 2).Select
        ActiveSheet.Paste
     
        Next i
     
    End Sub
    Mon soucis (peut être pas le seul) est de réussir à bien définir mes variables et notamment mon i que j'ai définit comme un PORC... Désolé ci mon code vous parait pérave et mon problème obsolète, mais je débute.

    Je vous joins mon classeur.

    Merci d'avance! Force et courage!
    Fichiers attachés Fichiers attachés

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

Discussions similaires

  1. Réponses: 2
    Dernier message: 21/07/2015, 15h35
  2. [Sécurité] Peut on créer une variable $_SERVER
    Par Cr@zyDeep dans le forum Langage
    Réponses: 6
    Dernier message: 12/05/2006, 09h27
  3. Créer une variable varchar interne à une procédure stockée
    Par killysui dans le forum MS SQL Server
    Réponses: 6
    Dernier message: 26/04/2006, 17h59
  4. Réponses: 8
    Dernier message: 06/02/2006, 16h38
  5. [JDOM] Créer une variable xml directement dans java
    Par Tigrounette dans le forum Format d'échange (XML, JSON...)
    Réponses: 8
    Dernier message: 18/12/2005, 14h21

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