Macro Excel - VB/VBA/VBS - Programmation
Marsh Posté le 24-07-2005 à 22:29:10
siyar a écrit : Bonjour |
le mieux reste encore une boucle de tests, mais l'idéal c'est que tu cherches un peu et nous poste ton code si jamais il ne tourne pas, c'est le plus instructif selon moi
Marsh Posté le 25-07-2005 à 00:35:59
Merci jpcheck pour votre reponse;jai essayer bq de truc sachant que je suis nul en vba;par exemple:
Sub recherche_cel()
'recherche_cel Macro
' Macro enregistrée le 24-07-2005 par Siyab
Numcolonne = 2
Numligne = 15
Cells(Numligne, Numcolonne).Select
If ActiveCell.Value <> Range("d1" ).Value Then
Numligne = (Numligne + 1)
Else
Cells(Numligne, Numcolonne).Select
Selection.ColorIndex = 6
End If
End Sub
Marsh Posté le 25-07-2005 à 09:04:10
siyar a écrit : Merci jpcheck pour votre reponse;jai essayer bq de truc sachant que je suis nul en vba;par exemple: |
et cela ne te convient pas?
tu peux très bien simplifier ton code (en nombre de lignes) avec cells(i,j).colorindex=6 par ex.
Ensuite, ici tu sembles tester une seule valeur en d1 c ca? alors tu peux faire une boucle
for i=1 to maximum de la colonne
if cells(i,1).value=range("d1" ).value then
cells(i,1).colorindex = 6
End if
next i
rien ne t'empeche de faire des tests imbriqués ensuite
Marsh Posté le 24-07-2005 à 21:37:45
Bonjour
jai besoin de votre aimable aide pour créer une macro excel qui cherche la valeur d'une cellule dans une colonne de données et qui peut marquer la cellule trouvée par format spécial (couleur) ou par écriture dans la cellule d'a côté. merci d'avance