Macro Excel

Macro Excel - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 24-07-2005 à 21:37:45   

Reply

Marsh Posté le 24-07-2005 à 22:29:10    

siyar a écrit :

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


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  :pt1cable:

Reply

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

Reply

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:
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


et cela ne te convient pas? :whistle:  
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 :D

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed