+ 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
    Expert Confirmé Sénior

    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))

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
  •