Pour chaque ligne renvoyer la valeur (si répondant à test logique) et concaténer

Y

Yaloo

XLDnaute Barbatruc

• 23 Avril 2013

• #2

Re : Pour chaque ligne renvoyer la valeur (si répondant à test logique) et concaténer

Bonsoir Zerki et bienvenu sur le forum,

Avec cette macro :

VB:

Option Explicit

Private Sub CommandButton1_Click()
Dim i&
[A11].ClearContents
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
  If Cells(i, 3) = "Pas rendu" Then [A11] = [A11] & ";" & Cells(i, 4)
Next
[A11] = Right([A11], Len([A11]) - 1)
End Sub

A+

Martial

 

Pièces jointes

• Exempleemeves.xlsm

  20.7 KB · Affichages: 66

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 23 Avril 2013

• #3

Re : Pour chaque ligne renvoyer la valeur (si répondant à test logique) et concaténer

Bonsoir,

Avec : =SIERREUR(RECHERCHEV("Pas rendu";C2😀2;2;0)&";"😉&SIERREUR(RECHERCHEV("Pas rendu";C3😀3;2;0)&";"😉&SIERREUR(RECHERCHEV("Pas rendu";C4😀4;2;0)&";"😉&SIERREUR(RECHERCHEV("Pas rendu";C5😀5;2;0)&";"😉&SIERREUR(RECHERCHEV("Pas rendu";C6😀6;2;0)&";"😉&SIERREUR(RECHERCHEV("Pas rendu";C7😀7;2;0)&";"😉

on obtiens
email1;email3;

y a sans doute mieuxmais c'est plus cher à cette heure ...

édit, bonsoir Yaloo, le roi du vba

 

Dernière édition: 23 Avril 2013

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 23 Avril 2013

• #4

Re : Pour chaque ligne renvoyer la valeur (si répondant à test logique) et concaténer

Bonsoir st007 🙂 ,

Si Zerky a une trentaine d'élève, as-tu pensé à ta formule ? 😉

A+

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 24 Avril 2013

• #5

Re : Pour chaque ligne renvoyer la valeur (si répondant à test logique) et concaténer

Bonjour,

je ne sais pas combien il a d'élèves, mais ils n'ont pas l'air disciplinés,2 sur 6

lol, que dire d'autre

@+

 

Vote positif 0 Vote négatif

Z

Zerky

XLDnaute Nouveau

• 24 Avril 2013

• #6

Re : Pour chaque ligne renvoyer la valeur (si répondant à test logique) et concaténer

Grands merci pour vos réponses !

Tout d'abord, je ne m'y connais pas du tout en VBA, ça ne me dérange pas de l'utiliser, meme si je pensais qu'il existait un moyen simple en utilisant exclusivement des formules excel.

Sinon, effectivement, les élèves ne sont que des exemples, en réalité je travaille sur une base de donné de plus de 80 clients qui va sans doute s'agrandir, donc c'est clair que je ne peux répéter autant de fois l'expression qu'il y a de ligne ^^.

Edit : eh oui que ce soit les élèves ou les clients, les deux ne sont pas bien disciplinés 😛

 

Dernière édition: 24 Avril 2013

Vote positif 0 Vote négatif

jean62

XLDnaute Nouveau

• 24 Avril 2013

• #7

Re : Pour chaque ligne renvoyer la valeur (si répondant à test logique) et concaténer

bonjour a tous
voici une autre version
cordialement

 

Pièces jointes

• Recherchev argument.xlsx

  14.6 KB · Affichages: 49

Vote positif 0 Vote négatif

jean62

XLDnaute Nouveau

• 24 Avril 2013

• #8

Re : Pour chaque ligne renvoyer la valeur (si répondant à test logique) et concaténer

yaloo ta vba fonctionne pas

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 24 Avril 2013

• #9

Re : Pour chaque ligne renvoyer la valeur (si répondant à test logique) et concaténer

Bonjour Jean,

Pourquoi ?

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 24 Avril 2013

• #10

Re : Pour chaque ligne renvoyer la valeur (si répondant à test logique) et concaténer

Re,

Jean, tes formules ne donnent pas le résultat demandé.

A+

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 24 Avril 2013

• #11

Re : Pour chaque ligne renvoyer la valeur (si répondant à test logique) et concaténer

Re à tous,

En effet, s'il n'y a pas de données, ma macro plantait, il faut juste la modifier comme ceci :

VB:

Option Explicit

Private Sub CommandButton1_Click()
Dim i&
[A11].ClearContents
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
  If Cells(i, 3) = "Pas rendu" Then [A11] = [A11] & ";" & Cells(i, 4)
Next
If [A11] <> "" Then [A11] = Right([A11], Len([A11]) - 1)
End Sub

A+

 

Vote positif 0 Vote négatif

jean62

XLDnaute Nouveau

• 24 Avril 2013

• #12

Re : Pour chaque ligne renvoyer la valeur (si répondant à test logique) et concaténer

bonjour yaloo
ok cordialement

 

Vote positif 0 Vote négatif