test valeur dans colonne et renvoi valeur de certaines cellules de la ligne

**gandolfi** · 26/02/2018, 13h10

Bonjour,

Je dois gerer un listing adherents. JE suis en train de faire une automatisation de l'envoi de mail. Pour cela j'ai crée une macro permettant d'inscrire un "X" dans une colonne si les adherents ont payé.
Les prénoms, nom, mail... des adhérents sont inscrit par ligne. donc un adherent par ligne.

- Je voudrais qu'en cliquant sur un bouton en haut de la colonne "PAIEMENT", Excel teste toutes les lignes de cette colonne unes à unes pour savoir s'il y a un "X" (environ 400 lignes).
- Si le "X" est présent il va chercher le nom, prénom et adresse mail de la personne en début de ligne (colonne A, B et J). Il me les enregistre comme valeur (nom, prenom, mail) que je pourrais ensuite injecter dans une autre macro pour envoyer des mails à ces adherents pour qu'ils reçoivent leur facture.

Pensez vous que je m'y prend bien ou trop lourd pour gerer 400 adherents sous excel avec envoi de mail à chaque ligne qui est marqué d'un "X" ?

Merci

Invité · 26/02/2018, 16h25

Envoyé par gandolfi

Bonjour,

Vous êtes dans le forum VBA Word.

Sinon, c'est possible. Le problème que vous aurez peut-être, c'est que votre fournisseur d'accès considère vos envois comme des spams au bout d'un certain nombre de mails et vous les bloque. Cela m'est arrivé à partir de mon 250ème mail lors d'une prospection. Cela reste à vérifier, mon cas ne doit pas être une généralité.
Le cas échéant, la solution est peut-être de faire des paquets pour ne pas se faire prendre par la patrouille....

**gandolfi** · 26/02/2018, 18h05

Merci je pensais pas aux spams.....

j'ai reussi à coder un truc qui semble marcher

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 ligne()
 
Dim Lig As Long, Var As Variant, nom As String, prenom As String, mail As String, col As Long
col = CommandButton1.TopLeftCell.Column
 
For Lig = 3 To 600
If Cells(Lig, col).Value = "X" Then
 
nom = Cells(Lig, 1).Value
prenom = Cells(Lig, 2).Value
mail = Cells(Lig, 10).Value
MsgBox nom & prenom & mail
 
 End If
 Next Lig
End Sub

Savez vous comment inverser la selection. C'est à dire selectionner ceux qui n'ont pas le X ? If Cells(Lig, col).Value = "" ou arriver à inverser la condition ?

Invité · 26/02/2018, 18h30

Envoyé par gandolfi

Savez vous comment inverser la selection. C'est à dire selectionner ceux qui n'ont pas le X ? If Cells(Lig, col).Value = "" ou arriver à inverser la condition ?

Code :

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

1
2
 
If Cells(Lig, col) <> "X" Then

Je pense que votre procédure à de bonnes chances de foirer :

Votre sub porte un nom correspondant à un mot réservé d'Excel, vous devriez lui changer de nom.
Vous devriez déclarer un objet Range pour définir l'aire de votre tableau avec un Set NomDeLObjetRange = .... Vous allez peut-être en avoir besoin pour la suite.