Modifs cellules / couleur autres cellulles
Résolu/Fermé
A voir également:
- Modifs cellules / couleur autres cellulles
- Excel cellule couleur si condition texte - Guide
- Somme si couleur - Guide
- Excel additionner des cellules - Guide
- Verrouiller cellules excel - Guide
- La boite a couleur - Télécharger - Divers Photo & Graphisme
6 réponses
Bonjour,
Je n'ai pas compris, donne moi un exemple concret !
Vous pouvez travailler sur les mises en formes conditionnelles et mettre des couleurs selon les valeurs mais pas l'inverse....
Cordialement,
Migou
Je n'ai pas compris, donne moi un exemple concret !
Vous pouvez travailler sur les mises en formes conditionnelles et mettre des couleurs selon les valeurs mais pas l'inverse....
Cordialement,
Migou
Bonjour Migou,
Excuses moi j'ai dû mal m'exprimer.
En fait les cellulles de ma colonne "B" sont le résultat d'une saisie sur une autre feuille.
Si ce résultat est >10, elles se colorent en jaune pour que je puisse les identifier facilement (j'ai mis une mise en forme conditionnelle sur cette colonne).
J'ai parfois plus de 100 cellules qui apparaissent ainsi (>10 et jaune) et c'est fastidieux de sélectionner une par une les cellules correspondantes de la colonne "H" pour faire une insertion à droite, puis les cellules correspondantes de la colonne "F" pour les mettre à "0".
Je voudrais donc avoir une macro qui vérifie à chaque ligne (il y en plus de 2000) que la cellule "Bx" est >10 (ou jaune, je ne sais pas lequel de ces 2 critères est le plus facile à prendre en compte ?) et si oui qu'elle fasse l'insertion à droite de la cellule "Hx" puis mette à "0" la cellule "Fx". Si non elle ne fait rien et passe à la ligne suivante jusqu'à la dernière.
J'espère avoir été plus clair ...!En tous cas merci de t'intéresser à mon problème.
Le Rom
Excuses moi j'ai dû mal m'exprimer.
En fait les cellulles de ma colonne "B" sont le résultat d'une saisie sur une autre feuille.
Si ce résultat est >10, elles se colorent en jaune pour que je puisse les identifier facilement (j'ai mis une mise en forme conditionnelle sur cette colonne).
J'ai parfois plus de 100 cellules qui apparaissent ainsi (>10 et jaune) et c'est fastidieux de sélectionner une par une les cellules correspondantes de la colonne "H" pour faire une insertion à droite, puis les cellules correspondantes de la colonne "F" pour les mettre à "0".
Je voudrais donc avoir une macro qui vérifie à chaque ligne (il y en plus de 2000) que la cellule "Bx" est >10 (ou jaune, je ne sais pas lequel de ces 2 critères est le plus facile à prendre en compte ?) et si oui qu'elle fasse l'insertion à droite de la cellule "Hx" puis mette à "0" la cellule "Fx". Si non elle ne fait rien et passe à la ligne suivante jusqu'à la dernière.
J'espère avoir été plus clair ...!En tous cas merci de t'intéresser à mon problème.
Le Rom
On est pas dans le "CACA" !
Voici un site tuto : https://silkyroad.developpez.com/vba/boucles/
Il faut que tu apprennes d'abord à faire une boucle. Par exemple :
Sub Rom ()
Set ZoneControlée = Range ("A1:A2000")
For Each Cellule In ZoneControlée
Ici tu mets ta condition puis,
Next
End Sub
Dans cette boucle, la Machine passe de A1 à A2000
Après, tu apprends à mettre les conditions dans ta boucle, par exemple :
If Cellule >10 Then
Cellule = 0
End If
Dans cet exemple, les cellules >10 sont passées à 0
Bref, y a du boulot. Passe à la maison (non, je rigole !)
Bon courage
Voici un site tuto : https://silkyroad.developpez.com/vba/boucles/
Il faut que tu apprennes d'abord à faire une boucle. Par exemple :
Sub Rom ()
Set ZoneControlée = Range ("A1:A2000")
For Each Cellule In ZoneControlée
Ici tu mets ta condition puis,
Next
End Sub
Dans cette boucle, la Machine passe de A1 à A2000
Après, tu apprends à mettre les conditions dans ta boucle, par exemple :
If Cellule >10 Then
Cellule = 0
End If
Dans cet exemple, les cellules >10 sont passées à 0
Bref, y a du boulot. Passe à la maison (non, je rigole !)
Bon courage
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci Migou de ta réponse.
Bon je vais m'y mettre et essayer de m'en sortir en suivant tes conseils, je te tiens au courant !
Sinon çà peut être chez MOI (LOL)
A plus
Bon je vais m'y mettre et essayer de m'en sortir en suivant tes conseils, je te tiens au courant !
Sinon çà peut être chez MOI (LOL)
A plus
Bonjour,
J'ai essayé ce code pour mon problème mais çà ne marche pas !!!
Sub Rom()
Sheets("Feuil1").Select
Set ZoneControlee = Range("B3:B2000")
For Each Cellule In ZoneControlee
If Cellule > 1 Then
ActiveCell.Offset(0, 6).Select
Selection.Insert Shift:=xlToRight
ActiveCell.Offset(0, 4).Select
Selection = 0
End If
Next
End Sub
En fait ce serait peut être plus simple de poser le problème différemment.
Je veux contrôler sur chaque ligne de 3 à 2000 chacune des cellules de la colonne "B".
Si "B3" >1, j'insère un "0" en "H3" en décalant les cellules à droite.
Sinon, j'ajoute "1" à la cellule "H3" ("H3" devient "H3+1")
Et ainsi de suite jusqu'à "B2000"
Est ce que c'est plus clair ?
Merci d'avance.
J'ai essayé ce code pour mon problème mais çà ne marche pas !!!
Sub Rom()
Sheets("Feuil1").Select
Set ZoneControlee = Range("B3:B2000")
For Each Cellule In ZoneControlee
If Cellule > 1 Then
ActiveCell.Offset(0, 6).Select
Selection.Insert Shift:=xlToRight
ActiveCell.Offset(0, 4).Select
Selection = 0
End If
Next
End Sub
En fait ce serait peut être plus simple de poser le problème différemment.
Je veux contrôler sur chaque ligne de 3 à 2000 chacune des cellules de la colonne "B".
Si "B3" >1, j'insère un "0" en "H3" en décalant les cellules à droite.
Sinon, j'ajoute "1" à la cellule "H3" ("H3" devient "H3+1")
Et ainsi de suite jusqu'à "B2000"
Est ce que c'est plus clair ?
Merci d'avance.
