Comment integrer une condition dans mon code sendkey

Version imprimable

12/07/2012, 11h55
capi81

Comment integrer une condition dans mon code sendkey

Bonjour le forum

Je rencontre un soucis avec mon code sendkeys.
En effet, le code me permet de renseigner automatiquement notre logiciel à partir des informations contenues dans une plage excel.
Le problème qui se pose est que le logiciel est fait de telle sorte que lorsque la valeur de la cellule D7=3 (ce qui signifie que c'est femme mariée), le logiciel demande le nom et prenom du mari mais lorsque D7 = 2 ou 4, le logiciel saute les champs reservés au nom et prenom du mari.
Puis que ma plage excel comporte en cellule D16 et D17, les cellules reservées au nom du mari.
Comment faire pour que lorsque la valeur en D7 = 3, il prenne en compte la valeur des cellules D16 et D17.
Mais si D7 est different de 3, il doit laisser les cellules D16 et D17 et aller directement à la cellule D18.
Je reste à votre disposition si pas clair chez vous.
Ci-joint le fichier.
http://cjoint.com/?BGmj1t87wwn

Bonjour,

Si je comprend bien tu as un problème de condition
Code:

1 2 3 4 5 If Range("D7").Value = 3 then 'Code Femme mariée Else 'Code pour les autres cas End If

Salut jfontaine

Merci pour votre réponse.
Je ne sais pas si vous avez pris connaissance du code qui est dans le fichier joint.
A quel niveau du code faut-il intégrer votre solution?
Ci-desous le code:

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
46
Sub activesimple()
'On Error GoTo gestionerreur
If MsgBox("ASSUREZ-VOUS QUE VOTRE SESSION", vbYesNo, "Demande de confirmation") = vbYes Then
 
AppActivate "ESSAI"
 
'POSITIONNEZ-VOUS SUR LE MENU SIMPLIFIE IGOR SOUHAITE
For I = 3 To 44
    SendKeys Cells(I, 4).Value, True
    attendre 0.6
    SendKeys "~"
    attendre 1
 
Next
    SendKeys "+{F3}"
    attendre 1
For I = 45 To 52
    SendKeys Cells(I, 4).Value, True
    attendre 0.6
    SendKeys "~"
    attendre 1
 
Next
    SendKeys "+{F6}"
    attendre 1
 
For I = 53 To 53
    SendKeys Cells(I, 4).Value, True
    attendre 0.6
    SendKeys "~"
    attendre 1
Next
Exit Sub
gestionerreur:
MsgBox "fichier non ouvert ou réduit dans la barre des tâches : abandon"
End If
End Sub
Sub attendre(sec%)
Dim deb&, fin&
deb = Timer
fin = deb + sec%
Do Until Timer >= fin
DoEvents
 
Loop
End Sub

A essayer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
For i = 3 To 44
 
    Select Case i
        Case 16, 17
            If Cells(7, 4).Value = 3 Then
                 SendKeys Cells(i, 4).Value, True
            End If
        Case Else
            SendKeys Cells(i, 4).Value, True
    End Select
 
    attendre 0.6
    SendKeys "~"
    attendre 1
 
Next

Salut jfontaine

Merci pour prompt réaction.
J’ai essayé d’adapter ta condition à mon cas réel.
Ca ne marche pas bien. Par contre dans le fichier joint que je vous avais envoyé.
Donc je me suis dis que j’ai pas bien ajusté.
Ci-dessous ce que j’ai tenté et qui ne fonctionne pas bien pour appréciation :
Sachant que ma plage de donnée réelle = H4 :J52.
La condition porte sur j8 = 3 dans le cas réel et non en D7 pour le test.
Merci pour tout.

http://cjoint.com/?BGmqIc3u0f3

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
46
47
48
49
50
51
52
53
54
55
56
57
Sub activeP()
'On Error GoTo gestionerreur
If MsgBox("ASSUREZ-VOUS QUE VOTRE", vbYesNo, "Demande de confirmation") = vbYes Then
 
AppActivate "essai"
 
'POSITIONNEZ-VOUS SUR LE MENU SIMPLIFIE IGOR SOUHAITE
For I = 3 To 6
    SendKeys Cells(I, 10).Value, True
    attendre 0.6
    SendKeys "~"
    attendre 1
Next
    SendKeys "N" & Chr(13), True
    attendre 0.6
    SendKeys "{LEFT}"
    SendKeys "{ENTER}"
    attendre 1
 
For I = 7 To 43
    Select Case I
    Case 16, 17
    If Cells(8, 10) = 3 Then
    SendKeys Cells(I, 10).Value, True
    End If
    Case Else
    SendKeys Cells(I, 10).Value, True
    End Select
    SendKeys Cells(I, 10).Value, True
    attendre 0.6
    SendKeys "~"
    attendre 1
 
Next
    SendKeys "+{F3}"
    attendre 1
For I = 44 To 51
    SendKeys Cells(I, 10).Value, True
    attendre 0.6
    SendKeys "~"
    attendre 1
 
Next
    SendKeys "+{F6}"
    attendre 1
 
'For I = 51 To 51
    'SendKeys Cells(I, 10).Value, True
    'attendre 0.6
    'SendKeys "~"
    attendre 1
 
Exit Sub
gestionerreur:
MsgBox "fichier non ouvert ou réduit dans la barre des tâches : abandon"
End If
End Sub