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

[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

[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 !