Boucle si cellule <>""

[Fabien]

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]

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]

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

 

[dg62]

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.

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]

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]

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]

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é]

Bonjour fabien, didier



Apparamment mon code ne fonctionnait pas ?

Pourrais tu joindre ton fichier en pièce jointe.

salut

 

[dg62]

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]

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

 

[Bill]

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

 

[Bill]

[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]

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