Discussion :

[DonkeyMaster]

Bonjour,
je suis en train de coder une macro qui doit vérifier, pour un ensemble de cellules, qu'aucune de ces cellules n'est vide, et que sa valeur n'est pas égale à la même cellule dans la feuille précédente.

Pour cela, j'ai écrit cette procédure

Code VBA :

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

CheckData(cellule As Range)

.

J'obtiens une erreur, alors j'ai essayé d'isoler l'erreur. Voici une macro qui reproduit cette erreur :
Créer un nouveau document Excel.
Remplir, dans la feuille 1 et dans la feuille 2, les cellules A1 à B2 avec des valeurs bidon (par exemple, 1, 2, 3, 0)
Lancer la macro TestToFail

à la ligne
If wsPrevious.Cells.Range(cell.Row, cell.Column) = cell.Value Then
j'obtiens une "Erreur définie par l'application ou par l'objet"

Comment résoudre cette erreur ?

Code VB :

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
 
Option Explicit
 
Sub TestToFail()
    Dim ws As Worksheet
    Dim check As Range
    Set ws = Worksheets(2)
    Set check = ws.Cells.Range("A1:B2")
    Call CheckData(check)
End Sub
 
Public Function CheckData(cellule As Range) As Boolean
    Dim cell As Range
    For Each cell In cellule
        If IsEmpty(cell) Then
            CheckData = False
            Exit Function
        End If
 
        If Trim(cell.Value) = "" Then
            CheckData = False
            Exit Function
        End If
 
        If cellule.Worksheet.Index > 1 Then
            Dim wsPrevious As Worksheet
            Set wsPrevious = Worksheets(cell.Worksheet.Index - 1)
            If wsPrevious.Cells.Range(cell.Row, cell.Column) = cell.Value Then
                CheckData = False
                Exit Function
            End If
        End If
    Next cell
 
    CheckData = True
End Function

[wilfried_42]

bonjour

essaye comme ca

Set check = ws.Range("A1:B2")

Bonne journée

[DonkeyMaster]

bonjour

essaye comme ca

Code VBA :

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

Set check = ws.Range("A1:B2")

Bonne journée

Hmm, j'ai fait la modif mais ça n'a rien changé à mon erreur.

[wilfried_42]

re:

je n'avais pas vu la suite

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
Public Function CheckData(cellule As Range) As Boolean
    Dim cell As Range
    Dim wsPrevious As Worksheet
    For Each cell In cellule
        If IsEmpty(cell) Then
            CheckData = False
            Exit Function
        End If
 
        If Trim(cell.Value) = "" Then
            CheckData = False
            Exit Function
        End If
 
        If cellule.Worksheet.Index > 1 Then
            Set wsPrevious = Worksheets(cell.Worksheet.Index - 1)
            If wsPrevious.Range(cell.address) = cell.Value Then
                CheckData = False
                Exit Function
            End If
        End If
    Next cell
 
    CheckData = True
End Function

Evite de declarer tes variables dans une boucle (Fonction Dim)


En rouge tes modifs

[DonkeyMaster]

Ok, j'ai remplacé
wsPrevious.Cells.Range(cell.Row, cell.Column)
par
wsPrevious.Cells.Range(cell.Address)


et maintenant ça marche!
merci beaucoup

[Didier Gonard]

Bonjour,

précision : ton pb de base me paraît surtout un pb de syntaxe :

Range(cell.Row, cell.Column) = Range (1,1) par exemple, ce qui ne peut pas marcher

la syntaxe de (row, colonne) est celle de Cells justement...en remplaçant :

Code :

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

If wsPrevious.Cells.Range(cell.Row, cell.Column) = cell.Value Then

par

Code :

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

If wsPrevious.Cells(cell.Row, cell.Column) = cell.Value Then

il n'y a plus d'erreur !

cordialement,

Didier

[DonkeyMaster]

Ok, c'est noté.
Merci beaucoup.


Je viens de C#, ça fait maintenant 3 jours que je fais du VB, alors je ne suis pas encore habitué à un compilateur moins typé