Forums XLPages

Excel & VBA Forum principal [résolu] Utilisation de Array()

Utilisation de Array()
#1
Titom1978
Aspirant XLPages

Inscription: 04/10/2009

Messages: 39

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2007, 2010, 2011 MAC
Posté le : 12-12-2012 09h11
Bonjour à toutes et à tous,

Voici ce qui m'amène aujourd'hui. Je butte sur un problème concernant les tableaux de type Array() en VBA.

Voici en substance ce que je cherche à faire:
1. Je mets en place un tableau de type Array() dans mon code VBA,
2. Ce tableau contient des données qui seront utilisées pour tester des valeurs
3. Lorsque je lance une boucle pour tester les valeurs des cellules par rapport aux données du tableau, je souhaite que la cellule prenne un certain type de coloration.

Pour ce cas, vous me direz qu'il y a les MEFC, mais dans le cas présent je simplifie volontairement mon code et mes feuilles de données. Je souhaite comprendre comment je peux utiliser ces fameux Array.

Je joins deux fichiers excel, un en version 2010 et un en version antérieur.

D'avance merci pour votre aide.

Titom



Pièce jointe:
xls Tableau.xls   [ Taille: 32.00 Ko - Téléchargements: 454 ]
xlsm Tableau.xlsm   [ Taille: 14.48 Ko - Téléchargements: 480 ]
That's all folks!!!
Hors Ligne
 Rapport   Haut 

Re: Utilisation de Array()
#2
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 12-12-2012 12h46
Bonjour Titom, Didier, le Forum

Tu dois faire une boucle de teste de la valeur de la cellule sur chaque valeur de ton tableau array.
J'écriais le code de cette manière
Sub travail_array()

Dim prenom As Variant
Dim I As Integer, lastLine As Integer, J As Integer

lastLine = Range("A100").End(xlUp).Row
prenom = Array("Thomas", "Romain", "Matthieu")

For I = 1 To lastLine
    Cells(I, 1).Interior.Color = vbRed
    For J = 0 To UBound(prenom)
        If Cells(I, 1) = prenom(J) Then
            Cells(I, 1).Interior.Color = vbGreen
            Exit For
        End If
    Next J
Next I

End Sub

@+Jean-Marie
Hors Ligne
 Rapport   Haut 

Re: Utilisation de Array()
#3
Titom1978
Aspirant XLPages

Inscription: 04/10/2009

Messages: 39

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2007, 2010, 2011 MAC
Posté le : 12-12-2012 14h21
Merci JeanMarie!

Pile-poil ce que je voulais!

A bientôt sur le forum
That's all folks!!!
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes