Résolu VBA : Rechercher valeur et sélectionner la cellule correspondant + 2 au dessus

swiffswiffer

Nouveau membre
#1
Bonjour à tous,

Débutant en VBA (depuis deux jours) je suis actuellement face à un problème qui m'empêche d'avancer, j'ai bien chercher des solutions sur le net mais je n'arrive pas à les adapter à ma macro ...

Voici la macro en question :

Dim cel
Dim plage1 As Range

Set plage1 = Sheets("JAN").Range("C7:AG122")

For Each cel In plage1
If cel.Text = Sheets("Para").Range("F3") Then
cel.Interior.ColorIndex = 4

Else
If cel.Text = Sheets("Para").Range("F4") Then
cel.Interior.ColorIndex = 3

End If
End If
Next cel


Le but de cette macro est de repérer dans la feuille "JAN" dans la plage de cellule de C7 à AG 122 la valeur "CONFIRME" équivalent à la cellule F3 de la feuille "Para" et de colorier les cellule trouver en vert. Sinon si la valeur des cellules est égal à "OPTION" qui correspond à la cellule F4 de la feuille "Para" alors colorie en rouge.

Alors tout marche très bien pour les cellules trouvé mais je n'arrive pas à ajouter la condition, colorie également les cellule des deux lignes au dessus et la ligne en dessous de la même colonne à chaque valeur trouver.

Merci d'avance si vous avez des pistes, je continue les recherches de mon côté :)
 

drul

Obscur pro du hardware
Staff
#2
Meilleure réponse


Salut,
Alors tout simplement:
Code:
'...
If cel.Text = Sheets("Para").Range("F3") Then
cel.Interior.ColorIndex = 4
cel.offest(-2,0).Interior.ColorIndex = 4
cel.offest(-1,0).Interior.ColorIndex = 4
cel.offest(1,0).Interior.ColorIndex = 4
'...
P.S. il est préférable d'utiliser ".value" plutôt que ".text", et spécifie le toujours
(... = Sheets("Para").Range("F3").Value)
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Staff en ligne
  • Eldarium
    Modo d'Inde Rond
Membres en ligne
  • Raspac
  • vaelis
  • fabiobs
  • Eldarium
  • maeldelavega
  • jaafarsat
  • longaripa
  • hoobinul
  • thomade54
Derniers messages publiés
Statistiques globales
Discussions
865 348
Messages
8 057 221
Membres
1 575 869
Dernier membre
hoobinul
Partager cette page
Haut