Boucle si cellule <>""

Fabien · 12 Octobre 2005

Bonjour le forum
Et merci à ceux qui m'ont déjà aidé pour le select case
cette fois je viens vous voir pour tenter d'effectuer une boucle sur une plage de cellules nommées (PlageA), si elle rencontre un texte quelconque.
j'ai essayé :

Sub AppliqueCouleur()
Const Limit As Integer = 0
For Each c In Range('PlageA')
If c.Value > Limit Then
c.Interior.ColorIndex = 26
End If
Next c
End Sub

En vous remerciant beaucoup

Fabien · 12 Octobre 2005

Bonsoir Hervé
J'ai effectivement tjrs un intervalle de 16 ignes dont le dernier est de 14 lignes puisque fin du tableau aussi, je pense que je dois modifier
cette ligne et mettre 14

For j = ligne To ligne + 13

Merci beaucoup à toi et au forum
bonne nuit

Fabien · 12 Octobre 2005

mon classeur comporte treize feuille, mais seul les 12 premières sont concernées

dg62 · 12 Octobre 2005

Re:Boucle si cellule <>\"\"

re

dans chaque feuille tu selectionnes tes differentes plages avec 'CTRL' et tu les nommes respectivement plage1, plage2...plage12 pour la 12e feuille.

Code:

Sub test()
dim i as byte
dim c as range

For i = 1 To 12

    For Each c In Range('plage' & i)
           If c.Value <> '' Then
c.Interior.ColorIndex = 26
           End If
    Next c

Next i

End Sub

Message édité par: dg62, à: 12/10/2005 23:05

Message édité par: dg62, à: 13/10/2005 07:01

Fabien · 12 Octobre 2005

bonsoir dg62

laligne : dim i as byte, dim c as range
et : ; c.Interior.ColorIndex = 26

se mettent en rouge avec msg erreur de compilation - erreur de syntaxe
amicalement

dg62 · 13 Octobre 2005

Re:Boucle si cellule <>\"\"

bonjour Fabien, le forum

laligne : dim i as byte, dim c as range
et : ; c.Interior.ColorIndex = 26

le ; devant le c.Interior n'existe pas, c'est un caractère ajouté par le navigateur ???

dim i as byte
dim c as range

c.Interior.color...

Il ne devrait pas y avoir de problème la procédure fonctionne bien sur ma config. xp pro et excel 2003.

Message édité par: dg62, à: 13/10/2005 07:05

Fabien · 13 Octobre 2005

bonjour dg62
j'ai une erreur d'exécution 1004 à la ligne
For Each c In Range('plage' & i)
qui se met en jaune
merci pour ton aide appréciable

Hervé · 13 Octobre 2005

Bonjour fabien, didier

Apparamment mon code ne fonctionnait pas ?

Pourrais tu joindre ton fichier en pièce jointe.

salut

dg62 · 13 Octobre 2005

re
Bonjour hervé

voir fichier joint [file name=fabien.zip size=6629]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/fabien.zip[/file]

Fabien · 13 Octobre 2005

Merci dg62 Hervé
C'est super
encore merci de votre grande patience

Bill · 18 Octobre 2005

[C:\\Documents and Settings\\saissi\\Bureau\\probléme.zip]

Bill · 18 Octobre 2005

[C:\\Documents and Settings\\saissi\\Bureau\\Wind.zip] [file name=Wind_20051018112809.zip size=1889]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Wind_20051018112809.zip[/file]

Bill · 18 Octobre 2005

C:\\Documents and Settings\\saissi\\Bureau\\probléme.zip

Boucle si cellule <>""

Fabien

Guest

Fabien

Guest

Fabien

Guest

dg62

XLDnaute Barbatruc

Fabien

Guest

dg62

XLDnaute Barbatruc

Fabien

Guest

Hervé

XLDnaute Barbatruc

dg62

XLDnaute Barbatruc

Pièces jointes

Fabien

Guest

Bill

Guest

Bill

Guest

Pièces jointes

Bill

Guest

Discussions similaires