recuperer ,en code VBA,les valeurs d'une matrice dans une autre feuille

Version imprimable

15/02/2011, 21h22
dalo02

recuperer ,en code VBA,les valeurs d'une matrice dans une autre feuille

bonsoir a tous
mes connaissances en VBA etant limitees
j'aurai besoin de votre aide pour le probleme suivant

j'ai 1 feuille F1avec la matrice suivante
a titi toto
b lala rere
c momo fafa

et une autre feuille F2 avec une colonne "A" deja remplie

A B C
a titi toto
c momo fafa ect..
c
b
b
a
c
comment faire pour recuperer dans F2 en colonne C et D les valeurs de la matrice
bien sur il y a la fonction VLookup
mais pour des questions de securite je dois le faire en VBA
quelqu'un a t-il une idee
merci pour votre aide
dalo02

Bonjour a tous
j'ai fais des recherches et enfin trouve le code VBA qui va super bien
juste une question
comment faire afin i et j s'arrete a la derniere ligne
la longueur des 2 listes varient avec le temps
merci par avance
a+dalo02

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub copiermatrice ()
Dim i As Integer, j As Integer
 
For i = 1 To 2800 'Itération de la ligne 1 à 2800 pour le Classeur 1
     For j = 1 To 70 'Itération de la ligne 1 à 70 pour le Classeur 2
     'Si la cellule(i,1) est egale à la cellule(j,1) alors
     'On copie la valeur de la cellule (j,2) dans la cellule (i,2)
          If Sheets("F1").cells(i, 1).Value = Sheets("F2").cells(j, 1).Value Then
 
            Sheets("F1").cells(i, 2).Value = Sheets("F2").cells(j, 2).Value
            Sheets("F1").cells(i, 3).Value = Sheets("F2").cells(j, 3).Value
 
               j = 71 'Nous permet de sortir de la boucle une fois la valeur trouvée
          Else
          'Sinon on met la cellule (i,2) à 0
           Sheets("F1").cells(i, 2).Value = "???"
          End If
     Next
     Next
End Sub

17/02/2011, 09h25
dodo69
Bonjour,

Pour chercher le nombre de ligne de ta feuille, utilise la fontion
Code:

1 2 3 dim i as Long i = .Cells(.Rows.Count, 1).End(xlUp).Row
i prendra alors la valeur du nombre de ligne en colonne 1

Cdt
Dorian
17/02/2011, 16h42
dalo02

bonjour dodo69
merci pour la reponse j'avais deja essaye mais cela ne marche pas
on a 2 fois la meme variable i,en plus vba fait la tete sur "rows"
qq a t-il une astuce?
je continue a chercher.:koi:
cordialement
dalo02
17/02/2011, 19h17
alsimbad

il y a un tuto sur comment trouver la derniere ligne écris par ouskel'nord dans le forum contribuez

bonsoir a tous
j'ai enfin trouve la solution:yaisse:
je vous livre le resultat

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
Sub copiermatrice()
 
Dim i As Integer, j As Integer
Dim DerLigi As Long
Dim DerLigj As Long
DerLigi = Sheets("f1").Cells(rows(1).Cells.Count, 1).End(xlUp).Row 'Récupère la dernière ligne remplie
DerLigj = Sheets("f2").Cells(rows(1).Cells.Count, 1).End(xlUp).Row 'Récupère la dernière ligne remplie
 
For i = 1 To DerLigi 'Itération de la ligne 1 à la derniere ligne pour le Classeur 1
     For j = 1 To DerLigj 'Itération de la ligne 1 à la derniere ligne pour le Classeur 2
     'Si la cellule(i,1) est egale à la cellule(j,1) alors
     'On copie la valeur de la cellule (j,2) dans la cellule (i,2)
          If Sheets("F1").Cells(i, 1).Value = _
          Sheets("F2").Cells(j, 1).Value Then
 
            Sheets("F1").Cells(i, 2).Value = Sheets("F2").Cells(j, 2).Value
            Sheets("F1").Cells(i, 3).Value = Sheets("F2").Cells(j, 3).Value
 
               j = DerLigj 'Nous permet de sortir de la boucle une fois la valeur trouvée
          Else
          'Sinon on met la cellule (i,2) à ???
           Sheets("F1").Cells(i, 2).Value = "???"
          End If
     Next
     Next
End Sub

a+
cordialement
dalo02