Egalité entre cellules vba

[bernardrustrel]

Bonjour à tous
Peut etre que je me casse la tete pour rien
mais je n'arrive point à faire fonctionner sou EXCEL 2003 ces quelques lignes de macro:

Sub Essai()
Dim Plage
Dim L
Set Plage = Sheets("Bilan").Range("C2:C19")
seets("Bilan").select
Cells(L, 3).Select
If ActiveCell = Cells(L + 1, 3) Then
ActiveCell.Delete
End If
End Sub

Mon Pb se situe au If où l'égalité est reélle entre les deux cellules et malgré celà l'effacement de la cellule active n'a pas lieu.

Si l'un de vous pouvait éclairer ma lanterne. Merci par avance.

Cordialement

 

[tototiti2008]

Re : Egalité entre cellules vba

Bonjour Bernard,

tu ne donnes aucune valeur à ta variable L, c'est normal ? que doit valoir L ?

A quoi sert Plage ?

d'autre part il est vivement conseillé de préciser le type des variables lors de la déclaration

Sub Essai()
Dim Plage as Range
Dim L as Long
'L = ?
Set Plage = Sheets("Bilan").Range("C2:C19")
sheets("Bilan").select
Cells(L, 3).Select
If ActiveCell = Cells(L + 1, 3) Then
ActiveCell.Delete
End If
End Sub

 

[bernardrustrel]

Re : Egalité entre cellules vba

Toutes mes excuses ici L prend la valeur 2

Merci à vous

 

[tototiti2008]

Re : Egalité entre cellules vba

Re,

Dans ce code, quelle est la plus value d'écrire

L = 2
Cells(L, 3).Select
If ActiveCell = Cells(L + 1, 3) Then
ActiveCell.Delete
End If

plutôt que

Cells(2, 3).Select
If ActiveCell = Cells(3, 3) Then
ActiveCell.Delete
End If

??

Ne manquerait-il pas une partie du code avec un boucle sur L, par hasard ?

A quoi sert Plage ?

 

[bernardrustrel]

Re : Egalité entre cellules vba

la valeur 2 est obtenue à partir d'un calcul pour donner la valeur de ligne de la cellule "C2"

 

[tototiti2008]

Re : Egalité entre cellules vba

Re,

Je viens d'essayer cette macro chez moi et ça fonctionne correctement

Sub test()
Dim L As Long
L = 2
Cells(L, 3).Select
If ActiveCell = Cells(L + 1, 3) Then
ActiveCell.Delete
End If
End Sub

 

[ROGER2327]

Re : Egalité entre cellules vba

Bonjour à tous

En virant tout ce qui ne sert à rien, j'obtiens

[COLOR=DarkSlateGray][B]Sub Essai()
Dim L&
  L = 2
  With Sheets("Bilan").Cells(L, 3)
    If .Value = .Offset(1, 0).Value Then .Delete
  End With
End Sub[/B][/COLOR]

qui fonctionne...
Ce qu'il serait intéressant de savoir : que doit faire la procédure ?
​

ROGER2327
#4447

Lundi 2 As 138 (Sainte RroSainte Sélavy, héroine, SQ)
14 Brumaire An CCXIX
2010-W44-4T13:36:25Z