Utilisation de Index et Match en recherche multicritères en VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

12/04/2018, 11h33
clem256

alors là j'ai un souci car je pensais que les instructions de type

Code:

Set ZoneTab1 = Range("AireTab1").Range(Cells(2, 1), Cells(lnFin, lastCol))

me permettaient justement de limiter pour le Tab1 par exemple, la taille? Qaund j'affiche le nombre lignes et de colonne de ZoneTaB1 j'ai 230 ,et 11. Mais je vais utiliser ton code pour voir la différence.

Citation:

Envoyé par clem256

Tu as déjà tout ce qu'il faut dans le code que j'avais posté précédemment. Chaque aire ne comporte qu'une colonne.

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
 
Sub LancerRecupererLesCommentairesDansTab2()
 
Dim ZoneTab1 As Range, ZoneTab2 As Range
Dim LigneTitreTab1 As Long, DerniereLigneTab1 As Long, LigneTitreTab2 As Long, DerniereLigneTab2 As Long
 
    On Error GoTo Fin
 
    With Sheets("Source Tab1")
         LigneTitreTab1 = 1
         DerniereLigneTab1 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
         Set ZoneTab1 = .Range(.Cells(LigneTitreTab1 + 1, 1), .Cells(DerniereLigneTab1, 1))
    End With
 
    With Sheets("Cible Tab2")
         LigneTitreTab2 = 1
         DerniereLigneTab2 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
         Set ZoneTab2 = .Range(.Cells(LigneTitreTab2 + 1, 1), .Cells(DerniereLigneTab2, 1))
    End With
 
    RecupererLesCommentairesDansTab2 ZoneTab1, ZoneTab2
 
    GoTo Fin
 
Fin:
 
    Set ZoneTab1 = Nothing
    Set ZoneTab2 = Nothing
 
End Sub

12/04/2018, 12h25
clem256

Très bien je regarde cela et retourne vers toi en cas de problème.
Merci
Clem256
16/04/2018, 18h07
clem256

Citation:

Tu as déjà tout ce qu'il faut dans le code que j'avais posté précédemment. Chaque aire ne comporte qu'une colonne

.

Bonjour

Effectivement en collant à ce code je n'ai plus le blocage de l'écran. Je considère ce problème résolu. Merci pour ta patience et tes explications point à point :). Bonne continuation.

Cordialement
Clem256

Voir 40 message(s) de cette discussion en une page