Concaténer avec deux conditions

bonjour,
voilà j'ai un bout de code qui fonctionne très bien sur une condition mais quand j'introduis la deuxième condition il ne se passe rien.
je butte sur ce pb depuis deux jours sans rien comprendre.
le but étant de concatener les cellules mail si celles ci ne soient pas vides et a la condition que la colonne G contienne un "x"
merci de votre aide

feuil1 colonne D = adresse mail
feuil1 colonne G = "x" ou ""
feuil2 cellule A20 = resultat de la concatenation
la première condition est : Sheets("Feuil1").Range("D" & i).Value <> "".
la deuxième condition est : And Sheets("Feuil1").Range("G" & i).Value = "x").

test effectué sur Feuil1 ligne 7 à 11 D7,D8,D9,D11 mail D10 Vide G7,G9,G10,G11 x G8 Vide

quand je lance la procédure il ne passe passe rien dans la cellule de destination

voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub ConcatenerTotalMailSousCondition()   Dim i As Long   Application.ScreenUpdating = False   Sheets("Feuil2").Range("A20") = "" ' cellule qui contiendra les mails concaténés   For i = 2 To Sheets("Feuil1").Range("D20").End(xlUp).Row ' de la cellule 2 a 20 D = colonne des mails   If (Sheets("Feuil1").Range("D" & i).Value <> "" And Sheets("Feuil1").Range("G" & i).Value = "x") Then Sheets("Feuil2").Range("A20") = Sheets("Feuil2").Range("A20") & Sheets("Feuil1").Range("D" & i).Value & ";"   Next   Sheets("Feuil2").Range("A20") = Left(Sheets("Feuil2").Range("A20"), Len(Sheets("Feuil2").Range("A20")) - 2)   Application.ScreenUpdating = True       End Sub

---

Comme d'habitude l'erreur doit être tellement évidente que je ne la vois pas .

pourquoi n’utilisez vous pas une formule direct dans votre feuille?
ou a moins que se soit une bêtise de ma part

Bonsoir,

sur les cas d'opérateurs de comparaison sur du texte (=,<>, Like), VBA est sensible à la casse
Par exemple "X" est différent de "x"
C'est juste une piste, je ne sais pas s'il s'agit de ça

Citation:

---

Envoyé par tototiti2008

Bonsoir,

sur les cas d'opérateurs de comparaison sur du texte (=,<>, Like), VBA est sensible à la casse
Par exemple "X" est différent de "x"
C'est juste une piste, je ne sais pas s'il s'agit de ça

---

bonjour,
eh bien non ce n'est pas cela
j'ai bien fait attention a la casse
mais je vous remercie de votre réponse

Bonjour

Citation:

---

Envoyé par tototiti2008

Bonsoir,

sur les cas d'opérateurs de comparaison sur du texte (=,<>, Like), VBA est sensible à la casse
Par exemple "X" est différent de "x"
C'est juste une piste, je ne sais pas s'il s'agit de ça

---

Oui et non. En fait, il y a une option dans VB (VBA, VB6 et même VB.net qui permet de définir un tant soit peu le mode de comparaison des chaînes de caractères

Code:

---

Option Compare binary

---

C'est le mode par défaut. La comparaison se fait selon l'ordre déterminé par la table de caractères en vigueur. Dans ce cas, on peut dire sensible à la casse.

Code:

---

Option Compare text

---

La comparaison se fait selon l'ordre alphabétique, sans considération pour la casse. Les caractères accentués sont regroupés avec leur équivalent sans accent.

Bonjour

Bien qu'écrit un peu à la hussarde, ton code est correct en ce qui concerne la construction elle-même du contenu de la cellule de destination.
Il y a par contre une maladresse dans ce que je pense vouloir être la suppression du dernier ";". c'est -1 et non -2.

Tu t'en serais rendu compte toi-même si, en lieu et place de ce que mon petit doigt me souffle (tu as fait tes essais en ne mettant qu'un caractère dans les cellules en D), tu les avais faits avec de véritables adresses (et donc des chaines plus longues); tu aurais alors constaté qu'il manquait un caractère à la seconde chaine. Le même petit doigt me dit que tu n'es pas allé, en essais, au delà de deux cellules à prendre en considération (car tu te serais sinon rendu compte de ce que seule la dernière était tronquée).
J'ai bon ? :D

Citation:

---

Envoyé par unparia

Bonjour

Bien qu'écrit un peu à la hussarde, ton code est correct en ce qui concerne la construction elle-même du contenu de la cellule de destination.
Il y a par contre une maladresse dans ce que je pense vouloir être la suppression du dernier ";". c'est -1 et non -2.

Tu t'en serais rendu compte toi-même si, en lieu et place de ce que mon petit doigt me souffle (tu as fait tes essais en ne mettant qu'un caractère dans les cellules en D), tu les avais faits avec de véritables adresses (et donc des chaines plus longues); tu aurais alors constaté qu'il manquait un caractère à la seconde chaine. Le même petit doigt me dit que tu n'es pas allé, en essais, au delà de deux cellules à prendre en considération (car tu te serais sinon rendu compte de ce que seule la dernière était tronquée).
J'ai bon ? :D

---

bonjour,

j'étais cavalier dans une vie antérieure ;-)

pour ta première remarque le -1 a la place du -2 ne change rien pour le moment car je n'affiche aucun résultat dans la cellule cible.
pour les cellules en colonne D elles contiennent ou pas des adresses mails ton petit doigt s'est planté ;-)

merci pour ces pistes

