Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1338 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro Excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro Excel

n°1158500
siyar
Posté le 24-07-2005 à 21:37:45  profilanswer
 

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

mood
Publicité
Posté le 24-07-2005 à 21:37:45  profilanswer
 

n°1158550
jpcheck
Pioupiou
Posté le 24-07-2005 à 22:29:10  profilanswer
 

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:

n°1158632
siyar
Posté le 25-07-2005 à 00:35:59  profilanswer
 

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

n°1158677
jpcheck
Pioupiou
Posté le 25-07-2005 à 09:04:10  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro Excel

 

Sujets relatifs
[MACRO ACESS] lancer un fichier Excel depuis Accessmacro basique sous excel
BOUCLE pour Macro Excel : case:nom prenom ---> case:nom case:prenoméxucution directe d'une macro excel sous windows
[resolu][VB EXCEL]pb de création macroprobleme acev application excel avec macro
probleme avec macro excel[VBA] Macro Excel -> Suppression de Lignes
Pbme Macro VBA Excel avec Format Nombre limitéPbme Macro VBA Excel avec Format Nombre limité
Plus de sujets relatifs à : Macro Excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR