Bonjour Eric, Celeda, Chris, Baicca
Pour Eric,
Je n'avais pas vu ta question dans le fil original => Lien supprimé et je m'en excuse, vraiment beaucoup de boulot prioritaire, et je ne fais que des apparitions sporadiques sur le Forum.
Par contre si j'avais vu cette question, je t'aurais immédiatement répondu, "Eric relis la question de Daniel" :
Voilà : dans une listbox, j'ai plusieurs entrées (ex : terme 1, terme 2, terme 3). Je voudrais effectuer une action SI la liste contient le terme 2. En langage "humain" ça donnerait : "si la liste contient le terme 2, alors effectuer telle action".
Hors le code que tu as reproduit ci-dessus est fait exactement pour cela, il retournera la macro "Action" si "Toto4" est bien incrémenté et contenu dans la ListBox ! Et Daniel a été très satisfait de cette solution. Je te donne rendez-vous dans ce fil Lien supprimé car finalement cette question n'a rien à voir avec ce fil !!! lol
Pour ta question de cellules colorées en fonction d'une date, je ne sais pas ce que C@thy avait proposé mais voici une approche :
Option Explicit
Sub ColoringDateLessThanToday()
Dim TheDate As Date
Dim Cell As Range
TheDate = Date
For Each Cell In Range("H1:H50")
If Not IsDate(Cell) Then Exit For
If Cell < TheDate Then
Cell.Interior.ColorIndex = 3
Else
Cell.Interior.ColorIndex = xlNone
End If
Next
End Sub
Pour Celeda,
En "Added.Value" pour toi ! Un autre approche consisterait à faire un test sur chaque cellule pour vérifier qu'elle contient bien du numérique, sinon la laisser tel quel (pour les cas de : "1, Rue du Coin, batiment 10.E"
Sub VirguleInsteadPoint()
Dim Cell As Range
Dim NumVal As Double
For Each Cell In ActiveSheet.UsedRange
NumVal = 0
If Not Cell = "" Then
On Error Resume Next
NumVal = Application.WorksheetFunction.Substitute(Cell.Text, ".", ",")
If Not NumVal = 0 Then
Cell = NumVal
Else: Cell = Cell
End If
End If
Next
End Sub
NB testé évidemment sur un PC avec une config Windows Régionale en FR, (la Virgule)
PS pour notre ami(e) Baicca, il existe aussi un petit FreeWare sympa et indispensable pour ce problème de Point au pavé numérique quand on travaille sous OpenOffice c'est "AllChars For Windows" voir ce fil Lien supprimé je ne sais pas du tout si ce sera la solution pour saisir depuis un portable, mais c'est peut être mieux que de passer en configuration US...
Bon jour Férié à tous et toutes