Exécution d'un code VBA avec deux conditions
Bonjour,
En VBA, comment lancer un code avec deux conditions vérifiées ?
Par exemple si en colonne C de C6 à C10, sur chaque ligne si Cx est vide la boucle s'arrête sinon elle continue, condition1.
Condition 2 : De A6 à A10 j'ai des valeurs Mini :10, 9, 8 par exemple.
De B6 à B10 j'ai des valeurs Maxi : 30,40,25.
Ligne 6 Mini 10
Maxi 40 le chiffre qui devra apparaitre en D6 devra être compris entre 6 et 40.
Dans le code VBA est-il possible de modifier les valeurs cibles colonne D en tenant compte de ces deux conditions ?
Si vous pouvez me donner un exemple pour comprendre ça serait super.
Code:
1 2 3 4 5
| Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Range("G6").GoalSeek Goal:=Target.Value, ChangingCell:=Range("D6")
End If
End Sub |
Merci d'avance,
Dans l'espoir d'avoir une réponse.
Bonne après-midi :)
@+