XL 2010 [RESOLU]Récupérer valeurs tableau d'une autre Sub

[herve62]

Bonsoir
D'une sub je fais appel à une autre ou je rempli un petit tableau Tab_j(x)
lors du retour dans la sub principale je veux relire ce tableau mais il est vide ??

les 2 sub sont dan un module , j'ai mis Public tab_J ()

Sub Find_replace()
Dim tab_J(3)
    ref = .Cells(5, 4)
    trouve_ref
   
    For y = 6 To 65
    If .Cells(x, y) = "X" Then
        For Z = 1 To 3
        If .Cells(3, y) = tab_J(Z) Then .Cells(x, y) = "ok"
        Next Z
     End If
    Next y
   
End Sub
----------------
Sub trouve_ref()
Dim tab_J(3)
For j = 1 To 3
tab_J(j) = .Cells(5, j + 30)
Next j
end sub

 

[job75]

Bonsoir herve62,

j'ai mis Public tab_J ()

Très bien mais alors il ne faut pas déclarer le tableau avec Dim tab_J(3) dans les macros...

En haut du module écrivez Public tab_J (3)

Bonne nuit.

 

[herve62]

Bonjour
merci mais ça ne va pas je mets le petit exo pour exemple
je ne récupère pas mon tableau

 

[herve62]

Re
Bon j'ai modifié comme dit au #2 ok
Les boucles J'ai beaucoup travaillé avec du BASIC, fortran, C donc je programme encore à l'ancienne
je suis autodidacte en vba, j'apprends avec ici

 

[job75]

Bonjour herve62,

Désolé mais votre code m'est assez incompréhensible.

Alors en supposant que vous voulez copier le tableau en Feuil2 pour le coller sur le tableau en Feuil1 :

Sub Copier_coller()
Dim d As Object, tablo, ncol%, i&, j%, x$
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
'---mémorisation des valeurs du tableau source ---
tablo = Feuil2.[A2].CurrentRegion
If Not IsArray(tablo) Then MsgBox "Le tableau source n'existe pas...": Exit Sub
ncol = UBound(tablo, 2)
For i = 2 To UBound(tablo)
    For j = 2 To ncol
        d(tablo(i, 1) & Chr(1) & tablo(1, j)) = tablo(i, j)
Next j, i
'---tableau de destination---
With Feuil1.[A4].CurrentRegion
    tablo = .Value
    If Not IsArray(tablo) Then MsgBox "Le tableau de destination n'existe pas...": Exit Sub
    ncol = UBound(tablo, 2)
    For i = 2 To UBound(tablo)
        For j = 2 To ncol
            x = tablo(i, 1) & Chr(1) & tablo(1, j)
            If d.exists(x) Then tablo(i, j) = d(x)
    Next j, i
    .Value = tablo 'restitution
End With
End Sub

A+

 

[herve62]

Non pas du tout je fais des recherches dans un autre tableau selon plusieurs critères donc je dois boucler sur des données à chaque critère , maintenant ça marche
C'est le résultat qui compte

 

[job75]

maintenant ça marche
C'est le résultat qui compte

Quel résultat voulez-vous donc ??? Vous avez pu voir que ma boule de cristal est assez performante...

 

[herve62]

@job75
NON rien à voir ;;mon Problème était tout simplement de savoir pourquoi je ne récupérais pas mon tableau
le reste je MAITRISAIS !!! j'ai juste mis un exo bidon
Ma vraie appli est terminée et fonctionne
Affaire close

 

[job75]

Donc l'erreur était bien due aux déclarations superflues du tableau ?

 

[herve62]

ben oui j'ai dis au #4