problème recherchev(vlookup vba)

problème recherchev(vlookup vba) - VB/VBA/VBS - Programmation

Marsh Posté le 11-07-2007 à 14:59:58    

Bonjour,
 
j'ai créer une matrice que j'ai noté M de dimension (8*8) sur vba a partir de données excel.
je voudrais maintenant ne prendre que certaine valeurs de cette matrice.
 
Dim M As Variant
 
Dim i, j As Integer
 
ReDim M(1 To 8, 1 To 8)
For i = 1 To 8
      For j = 1 To 8
            M(i, j) = Sheets("matrice de corrélation" ).Cells(i + 1, j + 1).Value
 
 
       Next j
Next i
 
jusquici pas de probleme.
ensuite j'ai écrit un petit tableau sur une autre feuille nommé Interface sur laquelle j'ai des lettre et sur la ligne d'en face des chifres associés(1=A,2=B)
 
 
For k = 1 To 6  
        For l = 1 To 6
 
Sheets("matrice de corrélation" ).Cells(k + 10, l).Value = M(Application.WorksheetFunction.VLookup(Sheets("Interface" ).Range("E" & k + 4), Range("J7:K50" ), 2, False), Application.WorksheetFunction.VLookup(Sheets("Interface" ).Range("E" & l + 4), Range("J7:K50" ), 2, False))
 
 
        Next l
Next k
 
je voudrais donc savoir si dans ma matrice M je peux intégrer le vlookup car ce ke je veu ce sont les M(1,1);M(1,2) etc....
 
merci pour votre aide

Reply

Marsh Posté le 11-07-2007 à 14:59:58   

Reply

Marsh Posté le 11-07-2007 à 15:03:56    

désolé j'ai oublié de vous dire quel est le problème!
lorque je lance le programme un message d'erreur s'affiche:"erreur d'execution 1004:erreur définie par l'application ou par l'objet"

Reply

Marsh Posté le 11-07-2007 à 16:59:24    

Au lieu de  
 
    Range("E" & k + 4)
    ...
    Range("E" & l + 4),  
 
écrire
 
    Range("E" & Cstr(k + 4))
    ...
    Range("E" & CStr(l + 4)),  

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed