Discussion :

[mateoa44]

Bonjour à tous, et re-bonjour peut-être pour certains !!

Je vous explique tout d'abord ce que je veux faire :

J'aimerais pouvoir sélectionner des éléments textuels dans une colonne si telle valeur est supérieur à une valeur de référence et les placer dans une même cellule.

Voici un exemple bidon avec Excel pour vous montrer grosso modo ce que j'aimerais pouvoir faire !



Je prends B car 7 > 5 et 12 > 10
Je ne prends pas A car 4 < 10

Le résultat B et D sont affiché dans ne seule et même cellule avec un retour à la ligne entre les deux =p

Je sais pas si j'ai réussis à exprimer mon besoin, si vous avez des questions, n'hésitez surtout pas !

Je ne vois pas du tout comment commencer, si vous avez des idées, je vous en serai très reconnaissant ^^

[Kiouane]

C'est un problème qui peut se résoudre avec des conditions if. Tente d'abord un code puis reviens ici.

Je te donne un début d'idée :

Code :

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

1
2
3
4
5
For each Cell in "Taplage"
 
     if   Cell = 5 and Cell.offset(0,1)=10 then 'Tu devras mieux écrire la syntaxe et tout
 
     end if

[MacKay77]

Bonjour,

Je pense à une double boucle
Une boucle pour parcourir les lignes (De A à D dans l'exemple)
A l'intérieur une seconde boucle pour parcourir les colonnes (bla et blo dans l'exemple)
Dans la seconde boucle, on compare la donnée à tester et la colonne où l'on se situe dans la seconde boucle.
On prend une variable booléenne qu'on passe à true de base, si une valeur ne correspond pas, on la passe à false.
A la fin de la seconde boucle, on regarde si la variable est à true, si c'est le cas, on stocke la valeur à la première colonne dans la case cible.

Ca ira?

[Al__22]

Je pense qu'une seule boucle for parcourant tes lignes suffit
avec une condition if qui vérifie tes deux références
et une iif pour vérifier si il y a pas déjà une valeur dans la cellule cible

[Kiouane]

Sinon pour le retour à la ligne tu peux utiliser la commande suivante :

Code :

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

"Tacellule".WrapText = True

Penses à utiliser l'enregistreur de macro si tu ne connais pas le code VBA de certaines fonctionnalités.

[Al__22]

Un simple chr(10) est suffisant pour moi

[antonysansh]

à adapter :

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
Sub test()
    Dim rg As Range, t(), i&, res$
        Set rg = ActiveSheet.Range("A3:C6")
        t = rg
        res = "*"
        For i = 1 To UBound(t)
            If t(i, 2) >= ActiveSheet.[B2] And t(i, 3) >= ActiveSheet.[C2] Then
                res = res & "/" & t(i, 1)
            End If
        Next i
        res = Replace(res, "*/", "")
        res = Replace(res, "/", Chr(10))
        ActiveSheet.[H3] = res
fin:
    Set rg = Nothing
End Sub

[Al__22]

Moi je voyais ça plutôt comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub try1()
 
x = Sheets(1).Range("U2:U" & Sheets(1).Range("U:U").End(xlDown).Row).Count
r1 = Sheets(1).Range("V1").Value: r2 = Sheets(1).Range("W1").Value
 
For i = 2 To x + 1
If Sheets(1).Range("V" & i).Value > r1 And Sheets(1).Range("W" & i).Value > r2 Then
Sheets(1).Range("Y2").Value = IIf(Sheets(1).Range("Y2").Value <> "", Sheets(1).Range("Y2").Value & Chr(10) & Sheets(1).Range("U" & i).Value, Sheets(1).Range("U" & i).Value)
End If: Next
 
End Sub

[Kiouane]

Pour moi voilà ma proposition. Je l'ai bien sûr testée et normalement elle fait l'affaire.

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
 
Sub test()
 
Dim n, Ref1, Ref2 As Integer
 
Ref1 = Range("B2").Value 
Ref2 = Range("C3").Value
 
Dim cell As Range
 
n = Range("B" & Rows.Count).End(xlUp)
 
For Each cell In Range("B5:B" & n)
 
 If cell >= Ref1 And cell.Offset(0, 1) >= Ref2 Then
 
    Range("H3").Value = Range("H3").Value + cell.Offset(0, -1).Value & Chr(10)
 
 End If
 
Next
 
End Sub

[mateoa44]

Merci à tous pour vos réponses et votre participation !

Je vais aller tenter tout ça et je vous tiens au courant !

[MacKay77]

Je pense qu'une seule boucle for parcourant tes lignes suffit
avec une condition if qui vérifie tes deux références
et une iif pour vérifier si il y a pas déjà une valeur dans la cellule cible

Le problème c'est qu'on ignore le nombre de références
Ou alors j'ai du louper un épisode !

[mateoa44]

Kiouane, j'ai essayé ta solution sur le même exemple que j'ai donné, ça n'affiche que D, ça devrait aussi afficher B ^^

Je regarde le code plus en détail pour bien tout comprendre avant d'essayer de l'appliquer à mon vrai fichier !

Je vais regarder ton code Antony même si je ne comprends vraiment pas tout !!!!!!

[MacKay77]

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
Sub test()
 
Dim n, Ref1, Ref2 As Integer
 
Ref1 = Range("B2").Value 
Ref2 = Range("C3").Value
 
Dim cell As Range
 
n = Range("B" & Rows.Count).End(xlUp)
 
For Each cell In Range("B3:B" & n)
 
 If cell >= Ref1 And cell.Offset(0, 1) >= Ref2 Then
 
    Range("H3").Value = Range("H3").Value + cell.Offset(0, -1).Value & Chr(10)
 
 End If
 
Next
 
End Sub

Voili voilou !

[mateoa44]

à adapter :

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
Sub test()
    Dim rg As Range, t(), i&, res$
        Set rg = ActiveSheet.Range("A3:C6")
        t = rg
        res = "*"
        For i = 1 To UBound(t)
            If t(i, 2) >= ActiveSheet.[B2] And t(i, 3) >= ActiveSheet.[C2] Then
                res = res & "/" & t(i, 1)
            End If
        Next i
        res = Replace(res, "*/", "")
        res = Replace(res, "/", Chr(10))
        ActiveSheet.[H3] = res
fin:
    Set rg = Nothing
End Sub

Ceci fonctionne Antony, je te remercie !
Pourrais-tu si tu as le temps m'expliquer un peu ce qu'il fait ? En fait, à partir de la 3ème ligne du code je ne comprends plus du tout !! J'imagine ce qu'il fait certes, mais j'aimerais comprendre les syntaxes utilisées afin de pouvoir adapter ce code à mes 16 fichiers haha ^^

A vrai dire, même dans la déclaration de variables je ne comprends pas les synthaxes : "()" , "&" , "$", je devine que "$" = string

[mateoa44]

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
Sub test()
 
Dim n, Ref1, Ref2 As Integer
 
Ref1 = Range("B2").Value 
Ref2 = Range("C3").Value
 
Dim cell As Range
 
n = Range("B" & Rows.Count).End(xlUp)
 
For Each cell In Range("B3:B" & n)
 
 If cell >= Ref1 And cell.Offset(0, 1) >= Ref2 Then
 
    Range("H3").Value = Range("H3").Value + cell.Offset(0, -1).Value & Chr(10)
 
 End If
 
Next
 
End Sub

Voili voilou !

Merci pour ta participation !
Ceci met A B et D
A ne devrait pas être placé puisque 4< 10 ^^

[MacKay77]

Me disais bien que j'aurais du lire tout le 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
Sub test()
 
Dim n, Ref1, Ref2 As Integer
 
Ref1 = Range("B2").Value 
Ref2 = Range("C2").Value
 
Dim cell As Range
 
n = Range("B" & Rows.Count).End(xlUp)
 
For Each cell In Range("B3:B" & n)
 
 If cell >= Ref1 And cell.Offset(0, 1) >= Ref2 Then
 
    Range("H3").Value = Range("H3").Value + cell.Offset(0, -1).Value & Chr(10)
 
 End If
 
Next
 
End Sub

[Al__22]

Kiouane, j'ai essayé ta solution sur le même exemple que j'ai donné, ça n'affiche que D, ça devrait aussi afficher B ^^

Je regarde le code plus en détail pour bien tout comprendre avant d'essayer de l'appliquer à mon vrai fichier !

Je vais regarder ton code Antony même si je ne comprends vraiment pas tout !!!!!!

Et le mien ?

Le problème c'est qu'on ignore le nombre de références
Ou alors j'ai du louper un épisode !

Si regarde bien mon code les deux ref y sont

[Kiouane]

Si tu l'aurais remarqué j'avais mis C3 à la place de C2 sinon le code fonctionne de mon côté.

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
Sub test()
 
Dim n, Ref1, Ref2 As Integer
 
Ref1 = Range("B2").Value
Ref2 = Range("C2").Value
 
Dim cell As Range
 
n = Range("B" & Rows.Count).End(xlUp)
 
For Each cell In Range("B5:B" & n)
 
 If cell >= Ref1 And cell.Offset(0, 1) >= Ref2 Then
 
    Range("H3").Value = Range("H3").Value + cell.Offset(0, -1).Value & Chr(10)
 
 End If
 
Next
 
End Sub

[mateoa44]

Et le mien ?



Si regarde bien mon code les deux ref y sont

Je vais essayer le tien Al, par contre tu m'embrouilles avec les U, Y, V lol ^^

@Kiouane : j'avais pas fais gaf non !!!

[mateoa44]

Si tu l'aurais remarqué j'avais mis C3 à la place de C2 sinon le code fonctionne de mon côté.

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
Sub test()
 
Dim n, Ref1, Ref2 As Integer
 
Ref1 = Range("B2").Value
Ref2 = Range("C2").Value
 
Dim cell As Range
 
n = Range("B" & Rows.Count).End(xlUp)
 
For Each cell In Range("B5:B" & n)
 
 If cell >= Ref1 And cell.Offset(0, 1) >= Ref2 Then
 
    Range("H3").Value = Range("H3").Value + cell.Offset(0, -1).Value & Chr(10)
 
 End If
 
Next
 
End Sub

Ne fonctionne pas sur ma machine, ça ne met que D