Colorer une cellule selon condition
Fermé
nonossov
Messages postés
610
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
-
5 janv. 2019 à 11:02
nonossov Messages postés 610 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 29 janv. 2019 à 18:15
nonossov Messages postés 610 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 29 janv. 2019 à 18:15
A voir également:
- Colorer une cellule selon condition
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? - Forum VB / VBA
- Diviser une cellule excel en deux horizontalement ✓ - Forum Excel
2 réponses
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
8 janv. 2019 à 11:55
8 janv. 2019 à 11:55
Bonjour,
Vous pouvez développer un peu plus……..!!!
Vous pouvez développer un peu plus……..!!!
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
26 janv. 2019 à 09:17
26 janv. 2019 à 09:17
Bonjour,
une facon de faire
une facon de faire
Sub Calcul_Date_Couleur() Dim Plage As Range Dim sh1 As Worksheet Dim sh2 As Worksheet Set sh1 = Worksheets("feuil1") Set sh2 = Worksheets("feuil2") With sh1 derlig = .Range("D" & .Rows.Count).End(xlUp).Row 'derniere cellule non vide colonne A Set Plage = .Range("D1:D" & derlig) 'mise en memoire plage de cellules nb1 = Application.CountIf(Plage, "0*") 'nombre de fois "0" et lettre If nb1 > 0 Then ligsh1 = 1 For n = 1 To nb1 If n > 1 Then ligsh1 = .Columns(4).Find("0*", .Cells(ligsh1, 4), , xlWhole).Row Else 'pour cellule ligne 1 If .Cells(1, 4) Like "0*" Then ligsh1 = 1 End If End If VLsh1D = .Cells(ligsh1, 4) VLsh1A = .Cells(ligsh1, 1) With sh2 nb2 = Application.CountIf(.Columns(1), VLsh1D) If nb2 > 0 Then If .Cells(1, 1) = VLsh1D Then ligsh2 = 1 Else ligsh2 = .Columns(1).Find(VLsh1D, .Cells(1, 1), , xlWhole).Row End If VLsh2 = .Cells(ligsh2, 3) If IsDate(VLsh1A) And IsNumeric(VLsh2) Then sh1.Cells(ligsh1, 9) = VLsh1A + VLsh2 End If Else sh1.Cells(ligsh1, 4).Interior.Color = vbRed End If End With Next n End If End With Set Plage = Nothing End Sub
nonossov
Messages postés
610
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
26 janv. 2019 à 10:49
26 janv. 2019 à 10:49
Merci infiniment, est ce que c'est possible d'ajouter une simple condition: si la macro ne trouve pas les chiffres dans colonne C de Feuil2 elle ne fait rien, c-a-d elle ne colle pas la date de Feuil 1 colonne A. elle laisse la cellule correspondante vide.
nonossov
Messages postés
610
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
26 janv. 2019 à 11:15
26 janv. 2019 à 11:15
Je suis vraiment désolé car a chaque fois j'ajoute qlq chose.
Désolé
Désolé
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
Modifié le 26 janv. 2019 à 17:14
Modifié le 26 janv. 2019 à 17:14
Re,
chaque fois j'ajoute qlq chose.
Y a as d'lezard
code modifie:
chaque fois j'ajoute qlq chose.
Y a as d'lezard
code modifie:
If IsDate(VLsh1A) And IsNumeric(VLsh2) And VLsh2 <> "" Then sh1.Cells(ligsh1, 9) = VLsh1A + VLsh2 End If
nonossov
Messages postés
610
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
29 janv. 2019 à 16:17
29 janv. 2019 à 16:17
Merci infiniment et pardon pour toutes ces demandes, je vous remercie à votre patience.
juste pour cloturer ce sujet, est ce que je peux demander une derniere demande?!!
Est ce que vous pouve m'aider a fair une insertion de la colonne "I" de la Feuil1 entre colonne F et G.
Merci infiniment. <3
juste pour cloturer ce sujet, est ce que je peux demander une derniere demande?!!
Est ce que vous pouve m'aider a fair une insertion de la colonne "I" de la Feuil1 entre colonne F et G.
Merci infiniment. <3
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
29 janv. 2019 à 16:55
29 janv. 2019 à 16:55
Bonjour,
colonne "I" de la Feuil1 entre colonne F et G
Autant ecrire de suite en colonne G plutôt que la colonne I!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
colonne "I" de la Feuil1 entre colonne F et G
Autant ecrire de suite en colonne G plutôt que la colonne I!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
25 janv. 2019 à 16:14
voila, j'ai deux deux Feuil 1 et 2, dans la colonne D de la Feuil 1 :
J'ai par exemple :
0AAA
69999
44566
0BBBB
67777
45666
0XXXXX
68888
0ZZZZ
611111
......
et dans la colonne A de la Feuil 2, j'ai par exemple:
0BBBB
0ZZZZ
0XXXXX
0EEEEE
0SSSSS
.....
la macro va chercher les 0**** dans la Feuil1 colonne D sur la colonne A Feuil2, si le trouve il va rien faire sinon il colore les cellules non trouvées de la colonne C.
Merci infiniment,
25 janv. 2019 à 16:20
colore les cellules non trouvées de la colonne C.
Z'etes sur de la colonne???
Modifié le 25 janv. 2019 à 16:22
25 janv. 2019 à 16:47
Vous avez une partie du code ici:
https://forums.commentcamarche.net/forum/affich-35744823-executer-deux-tache-excel
25 janv. 2019 à 17:02