VBA excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA excel

cmyriam

Bonjour,

Je suis debutante en vba et j'ai donc besoin de votre aide.
Voila j'ai un tableau de donnee du style:
1 2 3 4 5 6 7 8 9 10
FR1 A T G C A G C T C G
FR2 A T G C T N C T C G
FR3 A T G C A G G C C G
FR4 A T A A A G G T T G
FR5 A C G A A C C T N C
FR6 A T G G T C N C T G

J'aimerai surligne/ colorie les cases de chaque colonne qui sont differentes de la 1er ligne.
Par exemple pour la colonne 4, je voudrais colorie les A en rouge et le G en vert (car ils sont differents de C qui est sur la 1er ligne). De plus, je voudrais que tous les N soient colories en orange.

J'ai essaye de faire un code que voila:

Code :

Sub Color_cells_In_All_Sheets()
Dim FirstAddress As String
Dim MySearch As Variant
Dim myColor As Variant
Dim Rng As Range
Dim I As Long
Dim sh As Worksheet
MySearch = Array("N" )
myColor = Array("3" )
For Each sh In ActiveWorkbook.Worksheets
With sh.Cells
.Interior.ColorIndex = xlColorIndexNone
For I = LBound(MySearch) To UBound(MySearch)
Set Rng = .Find(What:=MySearch(I), _
After:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
FirstAddress = Rng.Address
Do
Rng.Interior.ColorIndex = myColor(I)
Set Rng = .FindNext(Rng)
Loop While Not Rng Is Nothing And Rng.Address <> FirstAddress
End If
Next I
End With
Next sh
End Sub

Mais lorsque je le lance, j'ai un overflow...

Est-ce que quelqu'un, comprend ce qui ne va pas dans mon code.
Sinon, quelqu'un peut-il me proposer un autre code.

Merci.

Publicité

Marc L

Bonjour. Pour l'overflow, rien ne me frappe à part peut-être les .Cells en ligne 15 vis à vis du With en ligne 11 …

Autres points :

- ligne 10 : boucle sur toutes les feuilles mais il est question d'un tableau, pourquoi le chercher alors sur toutes les feuilles ?

- ligne 14 : recherche sur toutes les cellules de la feuille au lieu de celles du tableau uniquement …

- ligne 16 : recherche dans les formules, cela ne serait pas mieux dans les valeurs ?

- Pas de test comparatif entre les cellules de la première ligne et celles des suivantes composant le tableau,
donc toute cellule trouvée est coloriée, même hors tableau, sans tenir compte de la première ligne …

Donc mettre à plat la problématique pour revoir le schéma / la logique / l'organigramme du code, sinon c'est l'usine à gaz assurée ‼

cmyriam

Okay, je vais essayer ca.
Merci.

hush hush

je savais que ça te plairait

+1
Et par pitié, des tabulations

cmyriam

J'ai finalement reussi a faire mon fichier.
Le probleme c'est que ca prend en compte le casse.
C'est a dire que ca me colorie les lettres en minuscules alors que se sont les meme lettres que celle en majuscule.
Existe t-il une fonction qui me permette de ne pas surligner les lettres minuscules identiques a la lettre majuscule de depart?
Merci.

hush hush

je savais que ça te plairait

Tu utilise quelle fonction pour comparer?
Si recherche, ça doit être dans le paramètre matchcase
Si tu fais une comparaison par égalité, tu peux tout passer en majuscules ou minuscules : http://silkyroad.developpez.com/VB [...] eres/#LI-G

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA excel

Sujets relatifs
Utiliser librairies R.euters E.ikon sur Excel VBA	Création d'une action en VBA Excel - Besoin d'aide
[HELP] VBA sur Excel	VBA (Excel 2010) Syntaxe Range
(VBA) excel 2003 erreur 1004	VBA excel fonctionne en 2010 et plante en 97?
[VBA / Excel] supprimer une ligne sur deux	[VBA / Excel] Modéliser dette dynamiquement
Plus de sujets relatifs à : VBA excel

Page générée en 0.031 secondes