Discussion :

[psychosiffleur]

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.

[DeaD78]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[psychosiffleur]

Merci bien,ca fonctionne du tonnerre.

[casefayere]

Bonjour psychosiffleur, re dead,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[psychosiffleur]

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

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sub repere()
msgbox activecell.Interior.Color
end sub

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