Discussion :

[Thomas HK]

Bonjour,

Je suis d'butant en VBA et j'ai créé un code qui me permet d'encadrer des cellules en fonction du texte d'une autre cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
If Range("$L$7") Like "VM NOK" Then
Range("M7:Q7").Borders.LineStyle = xlDouble
Else
 
If Range("$L$7") Like "VM OK" Then
Range("M7:Q7").Borders.LineStyle = xlContinuous
Else
Range("M7:Q7").Borders.LineStyle = xlNone
End If
 
End If

J'aimerais pouvoir "étendre" ce code sur chaque ligne de ma page Excel, c'est à dire que si je choisi "VM OK" en ligne 8, 9, 10, ..., les plages M8:Q8, M9:Q9, M10:Q10, ... soient encadrées.


Question subsidiaire :
J'aimerais aussi pouvoir encadrer seulement le tour de ma plage M7:Q7 (et pas les bordures internes entre chaque cellule de cette plage)


Merci d'avance !

Thomas

[riaolle]

Bonjour et bienvenue sur le forum !

"étendre" ce code sur chaque ligne

Ceci se traduit-il par : "sur toutes les lignes de 7 à ..., je veux faire la même action"? Alors, il faut utiliser un boucle For : http://silkyroad.developpez.com/vba/boucles/#LIII
Ceci te permet d'avoir un indice qui désigne ta ligne et ainsi de travailler successivement sur les lignes que tu veux.

seulement le tour de ma plage M7:Q7 (et pas les bordures internes entre chaque cellule de cette plage)

Utilise l'enregistreur de macro pour connaître le code associé : attention à bien adapter le code une fois enregistré !

Essaie d'adapter ton code avec cela et reviens vers nous si tu bloques encore