Formules excel
zephyr
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
j'ai des lacunes sur excel , voila sur un tableau a 6 colonnes j'aurai voulu avoir une formule qui puisse me mettre une colonne de couleur si j'en remplie une autre ! j'explique on a un reseau de 3 pc avec des tableaux communs si je met une valeur dans une cellule (date,nom) que je sauvegarde et que je ferme ,mon collegue ne peut pas reperer les dernières modif que j'ai fait !
en gros si A1 OU B1 OU C1 OU D1 = CELLULE "REMPLIE" : ALORS G1=ROUGE par exemple
en esperant avoir été compréhensible ?! merci
j'ai des lacunes sur excel , voila sur un tableau a 6 colonnes j'aurai voulu avoir une formule qui puisse me mettre une colonne de couleur si j'en remplie une autre ! j'explique on a un reseau de 3 pc avec des tableaux communs si je met une valeur dans une cellule (date,nom) que je sauvegarde et que je ferme ,mon collegue ne peut pas reperer les dernières modif que j'ai fait !
en gros si A1 OU B1 OU C1 OU D1 = CELLULE "REMPLIE" : ALORS G1=ROUGE par exemple
en esperant avoir été compréhensible ?! merci
A voir également:
- Formules excel
- Liste déroulante excel - Guide
- Formule si et excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Word et excel gratuit - Guide
- Formules - Télécharger - Études & Formations
2 réponses
Bonjour,
Si j'ai bien compris la question je pense qu'une MFC ne pourra pas convenir.
1°) si une cellule change mettre en rouge
2°) quand "le collègue" à visualiser les modif, il faudrait supprimer cette couleur, sinon en finale tout serra en rouge.
Pour ce faire, 2 sub VBA à mettre sur le module de la feuille et ajouter un bouton "Mise à jour"
Tu dis...
A+
Si j'ai bien compris la question je pense qu'une MFC ne pourra pas convenir.
1°) si une cellule change mettre en rouge
2°) quand "le collègue" à visualiser les modif, il faudrait supprimer cette couleur, sinon en finale tout serra en rouge.
Pour ce faire, 2 sub VBA à mettre sur le module de la feuille et ajouter un bouton "Mise à jour"
Private Sub CommandButton1_Click()
Range("A5:" & Range("A1").SpecialCells(xlCellTypeLastCell).Address).Interior.ColorIndex = xlNone
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As String, AncCell As Variant
If AncAdress <> "" And Target.Count = 1 Then 'pour 1ère initialisation.
If AncCell = "" And Range(AncAdress) <> "" Then
'La cellule que l'ont vient de quitter était vide
'et a été modifiée.
Range(AncAdress).Interior.ColorIndex = 3
End If
End If
AncAdress = Target.Address
AncCell = Target.Value2
End Sub
Tu dis...
A+