Alégement de script

[tonyboytony]

Bonsoir tous le monde

étant novice en VBA mais étant plein de courage
et en farfouillant à droite et à gauche, jai écris le scipt joint
peut t'on faire plus clair ou l'écrire differement

merci d'avance

 

[wilfried_42]

Re : Alégement de script

Bonjour

voici ta macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
Set cell = Range("D4")
If cell < 1 Or cell > 2000 Then Range("F4") = 0: Exit Sub
If cell.Value > 1750 Then Range("F4") = "2000": Exit Sub
If cell.Value > 1500 Then Range("F4") = "1750": Exit Sub
If cell.Value > 1250 Then Range("F4") = "1500": Exit Sub
If cell.Value > 1000 Then Range("F4") = "1250": Exit Sub
If cell.Value > 750 Then Range("F4") = "1000": Exit Sub
If cell.Value > 500 Then Range("F4") = "750": Exit Sub
Range("F4") = 500
End Sub

Mais tu n'es pas obligé de passer par macro pour faire ca, un tableau de correspondance avec un recherchev serait beaucoup plus simple
De plus tu utilises une macro evennementielle sur la selection de cellule, à chaque fois que tu te deplaces la macro se lance

Or la cellule D4 se modifie en fonction de la saisie de B4 et B6, le plus judicieux est de passer par une macro evennementielle de saisie
Worksheet_change
et de tester juste en dessous du dim
if target.address <> "$B$4" and target.address <> "$B$6" then exit sub

Target etant la cellule modifiée

 

[phlaurent55]

Re : Alégement de script

Salut tonyboytony

Pourquoi "For Each cell In Range("D4")" D4 ne représente qu'une seule cellule !!

tu aurais pu utiliser un If ou un Select Case

à+

 

[brunocolombert]

Re : Alégement de script

Wilfreid, phlaurent55

Comme vous avez pu le voir mes début en VB sont laborieux

mais je ne désespère pas de devenir pas trop mauvais on va dire …

merci pour les conseil, je teste la macro

je ne connais pas encore la fonction Worksheet_change mais je regarde …

merci de votre aide et bonne journée à vous

Tony