Codes sur personnalisation des mouvements du curseur non opérationnel

[zombe]

Salut le forum

J'ai essayé de concevoir 2 code dont 1 modulaire et l'autre évènementiel:
Le premier (ci-dessous) me permet de définir des conditions.
Les conditions portent sur B25 et B29 que voici à travers ce code :

Sub control()
If Range("B25").Value > 5000000 And InStr(1, Range("B29"), "UAB") > 0 Then
MsgBox "Choix Assureur Erroné, merci de choisir GA ou SONAR svp!"
Range("B29").Select
ElseIf Range("B25").Value > 5000000 And InStr(1, Range("B29"), "SONAR") > 0 Or InStr(1, Range("B29"), "GA") > 0 Then
Range("B32").Select
ElseIf Range("B25").Value <= 5000000 And InStr(1, Range("B29"), "UAB") > 0 Then
Range("B32").Select
ElseIf Range("B25").Value <= 5000000 And InStr(1, Range("B29"), "GA") > 0 Or InStr(1, Range("B29"), "SONAR") > 0 Then
MsgBox "Choix Assureur Erroné, merci de choisir UAB svp!"
Range("B29").Select
End If

Le deuxième logé dans la feuille SIMULATION me permet de personnaliser les mouvements du curseur et de tester le premier code.
Le test a lieu au niveau de B29.
Le problème est que lorsque je renseigne B29, la macro Control devrait être appelé mais il ne fonctionne pas.
Je vous le soumet avec votre permission pour appréciation.
Ci-dessous le 2è code :

Private Sub worksheet_change(ByVal target As Range)
If Range("B13").Value <> "" Then
If target.Address = "$B$13" And target.Value <> "" Then
    Range("B14").Select
    ElseIf target.Address = "$B$28" And target.Value <> "" Then
    Range("B29").Select
    ElseIf target.Address = "$B$29" And target.Value <> "" Then
    Call control
ElseIf target.Address = "$B$32" And target.Value <> "" Then
    Range("B33").Select
    ElseIf target.Address = "$B$40" And target.Value <> "" Then
    Range("D3").Select
    
    'Else: GoTo fin
    End If
    End If
End Sub

 

[Papou-net]

Re : Codes sur personnalisation des mouvements du curseur non opérationnel

Bonjour zombe,

Pas certain d'avoir compris le problème, mais j'ai relevé que ton code ne fait pas appel à la macro "control" car ta cellule B13, objet du premier test If, est vide. Si tu renseignes cette cellule, tu pourras constater que la macro est bien appelée (en mettant un point d'arrêt sur cette dernière).

Cordialement.