VB - remplacement cellules avec 3 conditions

Bonjour,

J'ai besoin d'une petite aide en VB sur Excel 2007.

Dans une feuille avec plusieurs colonnes et plusieurs valeurs. Je souhaiterais faire une macro qui :
condition 1 : valeur "Xerox Phaser 7800GX"
condition 2 : colonne F : valeur >100
condition 3 : colonne F : valeur inferieur ou égale à 550
Que la cellule F1, F2, etc... soit remplacée par "-100"

Même chose pour la colonne G, H et I mais avec la condition 2 qui change : valeur inferieur ou égale à 300

ps : vous trouverez, ci-joint, le fichier en question.

Cordialement

bonsoir Supremereboot, la forum
Merci de te conformer aux règles du forum et éviter de charger ce super site par des pièces jointes (voir règles ci-haut)
voila un code bricolé te donne idée comment manipuler pour changer la colonne F
à toi de compléter le reste
Bonne continuation

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub rechetreplace() Dim i As Long Dim Plage As Range With Sheets("21-02-2017") i = .Range("A65536").End(xlUp).Row For i = 2 To i If Cells(i, 2) = "Xerox Phaser 7800GX" And Cells(i, 6).Value > 100 And Cells(i, 6).Value < 550 Then Cells(i, 6).Value = -100 End If Next i End With End Sub

---

Parfait merci

Bonjour,

J'ai modifié le code pour l'adapté a plusieurs colonnes. J'ai un message d'erreur : end if sans bloc if.
Pouvez vous m'aider ?

Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim i As Long Dim Plage As Range With Sheets("Feuil1") i = .Range("A65536").End(xlUp).Row For i = 2 To i If Cells(i, 2) = "Xerox Phaser 7800GX" And Cells(i, 7).Value > 100 And Cells(i, 7).Value < 551 Then Cells(i, 7).Value = -100 'End If 'Next i If Cells(i, 2) = "Xerox Phaser 7800GX" And Cells(i, 8).Value < 300 Then Cells(i, 8).Value = -100 'End If 'Next i If Cells(i, 2) = "Xerox Phaser 7800GX" And Cells(i, 9).Value < 300 Then Cells(i, 9).Value = -100 'End If 'Next i If Cells(i, 2) = "Xerox Phaser 7800GX" And Cells(i, 10).Value < 300 Then Cells(i, 10).Value = -100 End If Next i End With

---

bonjour
chaque (if) doit avoir un (end if)
et chaque (for) doit avoir son (next)
si tu supprime l'apostrophe devant (end if) et (next) je crois que ça va aller
Attention tu applique ça si tu revient à la ligne apprès (Then) et si tu écris dana la meme ligne tu n'as besoin que du (next i) que tu peux l'insérer à la meme ligne avec deux point en avant ( : next i )
bonne continuation

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

Sub test() Dim i As Long Dim Plage As Range With Sheets("21-02-2017") i = .Range("A65536").End(xlUp).Row For i = 2 To i If Cells(i, 2) = "Xerox Phaser 7800GX" And Cells(i, 7).Value > 100 And Cells(i, 7).Value < 551 Then Cells(i, 7).Value = -100 End If   If Cells(i, 2) = "Xerox Phaser 7800GX" And Cells(i, 8).Value < 300 Then Cells(i, 8).Value = -100 End If   If Cells(i, 2) = "Xerox Phaser 7800GX" And Cells(i, 9).Value < 300 Then Cells(i, 9).Value = -100 End If   If Cells(i, 2) = "Xerox Phaser 7800GX" And Cells(i, 10).Value < 300 Then Cells(i, 10).Value = -100 End If Next i End With End Sub

---

J'ai corrigé voir réponse ci haut :aie:
si non :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() Dim i As Long Dim Plage As Range With Sheets("21-02-2017") i = .Range("A65536").End(xlUp).Row For i = 2 To i If Cells(i, 2) = "Xerox Phaser 7800GX" And Cells(i, 7).Value > 100 And Cells(i, 7).Value < 551 Then Cells(i, 7).Value = -100 If Cells(i, 2) = "Xerox Phaser 7800GX" And Cells(i, 8).Value < 300 Then Cells(i, 8).Value = -100 If Cells(i, 2) = "Xerox Phaser 7800GX" And Cells(i, 9).Value < 300 Then Cells(i, 9).Value = -100 If Cells(i, 2) = "Xerox Phaser 7800GX" And Cells(i, 10).Value < 300 Then Cells(i, 10).Value = -100 Next i End With End Sub

---