Discussion :

[Nounours1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
@+

[BENNASR]

Bonsoir
Pour moi j'ai pas arrivé à comprendre ta requête. Toutefois si tu cherche à coder à deux conditions il suffit d'utiliser if et and
premièrement définir la langueur maximale à traiter puis :
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
with sheets("feuil1")
for i = 1 to i
if .range ("A"& i ).value <40 and  .range ("A"& i ).value > 5 then
.range ("C"& i )= .range ("A"& i ).value * 5
end if
next i
end with

[Nounours1]

Merci pour ta réponse,
Comment remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 if .range ("A"& i ).value <40 and  .range ("A"& i ).value > 5 then

40 et 5 par des cellules qui contiennent ces chiffres, car ils ne seront pas fixes.

Merci,
A bientôt

[BENNASR]

bonsoir
s'il s'agit de remplacer par des valeurs existent respectivement en B5 et C5 alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 if .range ("A"& i ).value < .range ("B5").value and  .range ("A"& i ).value > .range ("B5").value then

si la valeur de comparaison se trouve sur le même ligne alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 if .range ("A"& i ).value < .range ("B"& i ).value and  .range ("A"& i ).value > .range ("C"& i ).value then

[Nounours1]

J'ai mis un classeur exemple, si ça veut fonctionné

Merci.

[BENNASR]

bonsoir
mais cette catégorie (à savoir 20.6 kg) ne figure pas entre les paliers ??
tu dis que cette valeur doit comprise entre le mini et le maxi alors que c'"est pas le cas dans ton exemple et malgré ça t'a fais des calculs !!
aussi : ces valeurs sont fixes??
Ms % UEL
0.32 0.91
0.25 0.71
0.12 0.26
plus d’éclaircissement svp
en plus je crois que t'as pas besoin de recours à VBA , les fonctions standard de Excel fait l'affaire, à savoir SI combiné avec ET
=SI(ET(A6<>"";A6>10;A6<15);"toto";"")

[Nounours1]

Non, les 20.6 kg ne sont pas dans les paliers, car le code la laissé passer.
Les autres valeurs ne sont pas fixes, elles arrivent lorsqu'on sélectionne un nom par la formule recherchev.

Il faut que les bornes soient prises en compte dans le code, car dans la colonne D il ne peut pas y avoir de formule, normalement on doit pouvoir taper un chiffre.

Merci.