VBA Tableau à partir d'une plage Excel

Version imprimable

Bonjour à tous!

Je viens vers vous car je suis bloqué...

A partir de deux plage Excel je créer 2 tableaux, je rempli mes tableaux, tout vas bien^^
Le problème c'est que je ne sais pas les utiliser.

Mon 1er tableau :

Tab_ref il correspond à la cellule D1 à SJ1 (500 colonnes). Dans ces cellule sont écrit des valeur qui me servent de référence, exemple 9001 en cellule G1

Mon 2eme tableau

Tab_valeur il correspond à la cellule D7 à SJ... Dans ce tableau sont stocké des données.

Les deux tableaux ont le même nombre de colonnes.

Est_il possible de faire, par exemple, la recherche de la valeur 9001 dans le tableau Tab_ref et de stocker le numéro de colonne du tableau Tab_ref où est rangé 9001?

Dans Excel je fais :

Code:

1
2
3
4
5
6
 
 
'cherche la colonne "N° du plan" dans la configuration PLC
Rows("1:1").Select
Selection.Find(What:="9001", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
index_col = ActiveCell.Column

Est_il possible de faire la même chose avec mon tableau Tab_ref?

voici le VBA que j'ai commencé a écrire

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Sub Tableaux_Virtuel()
'Macro qui permet de mettre PLCconfiguration dans un tableau virtuel
 
 
Dim Tab_ref As Variant
Dim tab_valeur As Variant
 
Dim row_fin As Integer
Dim col_fin As Integer
Dim l As Integer
Dim k As Integer
 
 
'####créer un classeur temporaire en copiant la configuration PLC
 
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Workbooks.Add 'Créer un classeur Excel
temp = ActiveWorkbook.Name 'Nomme le nouveau classeur "temp"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
Cells.Replace What:="0.1", Replacement:="'0.10", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="0.2", Replacement:="'0.20", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="0.3", Replacement:="'0.30", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="0.4", Replacement:="'0.40", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="0.5", Replacement:="'0.50", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="0.6", Replacement:="'0.60", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
 
 
'Détemine la dernière ligne pleine
row_fin = Cells(Cells.Columns.Count, 4).End(xlUp).Row
'Détemine la dernière colonne pleine
col_fin = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
 
''Créer un tableau 2 dimentions.
'ReDim TabPLC(row_fin, col_fin)
 
Tab_ref = Range(Cells(1, 4), Cells(1, col_fin))
 
tab_valeur = Range(Cells(8, 4), Cells(row_fin, col_fin))
 
'ferme le classeur temporaire sans les sauver
Workbooks(temp).Close SaveChanges:=False
'vide le presse-papier
Application.CutCopyMode = False
 
End Sub

Merci d'avance pour votre aide:)

25/07/2019, 04h18
ARTURO83
Bonjour,

Pour trouver le N° de la colonne
Code:

1 2 3 ValCherchee = "9001" Set NumCol = Rows(1).Find(What:=ValCherchee, LookIn:=xlValues, LookAt:=xlWhole) index_col = NumCol.Column
Est_il possible de faire, par exemple, la recherche de la valeur 9001 dans le tableau Tab_ref et de stocker le numéro de colonne du tableau Tab_ref où est rangé 9001? OUI, mais le stocker où?

Cdlt
25/07/2019, 07h00
Rémy.A

[XL-2019] VBA Tableau à partir d'une plage Excel

Bonjour ARTURO83,

Merci pour la réponse.

Le Tableau Tab_ref est un tableau de type array as variant en 2 dimensions. C'est dans ce tableau vba que je voudrais récupérer le numéro de colonne et non dans Excel.

Bonjour,

D'après vos tableaux

Code:

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
27
28
    Tab_ref = Range(Cells(1, 4), Cells(1, col_fin))
    tab_valeur = Range(Cells(8, 4), Cells(row_fin, col_fin))
 
    'Repérage dans Tab_ref
    NumCol = 1
    For Each Cell In Tab_ref
        If Cell = "9001" Then
            Col = NumCol
            Exit For
        End If
        NumCol = NumCol + 1
    Next
 
    'Repérage dans tab_valeur
    NumCol = 1
    NumLig = 1
    For Each Cell In tab_valeur
        If Cell = "9001" Then
            Col = NumCol
            Exit For
        End If
        If NumLig = row_fin - 7 Then
            NumLig = 1
            NumCol = NumCol + 1
        Else
            NumLig = NumLig + 1
        End If
    Next

A tester

Cdlt

Bonjour,

Une autre méthode :

Code:

1
2
3
4
5
6
7
8
9
10
 
i = 0
j = 0
For i = 1 To UBound(Tab_Ref, 1) 'Boucle sur les lignes
    For j = 1 To uboud(Tab_Ref, 2) 'Boucle sur les colonnes
        If Tab_Ref(i, j) = "9001" Then
            Col = j
            Ligne = i
            Exit For
        End If

Cordialement,
C

Désolée, il y a une petite faute de frappe: roll:

Code:

1
2
3
4
5
6
7
8
9
10
 
i = 0
j = 0
For i = 1 To UBound(Tab_Ref, 1) 'Boucle sur les lignes
    For j = 1 To UBound(Tab_Ref, 2) 'Boucle sur les colonnes
        If Tab_Ref(i, j) = "9001" Then
            Col = j
            Ligne = i
            Exit For 'Si tu veux sortir dès la première occurence trouvée
        End If

27/07/2019, 15h09
Rémy.A

VBA Tableau à partir d'une plage Excel

Bonjour à tous,

Merci pour vos réponses et l'aide apportée!!

Merci Clochete, ta solution fonctionne parfaitement!!

Bonne journée

Rémy.

Bonjour,

Autre méthode encore plus rapide sans passer par des boucles
pour Tab_ref:

Code:

1
2
3
4
5
6
    Set Tab_ref = Range(Cells(1, 4), Cells(1, col_fin))
    Set x = Tab_ref.Find("9001", LookIn:=xlValues, lookat:=xlWhole)
    If Not x Is Nothing Then
        Col = x.Column
        Lig = x.Row
    End If

Pour tab_valeur :

Code:

1
2
3
4
5
6
    Set tab_valeur = Range(Cells(8, 4), Cells(row_fin, col_fin))
    Set x = tab_valeur.Find("9001", LookIn:=xlValues, lookat:=xlWhole)
    If Not x Is Nothing Then
        Col = x.Column
        Lig = x.Row
    End If

Cdlt

re
bonjour
sans boucle aussi mais sur tes variable tableaux avec match
exemple

Code:

1
2
3
4
5
6
7
Sub test()
    Tab_ref = Range(Cells(1, 4), Cells(1, "sj"))
    tab_valeur = Range(Cells(8, 4), Cells(8, "sj"))
    If Not IsError(WorksheetFunction.Match(9001, Tab_ref, 0)) Then
        MsgBox tab_valeur(1, WorksheetFunction.Match(9001, Tab_ref, 0))
    End If
End Sub