VBA - Création d'une Boucle à partir d'un Tableau

Version imprimable

26/12/2014, 17h05
m.renauld

2 pièce(s) jointe(s)

VBA - Création d'une Boucle à partir d'un Tableau

Bonjour,

Dans le cadre d'un travail informatique, j'ai réalisé un code qui permet d'envoyer certaines informations (envoyer une pub à un conducteur, envoyer une réduction) en fonction de certains critères.
Cependant, ce code ne fonctionne que pour des nouvelles entrées de conducteurs, j'aimerais réalisé une boucle? pour que ce code s'applique directement aux conducteurs de mon tableau déjà créé.

Je vous envoie ci-joint, mon code ainsi que le tableau en question pour une meilleure compréhension.

Je vous remercie d'avance pour votre réponse.

Pièce jointe 164765

Pièce jointe 164766

Bonsoir,
adaptes ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub envoi()
Dim Cel As Range, Plg As Range
Dim DC As Range
With ActiveSheet
  Set DC = .Range("A" & .Rows.Count).End(xlUp)
  Set Plg = .Range("A2", DC)
  For Each Cel In Plg
  Cel = Cel(0, 1) + 1
  Cel(1, 2) = InputBox("entrez le prénom de la personne", "prénom")
  'etc......à adapter et attention aux "Offset", éviter les "Select"
  Next Cel
End With
 
End Sub

Plutôt que d'envoyer une image, tu aurais envoyer le code, j'aurais pu faire un copier/coller et j'aurai nettoyé ton code

Bonne soirée

Bonsoir,

Merci beaucoup pour votre réponse ! Etant débutant avec VBA, j'ai eu du mal à adopter votre code à mon tableau.
Dans mon code, j'ai écrit des lignes pour pouvoir entrer de nouveaux conducteurs mais je me rend compte que ce je souhaite faire, c'est appliquer les commandes d'envois aux conducteurs déjà encodés.
Je suppose donc que mes premières lignes sont inutiles ?

Voici mon code (en copiant/collant) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Macro1()
 
ActiveCell.FormulaR1C1 = ActiveCell.Offset(-1, 0).Value + 1
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = InputBox("Entrez le prenom de la personne", "Prenom")
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = InputBox("Entrez la date de naissance", "Date")
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = InputBox("Entrez le numero de gsm", "Numéro")
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = InputBox("Entrez l'émail", "émail")
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = InputBox("Entrez le numero de gsm", "Numéro")
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = InputBox("Est-ce que la voiture est fumeuse ? oui=1 non =0", "fumeur")
ActiveCell.Offset(0, 1).Select
experience = InputBox("Niveau d'experience", "expérience")
ActiveCell.FormulaR1C1 = experience
ActiveCell.Offset(0, 1).Select
evaluation = InputBox("Entrez la cote d'evaluation", "Evaluation")
ActiveCell.FormulaR1C1 = evaluation
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = InputBox("Entrez la description du conducteur", "description")
ActiveCell.Offset(0, 1).Select
 
If evaluation <= 6 Then
    If experience <= 10 Then
        pub = "envoyer une publicité pour des cours de pilotage"
    Else
        pub = "envoyer une publicité pour les transports en commun"
    End If
Else
    If experience <= 6 Then
        pub = "envoyer une publicité pour une reduction tarifaire de 10% sur notre site"
    Else
        pub = "envoyer une publicité pour une reduction tarifaire de 20% sur notre site"
    End If
End If
 
ActiveCell.FormulaR1C1 = pub
 
 
ActiveCell.Offset(1, -10).Select
 
End Sub

Merci pour votre réponse,

Maxime

Pour la 1ère partie, si j'ai compris, tu dois pouvoir adapter ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim experience As Integer, evaluation As Integer
Dim pub As String
Dim Cel As Range, Plg As Range
Dim DC As Range
With ActiveSheet
  Set DC = .Range("A" & .Rows.Count).End(xlUp)(2, 1) 'on cherche la 1ère cellule vide en A
  Set Plg = .Range("A2", DC(0, 1))
