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

[Marc-L]

Bonjour,

indiquer clairement le Range des colonnes utilisées, simple via l'Enregistreur de macro …

___________________________________________________________________________________________________________

Je suis Paris, Manchester, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Wiiizz14]

Re,

Merci pour cette indication. Via l'enregistreur de macro j'obtiens par exemple pour la première ligne qui contient la valeur recherchée ceci :

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
'
' Macro1 Macro
 
    Range("A8:G8,I8:P8").Interior.ColorIndex = 6
 
End Sub

J'avais déjà essayé par cette méthode mais je n'arrive pas à relier le Range avec le n° de ligne variable déterminé par chaque passage de la boucle.

C'est là que je ne comprends pas, ma logique m'abandonne

[goldstar]

Bonjour,

Comme ceci.

Code :

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

Range("A" & Cell.Row & ":G" & Cell.Row & ",I" & Cell.Row & ":P" & Cell.Row).Interior.ColorIndex = 6

Cordialement,

[Wiiizz14]

Re,

Merci pour la solution !

Même si j'aurai juste préféré une piste plutôt qu'une réponse exacte...

[mercatog]

Ou utiliser Union couplée à Offset et Resize

Code :

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

If c.Value = ValCherch Then Union(c.Resize(, 6), c.Offset(, -10).Resize(, 9)).Interior.ColorIndex = 16

[Wiiizz14]

Re,

Merci pour ce code, je ne connaissais pas Resize.