Discussion :

[Wiiizz14]

Bonjour,

Je suis novice en Vba et je souhaite avoir des pistes/exemples pour un problème dont je ne trouve pas la solution malgré de nombreuses discussions lues et épluchées dans tous les sens

J'ai un tableau composé ainsi :

- 16 colonnes fixes (A à P)
- Le nb de lignes est variable selon les saisies
- La colonne J contient des cellules qui ne doivent pas être "re-coloriées"

Le problème est de réaliser une sélection non contiguës de cellules par rapport au résultats de la boucle For each pour ensuite les colorier.

> J'ai réussi à boucler la colonne K en fonction de la valeur que je recherche (string)
> J'ai aussi réussi avec offset à colorier les colonnes précédentes (A à K) cependant je n'arrive pas à omettre la colonne J de la sélection ni à sélectionner les colonnes suivantes (L à P)
> Je pense que j'ai qqch à faire avec des Range ou des Select avec la variable Cell utilisée dans la boucle mais je ne trouve pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Sub Test_FM()
 
Dim ValCherch As String
Dim DerLign As Integer
Dim Plage As Range
Dim Cell As Range
 
 
ValCherch = "FM"
 
DerLign = Range("K65536").End(xlUp).Row 'N° de la dernière ligne saisie
 
    Set Plage = Range("K1" & ":K" & DerLign) 'Defini la plage
 
        For Each Cell In Plage
 
        If Cell.Value = ValCherch Then Range(Cell.Offset(0, -10), Cell).Interior.ColorIndex = 6
 
        'Comment ajouter aussi le décalage vers la droite sur colonnes L à P ?
        'Comment omettre la colonne J
 
        Next Cell 'Boucle tous les FM
 
End Sub

Je joint un fichier pour aider à comprendre

Je ne veux pas svp une solution toute faite, mais juste des propositions ou des pistes pour que je comprenne par moi-même...sinon c'est trop facile et inutile !

D'avance merci pour vos retours