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

VBA Discussion :

essai code simple


Sujet :

VBA

  1. #1
    Futur Membre du Club
    Inscrit en
    Août 2012
    Messages
    10
    Détails du profil
    Informations forums :
    Inscription : Août 2012
    Messages : 10
    Points : 9
    Points
    9
    Par défaut essai code simple
    Bonjour,
    j'ai un souci avec ce simple code,
    le débugger me détecte une erreur au commencement de ma boucle while :

    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
    Sub Remplissage_mesures()
    '
    ' Remplissage_mesures Macro
    '
    '
    Dim i As Integer
    i = ActiveCell.Row
     
    Do While Not IsEmpty(Cells(i, A))
    Range("Ai:Ki").Select
    With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent1
    .TintAndShade = 0.599963377788629
    .PatternTintAndShade = 0
     
    i = i + 1
    End With
    Loop
    End Sub
    Pouvez vous m'aider ?

    * Merci *

  2. #2
    Expert éminent
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Points : 7 964
    Points
    7 964
    Par défaut
    Bonjour,

    Soit la lettre de la colonne entre guillemets
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Do While Not IsEmpty(Cells(i, "A"))
    Soit l'index de la colonne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Do While Not IsEmpty(Cells(i, 1))
    LES FAQ OFFICE - LES COURS OFFICE - LES COURS EXCEL - LES LIVRES OFFICE - SOURCES VBA - ATELIER BRICOLAGE VBA

    Lorsque votre problème est solutionné, pensez à le signaler en cliquant sur le bouton au bas de la discussion.

Discussions similaires

  1. Code Simple : Utiliser Excel sous VB ?
    Par fabiofabio dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 27/08/2007, 14h00
  2. code simple (évenements)
    Par <Zer0> dans le forum Général JavaScript
    Réponses: 5
    Dernier message: 13/08/2007, 11h28
  3. probleme de code simple
    Par BFH dans le forum C
    Réponses: 18
    Dernier message: 28/10/2005, 19h57
  4. Explication de code simple
    Par Clad3 dans le forum OpenGL
    Réponses: 3
    Dernier message: 20/03/2005, 12h31
  5. Réponses: 2
    Dernier message: 08/04/2004, 12h11

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