Discussion :

[BDA53]

à tous !

Je souhaite mettre les valeurs d'une fiche de calcul dans une base de données.
J'ai fait le code suivant :

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
Private Sub Sauvegarder_Click()
    Dim t(2 To 10000, 1 To 20), l, c, col, compteur, res As Integer
    Dim Wb As Workbook
    Set Wb = GetObject("C:\Users\Documents\Macro\MaMacro2015.xlsm")
    col = 0
    compteur = 0

    If Wb.Worksheets(1).Cells(1, 2) = Worksheets(2).Cells(13, 1) Then col = 2
    If Wb.Worksheets(1).Cells(1, 11) = Worksheets(2).Cells(13, 2) Then col = 11
    If Wb.Worksheets(1).Cells(1, 6) = Worksheets(2).Cells(13, 3) Then col = 6
    If Wb.Worksheets(1).Cells(1, 7) = Worksheets(2).Cells(13, 4) Then col = 7
    If Wb.Worksheets(1).Cells(l, 14) = Worksheets(2).Cells(5, 6) Then col = 14
    If Wb.Worksheets(1).Cells(1, 15) = Worksheets(2).Cells(7, 8) Then col = 15
    For res = 18 To 30
        If Worksheets(2).Cells(8, 2) = Worksheets(1).Cells(res, 6) Then Wb.Worksheets(1).Cells(l, 13) = Worksheets(1).Cells(res, 6)
    Next res
    
    For l = LBound(t, 1) To UBound(t, 1)
    
        For c = LBound(t, 2) To UBound(t, 2)
           
            If Wb.Worksheets(1).Cells(l, c) = "" Then
                Select Case col
                    Case Is = 2
                        Wb.Worksheets(1).Cells(l, col) = Worksheets(2).Cells(14 + compteur, 1)
                    Case Is = 6
                        Wb.Worksheets(1).Cells(l, col) = Worksheets(2).Cells(14 + compteur, 2)
                    Case Is = 7
                        Wb.Worksheets(1).Cells(l, col) = Worksheets(2).Cells(14 + compteur, 3)
                    Case Is = 11
                        Wb.Worksheets(1).Cells(l, col) = Worksheets(2).Cells(14 + compteur, 4)
                    Case Is = 14
                        Wb.Worksheets(1).Cells(l, col) = Worksheets(2).Cells(5, 6)
                    Case Is = 15
                        Wb.Worksheets(1).Cells(l, col) = Worksheets(2).Cells(7, 8)
                    End Select
            End If
            
        Next c
        
    Next l
End Sub

J'ai le message d'erreur suivant à la ligne rouge : "Erreur définie par l'application ou par l'objet". Dans cette ligne je souhaite rentrer une date dans une colonne destinée aux dates. La colonne est déjà en format "Date" alors ça me laisse perplexe.

Si quelqu'un peut me venir en aide ça me sauverait la vie

[Invité]

bonjour,
la cellule source contient quelle valeur?

[BDA53]

exemple de valeurs de la fiche : 03/12/2015
exemple de valeurs de la BDD : 04/05/2015

[Invité]

tu as ds colonnes verrouillées?

pour l'instant on est plus sur des pistes car je suis comme toi je ne vois pas l'erreur!

[BDA53]

Oui c'est très probable car j'ai repris l'outil d'un ancien salarié qui a protégé sa feuille ...

[Invité]

modifies à la main dans excel pour vérifier!

[BDA53]

oui j'ai vérifié et le message d'erreur est :" vous ne pouvez pas rentrer cette formule, l'utilisateur a restreint l'insertion de valeurs"

[Invité]

test ça!

Code :

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

1
2
3
a= Wb.Worksheets(1).Cells(l, 14).text
b=Worksheets(2).Cells(5, 6).text
If a =b Then col = 14

[BDA53]

Cette fois c'est a qui plante ! La variable est "vide"

[Invité]

normalement tu devrais pouvoir lire les cellule verrouillées! mai apparemment??

[BDA53]

Apparemment non ! Le développeur précédent était doué

[Invité]

nous avons fait un peut le tour de la question, il est maintenant évidant que tu as un problème de verrouillage de la colonne!

à mois de déverrouiller le classeur??? as tu d'autre source de ta macro,ou un autre fichier que celui là?

[Theze]

Bonsoir,

As-tu essayés avec Value ?

Code :

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

1
2
 
If Wb.Worksheets(1).Cells(l, 14).Value = Worksheets(2).Cells(5, 6).Value Then Col = 14

[BDA53]

Non ça ne marche pas non plus avec value.
C'est certain qu'il faut que je demande à l'ancien développeur de débloquer la feuille.
Mais je pense qu'il va m'envoyer balader c'est relou .
Merci quand même pour vos réponses.