Discussion :

[Supremereboot]

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

[BENNASR]

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 :

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

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

[Supremereboot]

Parfait merci

[Supremereboot]

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 :

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

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

[BENNASR]

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 :

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

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

[BENNASR]

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

Code :

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

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