Discussion :

[c.piette]

Bonjour à tous,


Je souhaite parcourir horizontalement les cellule d'une ligne. Si une des cellules valide une certaine condition, je souhaite aller à la ligne n°5 de cette même colonne, vérifier si le contenu est bien une date. Si ce n'est pas une date, c'est que la date est dans la cellule précédente.

Et donc stocker cette date dans une variable.

Cependant, lorsque je lance mon code, je reçois un message d'erreur "Erreur 70: permission refusée". Pourtant je n'ai aucune protection sur mes feuilles etc ... Donc je suis un peu décontenancé face à ce problème.

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
54
55
56
Dim BorneDroite As Integer, BorneBas As Integer
Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer
Dim Plage1 As Range, Plage2 As Range, Plage3 As Range
 
Dim Nom As String
Dim Poste As String
 
Dim Tbl As ListObject
Dim Cell1 As Range, Cell2 As Range, Cell3 As Range, Cell4 As Range, Cell5 As Range
 
 
    Set Tbl = Sheets("ExtractionsPoste").ListObjects("TableauDonneesTriPoste")
    Set Plage1 = ThisWorkbook.Sheets("Données Provisoires Poste").Range("A7:A100")
 
For Each Cell1 In Plage1
    For Each Cell2 In Tbl.ListColumns("Noms").DataBodyRange
 
         If Cell2.Text = Cell1.Text Then
 
            Nom = Cell2.Text
            Debug.Print "Nom" & Nom
            Debug.Print "Ligne" & Cell2.Row
 
            Set Plage2 = Cell1.Resize(1, 70)
 
                For Each Cell3 In Plage2
                    For Each Cell4 In Tbl.ListColumns("Postes").DataBodyRange
 
                        If Cell3.Text <> "" And Cell3.Text = Cell4.Text Then
 
                            Poste = Cell4.Text
                            Debug.Print "Poste" & Poste
 
'########## Séquence de code problématique #########################
 
                            If IsDate(ThisWorkbook.Sheets("Données Provisoires Poste").Cells(5, Cell3.Column)) Then 'Le débogage affiche cette ligne ci
 
                                Date = ThisWorkbook.Sheets("Données Provisoires Poste").Cells(5, Cell3.Column)
                                Debug.Print "Date" & Date
 
                            ElseIf IsDate(ThisWorkbook.Sheets("Données Provisoires Poste").Cells(5, Cell3.Column - 1)) Then
 
                                Date = ThisWorkbook.Sheets("Données Provisoires Poste").Cells(5, Cell3.Column - 1)
                                Debug.Print "Date" & Date
 
                            End If
'###########################################################
                        End If
 
                    Next Cell4
                Next Cell3
 
         End If
 
    Next Cell2
Next Cell1

Merci d'avance pour l'aide et tout complément d'explication est le bienvenu !

[c.piette]

Méga méga méaculpa !

De 1 je n'avais pas défini "Date", que je pensais être une variable. Et de deux, on ne peut pas définir de variables s'appelant "Date".
Donc vraiment, erreur de méga débutant. Sorry