rod_3073
-
20 oct. 2020 à 00:46
cs_Le Pivert
Messages postés7893Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention19 mai 2023
-
20 oct. 2020 à 11:00
Bonjour,
j'ai un fichier client ayant près de 3000 enregistrements disposé comme suit.
La colonne C : Nom et Prénom des clients
La colonne D : les numéros de téléphone des clients
La colonne E : Les dates d'anniversaire des clients sous le format (jj.mmm.1900)
J'ai un script qui permet d'envoyer les sms d'excel vers une api qui se charge de la livraison. Pour cela, l'api a besoin des informations (numéro de téléphone, message à envoyer).
Alors je souhaite parcourir la colonne E et tester si le jour et le mois sont identiques à ceux du système.
A supposer que la condition est vérifiée pour le cas Ex; que le programme charge le numéro de téléphone situé dans Dx dans une variable qu'on appellera rownumber, et également le nom du client qui se trouve dans Cx dans une autre variable appelée rowname. envoi le sms vers l'api et poursuivre le traitement jusqu'à l'épuisement de la pile
cs_Le Pivert
Messages postés7893Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention19 mai 2023136 Modifié le 20 oct. 2020 à 10:30
Bonjour et merci. Mais ça ne répond pas à mes besoins, car je voudrais automatiser les envoi. D’où la nécessité d'un script vba
cs_Le Pivert
Messages postés7893Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention19 mai 2023136 20 oct. 2020 à 11:00
je te propose une boucle sur les colonnes où tu pourras mettre les actions a faire:
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Set FL1 = Worksheets("Feuil1") ' a adapter
NoCol = 3 'lecture de la colonne C
For NoLig = 2 To Split(FL1.UsedRange.Address, "$")(4) 'démarre à la 2ème ligne
Var = FL1.Cells(NoLig, NoCol)
MsgBox Var 'nom
MsgBox FL1.Cells(NoLig, NoCol + 1) 'telephone
MsgBox FL1.Cells(NoLig, NoCol + 2) 'date
'mettre le code ici
Next
Set FL1 = Nothing
End Sub