Aide Sur : Dim Table As Range, &i

[dscott]

Je suis sur un sujet concernant un tableau.😱

Voici ce que j'ai fait :

Public cel As Range
Public Sub color4() 'colorie en blanc les cellules de la plage 4
Dim plage4 As Range

Set plage4 = Application.Union(Range("c4:aa4"), Range("ad4:ae4")) 'la ligne 4

For Each cel In plage4 'Nettoyage
cel.Interior.color = 16777215 'Blanc
Next cel

Ma question est la suivante : Je voudrais faire une bouche sur les autres lignes en dessous de la ligne 4.
C'est a dire reussir a mettre un indice variable "i" a la place du chiffre "4" aussi bien sur la variable plage que dans sa formule....
Bonne question non ?

Un pro de VBA et des applications trouvera surement une solution...😛

Merci de votre attention

 

[jp14]

Re : Aide Sur : Dim Table As Range, &i

Bonjour

Set plage4 = Application.Union(Range("c4:aa4"), Range("ad4:ae4")) 'la ligne 4
modifier la ligne indiquée ci dessus en utilisant la méthode suivante : remplacer 4 par une variable qui contient la nouvelle valeur
Dim ligne1 as long
ligne1 = 5
Range("c" & ligne1 & ":aa" & ligne1 ....

Bon courage

 

[myDearFriend!]

Re : Aide Sur : Dim Table As Range, &i

Bonjour dscott, jp14,

j'ajoute que tu pourrais également remplacer avantageusement tout ton code (ci-dessus) par une seule ligne :

[SIZE=2]Application.Union(Range("c4:aa4"), Range("ad4:ae4")).Interior.ColorIndex = xlNone[/SIZE]

la boucle sur les cellules étant inutile, cela te permettra de boucler cette fois sur les lignes souhaitées comme ci-dessous par exemple :

[SIZE=2]Dim L[COLOR=navy] As Long[/COLOR]
      [COLOR=navy]For [/COLOR]L = 4[COLOR=navy] To [/COLOR]136      [COLOR=green]'lignes 4 à 136[/COLOR]
            Application.Union(Range("C" & L & ":AA" & L), _
                  Range("AD" & L & ":AE" & L)).Interior.ColorIndex = xlNone
      [COLOR=navy]Next[/COLOR] L[/SIZE]

Pour une question de clarté, pour ma part, je m'y prendrais comme ça :

[SIZE=2]Dim L[COLOR=navy] As Byte[/COLOR]
    [COLOR=navy]For [/COLOR]L = 4[COLOR=navy] To [/COLOR]136    [COLOR=green]'lignes 4 à 136[/COLOR]
        [COLOR=navy]With[/COLOR] Application
          .Intersect(.Union(Columns("C:AA"), Columns("AD:AE")), [B]Rows(L)[/B]). _
                Interior.ColorIndex = xlNone
        [COLOR=navy]End With[/COLOR]
    [COLOR=navy]Next[/COLOR] L[/SIZE]

ça n'apporte rien de plus, mais je trouve ça beaucoup plus lisible...

Cordialement,