Ah ...
Il se trouve que si tel est le cas (chaînes de plus d'un caractère) dans des cellules en colonne D avec des "x" en colonne G, le code montré fonctionne sans problème si l'on met -1 et non -2 pour supprimer le dernier ";". Je l'ai testé. ;)
Et regarde --->>
Pièce jointe 449881
C'est ton code avec pour seule modification le -1 ;)

Je te remercie de ton aide

mais même en faisant un copier coller du code que j'ai fourni et en mettant bien -1 je n'arrive pas a voir le résultat en A20

le même code sans la deuxième condition du "x" lui fonctionne très bien et me donne un résultat en A22

je pige plus rien.

je vais refaire complètement ce fichier test.

bonjour ou bonsoir

je viens de trouver !!!!!!!

j'ai bien fait le bouton de commande pour appeler la routine
j'ai bien fait le code de la routine
mais j'ai juste oublié d'appeler cette routine dans le code du bouton. oupppps :oops::oops::oops:

me mettrais bien des baffes :(:(:(

désolé de vous avoir embêter avec mon faux problème

l'interface fauteuil / clavier a eu des ratés :(:(:(


je vous remercie tous et plus particulièrement Unparia pour l'attention que vous avez apporté à mon post

je reviens vers vous

j'ai adapté le 1° code a mon application
et maintenant je me retrouve avec une erreur lors de l'éxecution de celui ci
"erreur d'execution '5' :"
"argument ou appel de procedure incorrect"

la je pige plus : le 1° code sur fichier test est ok je fais un copier coller avec adaptation des données et hop cela plante sur la ligne apres le Next

par contre si j'enlève la deuxième condition cela fonctionne

un conseil, une piste merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Concatener_Mail_Detention()   Dim i As Long   Application.ScreenUpdating = False   Sheets("DonnéesDiverses").Range("A51") = "" ' cellule qui contiendra les mails concaténés on la vide avant toute chose   For i = 2 To Sheets("Données_Adhérents").Range("M3000").End(xlUp).Row ' de la cellule 2 a 3000 M = colonne des mails   If (Sheets("Données_Adhérents").Range("M" & i).Value <> "" And Sheets("Données_Adhérents").Range("DI" & i).Value = "x") Then Sheets("DonnéesDiverses").Range("A51") = Sheets("DonnéesDiverses").Range("A51") & Sheets("Données_Adhérents").Range("M" & i).Value & ";"   Next   Sheets("DonnéesDiverses").Range("A51") = Left(Sheets("DonnéesDiverses").Range("A51"), Len(Sheets("DonnéesDiverses").Range("A51")) - 1)   Application.ScreenUpdating = True   End Sub

---

Qu'obtiens-tu en cellule de destination en n'exécutant pas cette ligne ? :

Code:

---

Sheets("DonnéesDiverses").Range("A51") = Left(Sheets("DonnéesDiverses").Range("A51"), Len(Sheets("DonnéesDiverses").Range("A51")) - 1)

---

car le message d'erreur que tu reçois donne à penser qu'aucun article ne correspond aux 2 critères ;)

Bonjour,

merci de t'intéresser à mon problème.

Il y a bien une adresse mail en M3 M8 et un x en DI3 DI8 de la feuille Données_Adhérents je devrais donc sortir l'adresse mail en A51 de la feuille DonnéesDiverses



je viens de trouver ---> une erreur de casse entre le x et X

je vais devoir trouver un caractère qui valide la condition et qui ne pose pas de problème de casse.


me faut vraiment des vacances

désolé de t'avoir de nouveau dérangé

Il faut faire attention ...
Bon
tu n'auras pas de problème de casse en modifiant ta ligne de conditions de critères ainsi :

Code:

---

If (Sheets("Données_Adhérents").Range("M" & i).Value <> "" And Ucase(Sheets("Données_Adhérents").Range("DI" & i).Value) = "X") then ...

---

Fais attention : 2 corrections sont là.

Pas toujours évident de différencier un petit x d'un grand X quand il n'y a qu'un seul caractère dans la cellule

merci encore pour ton attention et tes conseils

Bonsoir
Pour éviter la casse (majuscules, minuscules), on peut aussi passer par Option Compare Text en tête de fenêtre (déjà proposé plus haut).
La boucle sur les cellules peut aider à réduire les codes par rapport à celle des lignes ; comme avec cette macro écrite dans la fenêtre des codes de l’onglet Base * :

Code:

---

1 2 3 4 5 6 7 8 9

Option Compare Text Sub Concatener_Mail_Detention() Dim C As Range, Tx As String [A51] = "" For Each C In [Mail] 'plage des adresses mail nommée ainsi ("M2:M…”) If C <> "" And C(1, 101) = "x" Then Tx = Tx & C & “;” Next If Tx <> "" Then [A51] = Left(Tx, Len(Tx) - 1) 'éviter un texte vide End Sub

---

*avec les données de la dernière macro fournie (pas de l’image)

Avec des espaces abusifs mais invisibles, on a aussi LTrim, RTrim et Trim.
Salut unparia, tu aurais pu aussi proposer par LCase ;).

Salut Ordonc

Citation:

---

Salut unparia, tu aurais pu aussi proposer par LCase

---

J'aurais personnellement carrément procédé de très différente manière, sans Ucase, ni Lcase, ni OptionCompare, ni obligation de "marquer" les choix en saisissant un caractère, ni même la nécessité d'une boucle sur la totalité des cellules ;)
Mais j'ai voulu délibérément intervenir sur le seul code de Arthur, tel qu'il était, pour ne pas le "perdre" en sa qualité manifeste de débutant.