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 :

Besoin d'aide boucle et offset [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Inscrit en
    Juin 2012
    Messages
    63
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Secteur : Finance

    Informations forums :
    Inscription : Juin 2012
    Messages : 63
    Points : 39
    Points
    39
    Par défaut Besoin d'aide boucle et offset
    Bonjour à tous,

    j'ai un petit problème qui m'empeche d'avancer :
    dans une boucle for each...next
    je traite plusieurs cellule avec un offset(i,0)

    comment reprendre la boucle à la valeur i et non à la cellule suivante ?
    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
    For Each cell In Plage
        If cell.Offset(0, -5) <> RGB(204, 255, 255) Then
            If cell.Offset(0, 2).MergeCells Then
                n = NCF(cell.Offset(0, 2))
                If n = 2 Then
                    If cell < Date And cell.Offset(, 2) <> "" Then
                        cell.Interior.Color = RGB(125, 147, 99)
                    End If
                    If cell.Offset(1) < Date And cell.Offset(, 2) <> "" Then
                        cell.Offset(1).Interior.Color = RGB(127, 127, 127)
                    End If
                ElseIf n > 2 Then
                    If cell < Date And cell.Offset(, 2) <> "" Then
                        cell.Interior.Color = RGB(125, 147, 99)
                     End If
                        For i = 1 To n - 2
                            If cell.Offset(i, 0) < Date Then
                                cell.Offset(i, 0).Interior.Color = RGB(125, 147, 99)
                             End If
                        Next i
                            If cell.Offset(n - 1, 0) < Date Then
                                cell.Offset(n - 1).Interior.Color = RGB(127, 127, 127)
                               End If
                          End If
            Else
                If cell < Date Then
                    cell.Interior.Color = RGB(127, 127, 127)
                   End If
            End If
    next cell
        End If
    Merci de votre aide

  2. #2
    Nouveau membre du Club
    Homme Profil pro
    Inscrit en
    Juin 2012
    Messages
    63
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Secteur : Finance

    Informations forums :
    Inscription : Juin 2012
    Messages : 63
    Points : 39
    Points
    39
    Par défaut
    Problème résolu avec Select Case !

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

Discussions similaires

  1. [MySQL] Besoin d'aide pour faire une boucle
    Par plex dans le forum PHP & Base de données
    Réponses: 8
    Dernier message: 15/04/2008, 14h47
  2. besoin d'aide boucle if
    Par jérémy1664 dans le forum Général JavaScript
    Réponses: 29
    Dernier message: 11/01/2008, 12h58
  3. [Débutant] Besoin d'aide boucle multiple
    Par Flaherty Mc Coillean dans le forum MATLAB
    Réponses: 1
    Dernier message: 13/12/2007, 18h48
  4. Besoin d'aide pour une boucle
    Par lenneth666 dans le forum Prolog
    Réponses: 2
    Dernier message: 27/12/2006, 16h41
  5. [VBA-E]besoin d'aide pour faire une boucle
    Par mikazounette dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 10/04/2006, 15h04

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