Soucis sur tableau de service

Bonjour a tous,

alors voila j'ai un magnifique tableau de service, sur lequel les jours de congés sont les cases coloriées en rouge. Sur certaines, il y a une abréviation. Et moi j'ai besoin de mettre sur chacune des cases un caractere pour pouvoir les compter, mais j'aimerais préserver celle qui en ont deja.

J'ai fais une petite macro qui remplis, mais je n'arrive pas a tester si une case possede deja un caractere.

Je sais c une question de débutant, mais bon si quelqu'un peut m'aider, merci d'avance.

J'utilise Excel 2003 pour info.

Bonjour,

Code:

---

1 2 3 4 5

If Not IsEmpty(ActiveCell.Value) Then   'BlaBla   End If

---

Et hop, c'est comme ça que tu testes si une case n'est pas vide en VBA !

Bonne chance pour la suite :king:

Merci bien,ca fonctionne du tonnerre.

Bonjour psychosiffleur, re dead,

une proposition sans avoir besoin d'ajouter un caractere, si les cellules à compter sont rouges

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub rouge() Dim x As Integer, y As Integer, compte As Integer compte = 0 for y = 1 to 'derniere colonne for x = 1 to 'derniere ligne If Cells(x, y).Interior.Color = 192 Then' à verifier n° de couleur compte = compte + 1 End If Next x End Sub

---

Merci bien, c'est une idée interessante, et ca m'evitera de changer des champs existants.

Un conseil, pour etre sur du numero de couleur,
tu selectionnes une cellule en rouge et lances cette macro

Code:

---

1 2 3

sub repere() msgbox activecell.Interior.Color end sub

---

mais tu le sais déjà....peut-être ;)