Planning "dynamique" excel
Carooooooo
Messages postés
38
Date d'inscription
Statut
Membre
Dernière intervention
-
Carooooooo Messages postés 38 Date d'inscription Statut Membre Dernière intervention -
Carooooooo Messages postés 38 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaiterais dans excel visualiser un planning des audits que j'ai à réaliser. Cela peut être des audits interne externe et produits, process etc..
Dans un premier "onglet" j'ai un tableau type:
Interne- produits - Date1- date2- date3...
Externe- process - Date1
Interne- process - Date4-Date 5...
Je souhaiterais à partir de ce tableau générer un planning avec des codes couleurs par type d'audit sachant qu'il peut y avoir des audits différents un même jour.
J'ai déjà trouvé un planning qui se met à jour automatiquement via des MFC, le problème est que je suis limitée à 3 conditions.
merci pour votre aide
Je souhaiterais dans excel visualiser un planning des audits que j'ai à réaliser. Cela peut être des audits interne externe et produits, process etc..
Dans un premier "onglet" j'ai un tableau type:
Interne- produits - Date1- date2- date3...
Externe- process - Date1
Interne- process - Date4-Date 5...
Je souhaiterais à partir de ce tableau générer un planning avec des codes couleurs par type d'audit sachant qu'il peut y avoir des audits différents un même jour.
J'ai déjà trouvé un planning qui se met à jour automatiquement via des MFC, le problème est que je suis limitée à 3 conditions.
merci pour votre aide
A voir également:
- Planning "dynamique" excel
- Tableau croisé dynamique excel exemple - Guide
- Liste déroulante excel - Guide
- Planning equipe - Télécharger - Outils professionnels
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
3 réponses
Bonjour,
j'ai cherché sur le net pour le problème ci-dessus, j'ai trouvé un début de solution:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 7 To 37
For j = 7 To 37
'condition 1 : mettre en rouge si c'est écrit produit et si c'est la même date
If Range("C" & i) = Range("AL" & j) And Range("AM" & j) = "Produit" Then
Range("C" & i).Interior.ColorIndex = 3
End If
Next j
Next i
End Sub
ça marche bien sur la colonne C mais je voudrais incrémenté sur les colonnes suivantes comme je le fais pour les lignes (avec i)
est-ce que c'est possible?
j'ai cherché sur le net pour le problème ci-dessus, j'ai trouvé un début de solution:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 7 To 37
For j = 7 To 37
'condition 1 : mettre en rouge si c'est écrit produit et si c'est la même date
If Range("C" & i) = Range("AL" & j) And Range("AM" & j) = "Produit" Then
Range("C" & i).Interior.ColorIndex = 3
End If
Next j
Next i
End Sub
ça marche bien sur la colonne C mais je voudrais incrémenté sur les colonnes suivantes comme je le fais pour les lignes (avec i)
est-ce que c'est possible?
re bonjour,
même si personne ne me réponds je continue à persister à poser des questions
J'ai une macro qui est la suivante qui permet de faire ce que j'ai dit avant: Le problème c'est que si j'ai 2 couleurs pour UNE case il prend la première couleur et je n'arrive pas à faire en sorte qu'il m'indique au moins qu'il y a deux couleurs pour une même case..est-ce que quelqu'un a une idée????
Sub yououoh()
'Permet de supprimer les autres conditions avant
Range("A3:o33").Select
Range("o33").Activate
Selection.Interior.ColorIndex = xlNone
Selection.Font.Italic = False
Selection.Font.Bold = False
Range("p3").Select
For i = 3 To 33
For j = 39 To 150
For k = 1 To 15
'condition 1 : si c'est interne on met en italique
If Cells(i, k) = Cells(j, 1) And Cells(j, 2) = "Interne" Then
Cells(i, k).Font.Italic = True
'condition 2 : si c'est externe on met en gras
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 2) = "Externe" Then
Cells(i, k).Font.Bold = True
End If
' si c'est auditeur 1 il met en rouge
If Cells(i, k) = Cells(j, 1) And Cells(j, 6) = "1" Then
Cells(i, k).Interior.ColorIndex = 3
' si c'est auditeur 2 il met en rose
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 6) = "2" Then
Cells(i, k).Interior.ColorIndex = 7
' si c'est auditeur 3 il met en rose saumon
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 6) = "3" Then
Cells(i, k).Interior.ColorIndex = 38
' si c'est auditeur 4 il met en orange
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 6) = "4" Then
Cells(i, k).Interior.ColorIndex = 46
' si c'est auditeur 5 il met en or
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 6) = "5" Then
Cells(i, k).Interior.ColorIndex = 44
End If
'si c'est un audit type A alors il met un motif "grille" sur la case
If Cells(i, k) = Cells(j, 1) And Cells(j, 4) = "A" Then
Cells(i, k).Interior.Pattern = xlGrid
'si c'est un audit type C alors il met un motif "point" sur la case
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 4) = "C" Then
Cells(i, k).Interior.Pattern = xlGray8
'si c'est un audit type D alors il met un motif "point blanc" sur la case
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 4) = "D" Then
Cells(i, k).Interior.Pattern = xlGray16
Cells(i, k).Interior.PatternColorIndex = 2
'si c'est un audit type E alors il met un motif "trait penché" sur la case
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 4) = "E" Then
Cells(i, k).Interior.Pattern = xlLightDown
Cells(i, k).Interior.PatternColorIndex = 2
End If
Next k
Next j
Next i
End Sub
merci d'avance si quelqu'un a une idée...ou un début de solution..
même si personne ne me réponds je continue à persister à poser des questions
J'ai une macro qui est la suivante qui permet de faire ce que j'ai dit avant: Le problème c'est que si j'ai 2 couleurs pour UNE case il prend la première couleur et je n'arrive pas à faire en sorte qu'il m'indique au moins qu'il y a deux couleurs pour une même case..est-ce que quelqu'un a une idée????
Sub yououoh()
'Permet de supprimer les autres conditions avant
Range("A3:o33").Select
Range("o33").Activate
Selection.Interior.ColorIndex = xlNone
Selection.Font.Italic = False
Selection.Font.Bold = False
Range("p3").Select
For i = 3 To 33
For j = 39 To 150
For k = 1 To 15
'condition 1 : si c'est interne on met en italique
If Cells(i, k) = Cells(j, 1) And Cells(j, 2) = "Interne" Then
Cells(i, k).Font.Italic = True
'condition 2 : si c'est externe on met en gras
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 2) = "Externe" Then
Cells(i, k).Font.Bold = True
End If
' si c'est auditeur 1 il met en rouge
If Cells(i, k) = Cells(j, 1) And Cells(j, 6) = "1" Then
Cells(i, k).Interior.ColorIndex = 3
' si c'est auditeur 2 il met en rose
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 6) = "2" Then
Cells(i, k).Interior.ColorIndex = 7
' si c'est auditeur 3 il met en rose saumon
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 6) = "3" Then
Cells(i, k).Interior.ColorIndex = 38
' si c'est auditeur 4 il met en orange
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 6) = "4" Then
Cells(i, k).Interior.ColorIndex = 46
' si c'est auditeur 5 il met en or
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 6) = "5" Then
Cells(i, k).Interior.ColorIndex = 44
End If
'si c'est un audit type A alors il met un motif "grille" sur la case
If Cells(i, k) = Cells(j, 1) And Cells(j, 4) = "A" Then
Cells(i, k).Interior.Pattern = xlGrid
'si c'est un audit type C alors il met un motif "point" sur la case
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 4) = "C" Then
Cells(i, k).Interior.Pattern = xlGray8
'si c'est un audit type D alors il met un motif "point blanc" sur la case
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 4) = "D" Then
Cells(i, k).Interior.Pattern = xlGray16
Cells(i, k).Interior.PatternColorIndex = 2
'si c'est un audit type E alors il met un motif "trait penché" sur la case
ElseIf Cells(i, k) = Cells(j, 1) And Cells(j, 4) = "E" Then
Cells(i, k).Interior.Pattern = xlLightDown
Cells(i, k).Interior.PatternColorIndex = 2
End If
Next k
Next j
Next i
End Sub
merci d'avance si quelqu'un a une idée...ou un début de solution..