Discussion :

[Invité]

Bonjour,

Par rapport au contenu de 4 cellules, par macro ma feuille récupère des données d'une autre feuille (BD). En renseignant les 4 cellules, je ne récupère qu'une partie bien précise des données (ce code fonctionne bien si les 4 cellules contiennent une donnée). Pour des besoins de calcul, j'ai voulu récupérer plus de données en laissant vide la 4ème cellule [Val4=.Range("C4")]. C-à-d récupérer les données suivant 3 conditions au lieu de 4. Et là, j'ai été surpris, ma feuille est restée vide. Comment faire?
voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
With MaFeuille
 
     Val1 = .Range("H4")        
     Val2 = .Range("F1")        
     Val3 = .Range("C1")        
     Val4 = .Range("C4")        
 
    For I = 1 To lastlig - 1
 
        If Tb(I, 1) = Val1 And Tb(I, 3) = Val2 And Tb(I, 4) = Val3 And Tb(I, 5) = Val4 Then
 
            j = j + 1
 
            ReDim Preserve Res(1 To 14, 1 To j)
 
            Res(1, j) = j       
            Res(2, j) = Tb(I, 7)    
            Res(3, j) = Tb(I, 8)    
            Res(4, j) = Tb(I, 9)   
            Res(5, j) = Tb(I, 10)   
            Res(6, j) = Tb(I, 11)   
            Res(7, j) = Tb(I, 12)    
            Res(8, j) = Tb(I, 13)    
            Res(9, j) = Tb(I, 14)    
            Res(10, j) = Tb(I, 15)  
            Res(11, j) = Tb(I, 16)   
            Res(12, j) = Tb(I, 17)   
 
        End If
 
    Next I
 
    lastlig = .Cells(.Rows.Count, 1).End(xlUp).Row
    If lastlig > 8 Then .Range("A8:M" & lastlig).Clear
    If j > 0 Then .Range("A8").Resize(j, 14) = Application.Transpose(Res)
 
End With

Je vous remercie par avance pour votre aide.

[Daniel.C]

Bonjour,

Je ne suis pas du tout sûr d'avoir compris ce que tu veux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Tb(I, 1) = Val1 And Tb(I, 3) = Val2 And Tb(I, 4) = Val3 Then

[gFZT82]

Bonjour,

Tu peux inclure la condition "Cellule vide" dans ton test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
With MaFeuille
 
     Set Val1 = .Range("H4")
     Set Val2 = .Range("F1")
     Set Val3 = .Range("C1")
     Set Val4 = .Range("C4")
 
    For I = 1 To lastlig - 1
 
        If (Tb(I, 1) = Val1 Or IsEmpty(Val1)) And _
        (Tb(I, 3) = Val2 Or IsEmpty(Val2)) And _
        (Tb(I, 4) = Val3 Or IsEmpty(Val3)) And _
        (Tb(I, 5) = Val4 Or IsEmpty(Val4)) Then

Cordialement.

[Invité]

Messieurs Bonjour,

Daniel.C, ce que tu me proposes je l'ai déjà fait, c-à-d que je supprime la 4éme condition.

gFZT82, j'ai testé ton code mais ça ne donne rien.

Je vous remercie tous les deux. c'est pour la condition que je suis bloqué car je ne manipule pas bien le VBA.

La condition est juste pour la cellule C4 qui contient Val4.

Donc pour récapituler, si C4 est vide, donc la récup se fera avec Tb(I, 1) = Val1 And Tb(I, 3) = Val2 And Tb(I, 4) = Val3 (3 conditions)

et si C4 est non vide, alors la recup se fera avec Tb(I, 1) = Val1 And Tb(I, 3) = Val2 And Tb(I, 4) = Val3 And Tb(I, 5) = Val4 (4 conditions)

Je vous précise que Val1, Val2 et Val3 seront dans tous les cas non vides, ce n'est que pour Val4 qui pourrait être vide ou contenant un texte.

Encore merci.

Cordialement,

[Daniel.C]

Je ne vois pas où tu colles les variables Valx ou les cellules correspondantes.

[Invité]

Je suis débutant, je voudrais trouver une solution à mon problème. d'après moi et il fort possible que je sois dans l'erreur.

je voudrais faire à peu près ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If IsEmpty(Range("C4")) then Tb(I, 1) = Val1 And Tb(I, 3) = Val2 And Tb(I, 4) = Val3
 
If Not IsEmpty(Range("C4")) Then Tb(I, 1) = Val1 And Tb(I, 3) = Val2 And Tb(I, 4) = Val3 And Tb(I, 5) = Val4

enfin il y a quelque chose qui cloche, car l'extraction des données se fait sur un If tb(I, 1)= les conditions (dans mon code initial).

Conclusion, je suis perdu.

Merci beaucoup.

Cordialement,

[Daniel.C]

Ce qui se traduit par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Tb(I, 1) = Val1
Tb(I, 3) = Val2
Tb(I, 4) = Val3
If IsEmpty(Range("C4")) Then
    Tb(I, 5) = Val4
End If

[Invité]

Merci Daniel,

entre-temps j'avais trouvé cette solution (il y avait in "IF" qui me gênait, que j'ai résolu))

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If IsEmpty(Range("C4")) Then Tb(I, 1) = Val1 And Tb(I, 3) = Val2 And Tb(I, 4) = Val3
If Not IsEmpty(Range("C4")) Then Tb(I, 1) = Val1 And Tb(I, 3) = Val2 And Tb(I, 4) = Val3 And Tb(I, 5) = Val4

Mais je vais opter pour ton code. je te remercie beaucoup pour ton aide.

cordialement,