Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2

Discussion: essai code simple

  1. #1
    Invité de passage
    Inscrit en
    août 2012
    Messages
    10
    Détails du profil
    Informations forums :
    Inscription : août 2012
    Messages : 10
    Points : 0
    Points
    0

    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 :
    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
    Rédacteur/Modérateur
    Avatar de fring
    Homme Profil pro Fred Thomas
    Engineering
    Inscrit en
    février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Nom : Homme Fred Thomas
    Âge : 51
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : février 2008
    Messages : 3 900
    Points : 7 752
    Points
    7 752

    Par défaut

    Bonjour,

    Soit la lettre de la colonne entre guillemets
    Code :
    Do While Not IsEmpty(Cells(i, "A"))
    Soit l'index de la colonne
    Code :
    Do While Not IsEmpty(Cells(i, 1))
    LES FAQ OFFICE - LES COURS OFFICE - 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.

    Hormis pour me demander mon numéro de compte afin d'y effectuer un versement, évitez de m'envoyer vos questions par MP, merci d'avance
    En posant une question on risque d'avoir l'air idiot cinq minutes. En n'en posant pas, on risque de le rester toute sa vie (proverbe chinois)

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •