Modification de cellule apres recherche

Bonjour à tous,

je suis néophyte en macro.

pour faire cours, j'ai une macro qui recherche dans un tableau excel l'ensemble des lignes contenant la valeur que je cherche.

la macro modifie la couleur des lignes concernées, mais je souhaiterai en plus renseigner une cellule pour chaque ligne dans une colonne donnée (ex : oui/non ou 1/0).

If Invent.Range("Scan") = Range("D" & i) Then

Range("A" & i & ":K" & i).Interior.ColorIndex = 16

Comment indiquer en colonne L de mettre un 1 par exemple si la valeur a été trouvée ?

Merci d'avance..

Bonjour

Un fichier peut-être ?

Cordia5

Bonsoir stevent29, CORDIA5,

je propose ce code VBA :

If Invent.Range("Scan") = Range("D" & i) Then
  Range("A" & i & ":K" & i).Interior.ColorIndex = 16
  Range("L" & i) = "oui"
End If

ou :

If Invent.Range("Scan") = Range("D" & i) Then
  Range("A" & i & ":K" & i).Interior.ColorIndex = 16
  Range("L" & i) = 1
End If

comme ton code est sûrement dans une boucle de recherche, alors avant le End If, ajoute une sortie de boucle quand c'est trouvé : Exit For ou Exit Do, selon que tu as utilisé une boucle For ou Do ; de plus, tout ceci est une réponse partielle, car c'est seulement après la sortie de la boucle de recherche que tu peux déterminer que la valeur cherchée n'a pas été trouvée, et donc écrire à ce moment-là "non" ou "0" ; si ces infos t'aident à résoudre ton exo, merci de passer le sujet en résolu ; sinon, joins ton fichier ; pour cela, tu peux utiliser le bouton « Ajouter des fichiers » qui est situé juste sous la fenêtre d'édition de ton post.

je laisse la suite à un autre intervenant ; bonne chance !

dhany

Merci Dhany pour ton aide.

Problème résolu.

Thks !

merci pour ton retour, et pour avoir passé le sujet en résolu !

bonne continuation !

dhany