High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Excel macro: condition sur plusieurs cellules

Dernière réponse le 21 jui 2008 à 10:36:10 jossdi, le 17 jui 2008 à 17:22:21 
 Signaler ce message aux modérateurs

Bonjour,
je cherche à mettre une condition sur plusieurs cellules, la voici:
Si les cellules de B20à B24 de la feuille1 sont toutes vides alors la cellules A5 de la feuille2
est jaune.
voici mon code

Sub macro1()
For i = 20 To 24
Sheets("feuille1").Activate
If Cells(i, 2).Interior.ColorIndex = -4142 Then
Sheets("feuille2").Activate
Cells(5,1).interior.colorindex = 6
end if
next
end sub

la macro ne fait pas exactement ce que je veux:
il suffit qu'une des cellule soit vide pour A5 devienne jaune alors qu'il faut quelles soient toutes
vides pour que A5 deviennent jaune.
Merci d'avance je rame un peu je dois l'avouer!!

Configuration: Windows XP
Firefox 2.0.0.16

Meilleures réponses pour « excel macro: condition sur plusieurs cellules » dans :
[Excel] Colorer des cellules sur conditions VoirIl existe dans Excel des fonctions très pratiques mais peu connues et peu utilisées. Exemple : vous souhaitez qu'une cellule se colore automatiquement en rouge (ou autre mise en forme de police, de bordure, de trame) selon une condition : un...
Formules Excel de base VoirVoici quelques formules de bases qui sont faciles à réaliser et qui peuvent donner un peu de vie à une feuille Excel ! Pour cette astuce, on supposera que l’on veut que le résultat s’affiche dans la cellule B10 et on se servira principalement des...
Excel - Mises en forme conditionnelles illimitées VoirMises en Forme Conditionnelles Illimitées Introduction Principe Code Fichier joint Introduction La Mise en Forme Conditionelle (ou MFC) permet d'appliquer, à une cellule ou à plusieurs cellules sélectionnées, différents formats qui...
Télécharger MOREFUNC (Macro complémentaire EXCEL) VoirMorefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont compatibles avec Excel 95 à 2007. Elles ne sont pas portables sur d'autres plate-formes que Windows, ni sur d'autres...
Posez votre question Répondre

1

lermite222, le 17 jui 2008 à 17:38:01

Bonjour,
Sans avoir approfondi...
If Cells(i, 2).Interior.ColorIndex = -4142 Then
si la veleur est réellement à -4142 tu doit employé Color et pas colorIndex
ColorIndex c'est de 1 à 48 et sûrement pas du négatif, là tu a déjà une erreur.
Ensuite tu ne teste qu'une seule cellule à la fois

Voir
dim F as boolean
Sheets("feuille1").Activate

For i = 20 To 24
If Cells(i, 2) <> "" then F = True: exit for
next i
if not F then
Sheets("feuille2").Activate
Cells(5,1).interior.colorindex = 6
end if

A+
L'expérience instruit plus sûrement que le conseil. (André Gide)  

   
Répondre à lermite222

2

jossdi, le 17 jui 2008 à 18:39:24

Merci ça marche.
a+

   
Répondre à jossdi

3

jossdi, le 18 jui 2008 à 11:16:11

Bonjour,
je me suis trompé j'ai encore le même problème ça teste une cellule à la fois.
voici le code complet peut être ai je oublié un code:

Sub technologydetailfinish()

Dim F As Boolean
Sheets("TECHNOLOGY DETAIL").Activate

For i = 20 To 24
If Cells(i, 2) <> "" Then F = True: Exit For
Next i
If Not F Then
Sheets("STACK UP").Activate
Cells(9, 38).Interior.Color = 10092543
Cells(10, 38).Interior.Color = 10092543
Cells(10, 47).Interior.Color = 10092543
Cells(9, 38).Value = ""
Cells(10, 38).Value = ""
Cells(10, 47) = ""
Cells(12, 38).Interior.Color = 10092543
Cells(13, 38).Interior.Color = 10092543
Cells(13, 47).Interior.Color = 10092543
Cells(12, 38).Value = ""
Cells(13, 38).Value = ""
Cells(13, 47) = ""
Cells(49, 38).Interior.Color = 10092543
Cells(50, 38).Interior.Color = 10092543
Cells(50, 47).Interior.Color = 10092543
Cells(49, 38).Value = ""
Cells(50, 38).Value = ""
Cells(50, 47) = ""
Cells(52, 38).Interior.Color = 10092543
Cells(53, 38).Interior.Color = 10092543
Cells(53, 47).Interior.Color = 10092543
Cells(52, 38).Value = ""
Cells(53, 38).Value = ""
Cells(53, 47) = ""
Cells(11, 19).Interior.ColorIndex = 2
Cells(51, 19).Interior.ColorIndex = 2

End If

End Sub

tanks for advance

   
Répondre à jossdi

4

lermite222, le 18 jui 2008 à 11:32:49

For i = 20 To 24 
If Cells(i, 2) <> "" Then F = True: Exit For 
Next i

Avec cette configuration tu teste les cellules B20, B21, B22, B23 et B24, c'est bien ces cellules que tu veux tester ?
Quand tu dit qu'il ne teste qu'une seule cellule c'est pas possible sauf que dés qu'il y a une cellule non vide il sort de la boucle mais F est à True donc le if ne se fait opas.
Tu dit... parce que ca devrais fonctionner. L'expérience instruit plus sûrement que le conseil. (André Gide)  

   
Répondre à lermite222

5

jossdi, le 18 jui 2008 à 14:30:47

Non ça ne fonctionne pas super
il suffit qu'une des cellules soit vide pour que la macro s'exécute alors que je voudrais qu'elle ne s'exécute que si toutes les cellules sont vides.

   
Répondre à jossdi

6

jossdi, le 18 jui 2008 à 14:36:37

En faisant quelques tests je pense avoir trouver l'erreur.
ton code marche très bien mais dans le cas de cellule vide (sans écriture)
alors que moi je voudrais que ce soit dans le cas de cellule vide (couleur de fond transparente)
que faudrait il changer dans le code pour parler de fond de cellule et non d'éventuelle écriture.

   
Répondre à jossdi

7

lermite222, le 18 jui 2008 à 16:20:17

Y a un noeud, si ton fichier est pas trop coinfidentiel met le sur Cijoint et donne le lien dans un poste suivant. L'expérience instruit plus sûrement que le conseil. (André G­ide)  

   
Répondre à lermite222

8

jossdi, le 18 jui 2008 à 16:35:25

C où le "Cijoint"

   
Répondre à jossdi

9

lermite222, le 19 jui 2008 à 02:50:47

Changer la ligne
If Cells(i, 2) <> "" Then F = True: Exit For
par
If Cells(i, 2)).Interior.ColorIndex <> xlNone Then F = True: Exit For
L'expérience instruit plus sûrement que le conseil. (André Gide)  

   
Répondre à lermite222

10

 jossdi, le 21 jui 2008 à 10:36:10

Ok ça marche parfaitement merci beaucoup!
excuse pour la réponse tardive le w-e c'est sacré lol
a+

   
Répondre à jossdi
Posez votre question Répondre
Ils ont besoin de votre aide