Concatener des valeurs dans une cellule

Version imprimable

12/04/2012, 19h01
teddy72000

Concatener des valeurs dans une cellule
bonjour,

Un petit souci :

Sous Excel j'ai un tableau de cette forme en 3 colonnes

Colonne A Colonne B Colonne C
ID Statut Opérateur
1 ouvert x
2 ouvert x
3 clos y
4 ouvert z

Ce que je veux ; je recherche toutes les demandes dont le statut est ouvert pour un opérateur et dans une cellule je concatène les ID.

si statut = ouvert et opérateur = x alors je copie le numéro d'ID dans une cellule; exemple D1

pour ce tableau en D1 j'aurais 1 2

le début de macro
Code:

1 2 3 4 For x= 2 to 5 step 1 nvariable 1 = Range ("B" & x).value nvariable2 = Range ("C" & x).value If nvariable1="ouvert" and nvariable2="x" then D1=Range ("A" & x).value
La je bloque car j'ai le résultat d'une colonne comment avoir les 2 (1 2 )

Merci pour votre aide :ccool:

Bonsoir,
une méthode parmi d'autres :

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
Dim dl As Long, cel As Range, plg As Range, tb As String
dl = Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne
Set plg = Range("B2:B" & dl)
For Each cel In plg
  If cel = "ouvert" And cel.Offset(0, 1) = "x" Then
    tb = tb & cel.Offset(0, -1) & " "
  End If
Next cel
Range("D1") = Trim(tb)
End Sub

12/04/2012, 21h12
teddy72000

merci ça fonctionne nickel, mais peux tu mettre des commentaires afin que j’essaie de comprendre, merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
Dim dl As Long, cel As Range, plg As Range, tb As String
dl = Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne en colonne A ou 1ère ligne remplie en commençant par la fin
Set plg = Range("B2:B" & dl) 'variable range qui contient la plage "A2:A et dl: exemple A2:A10 si 10 est dern. ligne
'for each est une boucle
For Each cel In plg 'on va chercher dans la plage en scrutant chaque cellule en B
  If cel = "ouvert" And cel.Offset(0, 1) = "x" Then 'si la cellule en B = ouvert et la cellule en C = x
    tb = tb & cel.Offset(0, -1) & " " 'on met la valeur de A + un espace dans une variable texte , qu'on va incrementer
  End If
Next cel 'on verifie la cellule suivante
Range("D1") = Trim(tb) 'on met en D1, le résultat obtenu dans tb, en enlevant l'espace en trop "trim"
End Sub

si ton problème est résolu, penses à cliquer sur :resolu:

12/04/2012, 21h43
teddy72000

concatener

ok merci pour toutes ces infos, vraiment sympa !!! ok dossier clos