End With
DC = DC(-1, 0).Value + 1
DC(1, 2) = InputBox("Entrez le prenom de la personne", "Prenom")
DC(1, 3) = InputBox("Entrez la date de naissance", "Date")
DC(1, 4) = InputBox("Entrez le numero de gsm", "Numéro")
DC(1, 5) = InputBox("Entrez l'émail", "émail")
DC(1, 6) = InputBox("Entrez le numero de gsm", "Numéro") 'ici question déjà posée plus haut
DC(1, 7) = InputBox("Est-ce que la voiture est fumeuse ? oui=1 non =0", "fumeur")
experience = InputBox("Niveau d'experience", "expérience")
DC(1, 8) = experience
evaluation = InputBox("Entrez la cote d'evaluation", "Evaluation")
DC(1, 9) = evaluation
DC(1, 10) = InputBox("Entrez la description du conducteur", "description")

Pour la suite, ça demande des explications plus précises, surtout quand je regarde ton tableau

27/12/2014, 12h34
m.renauld

1 pièce(s) jointe(s)

Merci de votre réponse ,
C'est bien cela que nous cherchions a faire, ajouter de nouvelles personnes à notre liste .
Pour ce qui est de la condition avec les pubs , nous cherchons à ce que pour chaque personne de la liste ainsi que les nouvelles personnes enregistré une nouvelle cellule apparait dans laquelle est écrit quel type de pub il faut lui envoyer en fonction du niveau d’expérience et de son évaluation.

Pièce jointe 164811

Ps : on va simplifier le niveau d'expérience et l’évaluation des conducteurs dans le tableau par des valeurs numériques simples.

Je vous remercie d'avance.
Bien à vous
27/12/2014, 12h36
casefayere

Ok, mais tu ne dis rien sur ce je propose en post #4.

2 pièce(s) jointe(s)

Merci pour votre réponse et pour le temps que vous nous accordez !

Notre tableau conducteur provient d'Access 2013. En effet, nous avons créé une base de donnée et nous avons importé la table "conducteur" sous forme de tableau dans une feuille Excel.
Dans Access, il est possible de créer une colonne (chez nous évaluation et permis de conduire) avec une bande déroulante qui affiche plusieurs propositions. Dès lors, lorsque l'on enregistre un nouveau conducteur "un ruban" se déroule et laisse apparaitre pour :

- la colonne évaluation une sélection pour des notes allant de " 1/10 à 10/10 ".
- la colonne permis de conduire plusieurs choix : "permis depuis moins d'un an, moins de 5 ans, plus de 10 ans, plus de 20 ans,...

Or, ce procédé ne semble pas fonctionner via Excel. Ce que nous pensons donc faire, c'est remplacer dans Excel les valeurs contenues dans ces colonnes par de simples valeurs numériques.

On obtient alors ceci :

Pièce jointe 164818

la colonne évaluation n'afficherait plus que des valeurs tels que : 1, 2 , 3 ...... jusqu'a 10
la colonnne permis de conduire n'afficherait plus que des valeurs tels que : 1, 2, 3 ......20 ...30 ... (pour désigner le nombre d'années d'expérience)

Ceci dans le but d'appliquer ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 If evaluation <= 6 Then If experience <= 10 Then pub = "envoyer une publicité pour des cours de pilotage" Else pub = "envoyer une publicité pour les transports en commun" End If Else If experience <= 6 Then pub = "envoyer une publicité pour une reduction tarifaire de 10% sur notre site" Else pub = "envoyer une publicité pour une reduction tarifaire de 20% sur notre site" End If End If ActiveCell.FormulaR1C1 = pub
Ce code ayant pour but pour chaque conducteur de la liste ainsi que les nouvelles personnes enregistrées, la création d'une nouvelle cellule dans laquelle serait écrit le type de publicité qu'il faut lui envoyer en fonction de son niveau d’expérience et de son évaluation.

Pièce jointe 164819

J'espère que mes explications sont claires, merci pour votre aide,

Maxime

Re,

