Egalité entre cellules vba

tototiti2008

XLDnaute Barbatruc

• 4 Novembre 2010

• #2

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

Code:

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

 

Vote positif 0 Vote négatif

B

bernardrustrel

XLDnaute Occasionnel

• 4 Novembre 2010

• #3

Re : Egalité entre cellules vba

Toutes mes excuses ici L prend la valeur 2

Merci à vous

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 4 Novembre 2010

• #4

Re : Egalité entre cellules vba

Re,

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

Code:

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

plutôt que

Code:

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 ?

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

B

bernardrustrel

XLDnaute Occasionnel

• 4 Novembre 2010

• #5

Re : Egalité entre cellules vba

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 4 Novembre 2010

• #6

Re : Egalité entre cellules vba

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 4 Novembre 2010

• #7

Re : Egalité entre cellules vba

Bonjour à tous

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

Code:

[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

 

Vote positif 0 Vote négatif