Discussion :

[philou7168]

Bonjour,

Je cherche le moyen d'extraire de données d'un tableau sous conditions.
Il faut réunir trois conditions présente dans le tableau mais dans différentes colonne. Si cela est vrai il me faut extraire certaine données de cette ligne puis il doit poursuivre sa recherche afin de me sortir toutes les données accumulant les trois critères.
Je n'arrive pas a transposer cela en VBA. Serait-il possible de me mettre en ligne une ébauche du genre

Si critère 1 = vrai et critère 2 = vrai et critère 3 = vrai alors
copie ligne active colonne x vers feuille xy ligne t colonne u
copie ligne active colonne x+1 vers feuille xy ligne t colonne u+1

de manière a ce qu'un tableau se crée avec les nouvelles données extraite.
J'espère juste avoir été assez clair dans ma demande.
Merci d'avance

[Philippe Tulliez]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub critere()
  Dim a As String, b As String, c As Single
  a = "Test": b = "Toto": c = 100
  If a = "Test" And b = "Toto" And c > 50 Then
      ' Code 1
      MsgBox "Je copie"
    Else
      ' Code 2
      MsgBox "Je ne copie pas"
  End If
End Sub

[JoeJoeH]

Bonjour,

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
 
dim val1 as string
dim val2 as string
 
If test1 then
       If test2 then
              If test3 then
                    val1 = Range( x & ActiveCell.Row).Value
                    val2 = Range( x +1 & ActiveCell.Row).Value
                    Sheets("xy").Select
                    Range( u & t).Value = val1
                    Range(u+1 & t).Value = val2
              End If
       End If
End If

[Philippe Tulliez]

Bonjour,

Bonjour,

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
 
dim val1 as string
dim val2 as string
 
If test1 then
       If test2 then
              If test3 then
                    val1 = Range( x & ActiveCell.Row).Value
                    val2 = Range( x +1 & ActiveCell.Row).Value
                    Sheets("xy").Select
                    Range( u & t).Value = val1
                    Range(u+1 & t).Value = val2
              End If
       End If
End If

Pour copier des cellules d'une feuille vers des cellules d'une autre feuille, cela peut se faire directement sans passage par une variable ni par un select

Code :

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

Sheets("xy").Range("A10") = Sheets("R").Range("A1")

[JoeJoeH]

Ah, c'est juste une habitude de notre prof de développement qui nous disait que c'était préférable de passer par des variables.

[Orhleil]

Ah, c'est juste une habitude de notre prof de développement qui nous disait que c'était préférable de passer par des variables.

Pour autant que je sache, c'est vrai lorsqu'on utilise plusieurs fois la valeur contenue dans le Range, ici pour un copier/coller il vaut mieux utiliser le code de corona.
Et puis les Select ont tendance à ralentir l'exécution du code.

[philou7168]

Merci pour les ébauches, je vais mettre tout cela en pratique et vous tiens au courant si cela fonctionne comme je le désire.
Entre temps j'ai teste une formule du genre

Code :

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

1
2
3
4
5
If range("A1").value = "critère1" and range("A2").value = "critère2" then
range("A10").value = "vraie"
else
range("A10").value = "faux"
End if

script que j'ai mis dans un "commandbutton" pour tester le "and"
Cela fonctionne reste à tester sur combien de "and" cela fonctionne.

[Philippe Tulliez]

Merci pour les ébauches, je vais mettre tout cela en pratique et vous tiens au courant si cela fonctionne comme je le désire.
Entre temps j'ai teste une formule du genre

Code :

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

1
2
3
4
5
If range("A1").value = "critère1" and range("A2").value = "critère2" then
range("A10").value = "vraie"
else
range("A10").value = "faux"
End if

script que j'ai mis dans un "commandbutton" pour tester le "and"
Cela fonctionne reste à tester sur combien de "and" cela fonctionne.

Quand tu utilises "Vrai" et "Faux". C'est une chaîne de caractères ou une valeur logique que tu souhaites écrire ?
Parce-que si c'est une valeur logique, le code pourrait être celui-ci

Code :

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

1
2
3
4
5
If range("A1").value = "critère1" and range("A2").value = "critère2" then
range("A10").value = True
else
range("A10").value = False
End if

Ce qui te permet alors d'utiliser la valeur de cette cellule avec un test logique.
Avec une formule Excel

Code :

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

=SI(A10;"OK";"Pas OK")

Ou en VBA

Code :

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

If Range("A10") Then MsgBox "Ok" Else MsgBox "Pas ok"

[Philippe Tulliez]

Bonjour,

Ah, c'est juste une habitude de notre prof de développement qui nous disait que c'était préférable de passer par des variables.

C'est tout à fait vrai. Dans mon exemple j'ai mis des constantes mais évidemment

Code :

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

Sheets(nomA).cells(r,c) = Sheets(nomB).Range(Adress)

C'est aussi des variables.
Le but de mon intervention était de signaler qu'il est inutile de passer par une variable intermédiaire et surtout de ne pas utiliser le Select qui est parfaitement inutile et surtout qui ralentit la procédure.
Evidemment aussi, il est préférable de définir par une variable objet la ou les feuilles utilisées.

Code :

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

1
2
3
4
5
6
7
8
With ThisWorkbook
 Dim shtA As Worksheet: Set shtA = .Worksheets("xy")
 Dim shtB As Worksheet: Set shtB = .Worksheets("R")
End With
Dim r As Single, c As Single
Dim adr As String: adr = "A1"
r = 10: c = 1:
shtA.Cells(r, c) = shtB.Range(adr)