déclarer un tableau dans une macro

Version imprimable

01/11/2016, 10h27
mac4209

déclarer un tableau dans une macro

Bonjour,

J'ai un fichier excel dans lequel j'ai insérer un tableau que j'ai appeler "montableau". Dans une macro, je souhaite faire un Vlookup où je viens chercher les infos dans mon tableau. Comment déclarer le tableau et faire en sorte qu'il corresponde à mon tableau, c'est-à-dire que si j'ajoute des lignes dans excel, ma macro sache le prendre en compte.

Merci
01/11/2016, 10h38
BENNASR

Bonjour
sélectionner le tableau / onglet insertion / tableau
puis formule et définir un nom à ton tableau
chaque ligne ajouté en dessous automatiquement sera inclus dans ton tableau
01/11/2016, 10h39
mac4209

j'ai fait mon tableau sans problème dans excel comme vous l'expliquer, mon soucis est de le gérer dans VBA

je sais pas si c'est ce que tu cherche à défaut faux bien expliquer ta demande
NB : chui débutant en VBA et mes connaissance sont très limitées

Code:

1
2
3
4
5
6
7
8
9
10
Sub calcul_solde()
Dim Tablo
Dim i As Long
Tablo = Sheets("BLABLA").Range("A10", "I" & Sheets("BLABLA").Range("I" & Rows.Count).End(xlUp).Row) ' ici  mon tableau allant de A10 à la colonne I
For i = LBound(Tablo, 1) To UBound(Tablo, 1)
    If Tablo(i, 1) = "B T" Then  ' si la colonne A = BT
        resultat = resultat + Tablo(i, 9) ' somme les valeur de la colonne 9
    End If
Next i
Sheets("BLABLA").Range("E4") = resultat ' ou s'inscrit le résultat trouvé

01/11/2016, 11h06
mac4209

Je ne crois pas que cela corresponde a ma demande... Je vais tenter de reexpliquer mon problème.
Dans une feuille excel "feuil1", j'ai une plage de donnée "A1:B5" où j'ai en A un nom et en B une note de 0 à 20. J'ai pris mes données et inséré un tableau nommé "note_eleves". Lorsque j'ajoute un nouveau nom et une note à la suite de mon tableau, mes données s'ajoute au tableau... jusque là rien de compliqué.
Dans VBA, je souhaite faire un VlookUp qui me renvoi la note en fonction du nom que j'ai saisi en C4.
J'ai donc :

Code:

resultat = Application.VLookup(Range("C4").Value, "A1:B5", 2, False)

Je souhaite remplacer A1:B5 par "note_eleves" pour que la macro prenne en compte toutes les lignes de mon tableau si j'ajoute des noms. Ma question est donc comment déclarer le tableau pour que VBA le reconnaisse ?
01/11/2016, 11h22
eriiic

Bonjour,

pourquoi ne pas continuer ici http://www.developpez.net/forums/d16...-d-recherchev/ ?
eric

tu peux exploiter mon code comme ça :
dans worksheet / selection change (feuil1)

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Tablo
Dim i As Long
Tablo = Sheets("feuil1").Range("A2", "B" & Sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row) 
For i = LBound(Tablo, 1) To UBound(Tablo, 1)
    If Tablo(i, 1) = Sheets("feuil1").Range("E4").Value Then
        resultat = resultat + Tablo(i, 2)
    End If
Next i
Sheets("Feuil1").Range("F4") = resultat
End Sub

tu saisie le nom en E4 et le résultat en F4

si non essaye ce code bricolé :mouarf:

Code:

1
2
3
4
5
6
7
8
9
Sub chercher()
Dim i As Long
i = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To i
If Range("D4").Value = Range("A" & i).Value Then 'le nom à chercher à saisir en D4
Range("D5").Value = Range("B" & i).Value ' Résultat en D5 à adapter
End If
Next i
End Sub

Bonjour,

un "tableau structuré" dans Excel dispose de son objet équivalant VBA : ListObject

admettons que le champs où est écrit l'élève s'appelle "NOM_ELEVE" et que la note est dans le champs "NOTE_ELEVE"

ça ressemble grosso modo à ça de retrouver sa note :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub toto()
Dim MonTableau As ListObject, MonEleve As String, SaNote
Set MonTableau = Feuil1.ListObjects("note_eleves")
MonEleve = "Pierre"
    With MonTableau
        ' utilisation de INDEX/EQUIV en évaluation interne VBA
                        ' =INDEX(note_eleves;EQUIV("Pierre";note_eleves[NOM_ELEVE];0);COLONNE(note_eleves[NOTE_ELEVE]))
        SaNote = Evaluate("=INDEX(" & MonTableau.Name & ",MATCH(""" & MonEleve & """," & MonTableau.Name & "[NOM_ELEVE],0),COLUMN(" & MonTableau.Name & "[NOTE_ELEVE]))")
        If IsError(SaNote) Then
            MsgBox MonEleve & " n'existe pas"
        Else
            MsgBox "La note de " & MonEleve & " est de " & SaNote
        End If
    End With
End Sub

02/11/2016, 12h58
mac4209

@joe.levrai
Super, je vais utiliser ton code, Merci à tous pour votre aide