Discussion :

[Damss]

Bonjour, j'aimerais faire une macro où les valeurs impaires soient dans la colonne B soit dans la colonne C feraient que cette ligne soit tout simplement supprimé.

pour cela j'avais pensé demandé à Excel qu'il évalue la valeur dans chacune des colonnes avec un test logique :

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro3()
 
For i = 0 To 5
 
Cells(i, 5).Select
 
    ActiveCell.FormulaR1C1 = "=IF(MOD(RC[-3],2)=1,""IMPAIR"",""PAIR"")"
    Range("E2").Select
 
    Next i
 
 
End Sub

Or il me définit une erreur de type 1004

Merci de votre aide

bonne continuation

[AnneCa]

Ton compteur doit commencer à 1 pas à 0

[Damss]

le 0 à la place du 1 est une faute de frappe, j'obtiens le même message d'erreur avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro3()
 
For i = 1 To 5
 
Cells(i, 5).Select
 
    ActiveCell.FormulaR1C1 = "=IF(MOD(RC[-3],2)=1,""IMPAIR"",""PAIR"")"
    Range("E2").Select
 
    Next i
 
 
End Sub

[AnneCa]

Mais ça fonctionne bien chez moi...
Sur quelle ligne as-tu l'erreur?

[laetitia]

bonjour Damss AnneCa le forum comme j ai compris dans colonne b ou colonne c
autrement a la place de or tu mets and

Option Explicit

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("b1", Range("b65536").End(xlUp))
If c Mod 2 <> 0 Or c.Offset(0, 1) Mod 2 <> 0 Then c.EntireRow.Delete
 Next
End Sub

[Damss]

voila comment j'ai procédé en fait :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub Dams()
 
 
 
 
Dim nbrelignesX As Double, nbrelignesY As Double, nbremaillesX As Double, nbremaillesY As Double, nombrelignescolonnes As Double, tampon1 As Double, tampon2 As Double
 
nbremaillesX = Sheets("Feuil1").Cells(1, 8)
nbremaillesY = Sheets("Feuil1").Cells(2, 8)
 
nbrelignesX = nbremaillesX + 1
nbrelignesY = nbremaillesY + 1
 
nbrelignescolonnes = nbremaillesX * nbremaillesY
'
 
For i = 3 To nbrelignescolonnes + 2
 
Cells(i, 5) = "=IF(MOD(RC[-3],2)=1,""IMPAIR"",""PAIR"")"
Cells(i, 6) = "=IF(MOD(RC[-3],2)=1,""IMPAIR"",""PAIR"")"
 
Next i
 
    For i = 3 To nbrelignescolonnes + 2
 
        If Cells(i, 5).Text = "IMPAIR" Then
    Rows(i).Delete
 
    i = i - 1
    End If
    Next i
 
    For i = 3 To nbrelignescolonnes + 2
 
        If Cells(i, 6).Text = "IMPAIR" Then
    Rows(i).Delete
 
    i = i - 1
    End If
    Next i
 
'if cells(ligne, colonne).text(ou value) = XX then
'Rows(ligne).Delete
'ligne = ligne - 1
'End If
 
'If Cells(i, 5).Text = "IMPAIR" Then
'EntireRow.Delete
'End If
 
'Next i
 
End Sub

Merci de votre aide néamoins