J'ai réussi péniblement a sortir ce code ci (il est simplifié mais l'idée y est ):
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Publicité() 'evaluation If Range("I2").Value <= 6 Then Range("K2").Value = " envoyer une publicité pour des cours de pilotage" ElseIf Range("I2").Value > 6 Then Range("K2").Value = " ne pas envoyer de publicité pour des cours de pilotage" End If End Sub
Le problème, c'est que lorsque je l'applique il fonctionne pour mon premier conducteur mais pas pour les suivants, je cherche a ce qu'il s'applique à tout les conducteurs...

Bien à vous

Maxime

27/12/2014, 14h29
78chris

Bonjour

Citation:

Envoyé par m.renauld

...
Dans access, il est possible de créer une colonne (chez nous évaluation et permis de conduire) avec une bande déroulante qui affiche plusieurs propositions. Dès lors, lorsque l'on enregistre un nouveau conducteur "un ruban" se déroule et laisse apparaitre pour :

- la colonne évaluation une sélection pour des notes allant de " 1/10 à 10/10 ".
- la colonne permis de conduire plusieurs choix : "permis depuis moins d'un an, moins de 5 ans, plus de 10 ans, plus de 20 ans,...

Or, ce procédé ne semble pas fonctionner via excel. ...

Si j'ai bien compris, tu parles de liste déroulante de choix : cela existe dans Excel via Données, Validation.

Ce que je ne saisis pas, c'est l'intérêt d'exporter les données dans Excel alors que tout cela est réalisable dans Access par une simple requête...

regardes et adaptes ce code en fonction des colonnes, ici on parcourt toutes les données

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub eval()
'Dim experience As Integer, evaluation As Integer
Dim pub As String
Dim Cel As Range, Plg As Range
Dim DC As Range
With ActiveSheet
  Set DC = .Range("I" & .Rows.Count).End(xlUp) 'on cherche la dernière cellule renseignée en A
  Set Plg = .Range("I2", DC)
End With
For Each Cel In Plg
  If Cel.Value <= 6 Then
    If Cel(1, 0) <= 10 Then
      pub = "envoyer une publicité pour des cours de pilotage"
    Else
      pub = "envoyer une publicité pour les transports en commun"
    End If
  Else
    If Cel(1, 0) <= 6 Then
      pub = "envoyer une publicité pour une reduction tarifaire de 10% sur notre site"
    Else
      pub = "envoyer une publicité pour une reduction tarifaire de 20% sur notre site"
    End If
  End If
  Cel(1, 3) = pub
Next Cel
End Sub

Citation:

Envoyé par 78chris

Bonjour

Si j'ai bien compris, tu parles de liste déroulante de choix : cela existe dans Excel via Données, Validation.

Ce que je ne saisis pas, c'est l'intérêt d'exporter les données dans Excel alors que tout cela est réalisable dans Access par une simple requête...

Bonjour, merci pour votre réponse. Il est vrai qu'il aurait été plus facile de créer une requête à partir de ma base de données mais dans le cadre de mon travail, je dois obligatoirement réaliser un code à partir de VBA et ce pour après en tirer une analyse statistique.
Citation:
Envoyé par casefayere
regardes et adaptes ce code en fonction des colonnes, ici on parcourt toutes les données
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Sub eval() 'Dim experience As Integer, evaluation As Integer Dim pub As String Dim Cel As Range, Plg As Range Dim DC As Range With ActiveSheet Set DC = .Range("I" & .Rows.Count).End(xlUp) 'on cherche la dernière cellule renseignée en A Set Plg = .Range("I2", DC) End With For Each Cel In Plg If Cel.Value <= 6 Then If Cel(1, 0) <= 10 Then pub = "envoyer une publicité pour des cours de pilotage" Else pub = "envoyer une publicité pour les transports en commun" End If Else If Cel(1, 0) <= 6 Then pub = "envoyer une publicité pour une reduction tarifaire de 10% sur notre site" Else pub = "envoyer une publicité pour une reduction tarifaire de 20% sur notre site" End If End If Cel(1, 3) = pub Next Cel End Sub
Merci !! c'est exactement ce que je souhaitais faire ! Je vais maitenant essayer de l'associer à un autre code afin de réaliser un graphique à partir des données collectées, je viendrai poster le résultat.

Merci pour votre aide,

Maxime