Bonjour le forum,
J’ai beau rechercher de partout mais rien ne m’a aidé, ce que je veux faire est via un USF entrer ces données sur une page de calcul et dans des cellules bien définie et c’est là que ça pêche, j’ai une erreur type : Référence incorrecte ou non qualifiée. Je suis bloqué, je ne sais plus comment faire.
Je me permets donc de vous demander un conseil pour déboguer mon code.
Dans un 1ére temps j’ai déclaré en haut de la page,
Ensuite le code dessous pour l’insertion dans la feuille
:whistle: Voili, voilou, si quelqu'un à une idée sur la bêtise...😱
Amicalement,
PAD
J’ai beau rechercher de partout mais rien ne m’a aidé, ce que je veux faire est via un USF entrer ces données sur une page de calcul et dans des cellules bien définie et c’est là que ça pêche, j’ai une erreur type : Référence incorrecte ou non qualifiée. Je suis bloqué, je ne sais plus comment faire.
Je me permets donc de vous demander un conseil pour déboguer mon code.
Dans un 1ére temps j’ai déclaré en haut de la page,
Code:
Option Explicit
Private X As Integer
Private Y As Integer
Code:
Private Sub CommandButton1_Click()
Dim retour As Integer
Dim Ca As Integer
Dim Y, plac: Y = 21: retour = 1
With ActiveSheet
Range('C21:K61,C78:K133,C150:K205,C222:K277,C294:K349,C366:K409').Select
Selection.ClearContents
End With
For X = 21 To 130
If Ca 10000 Then
If Y = 31 Then Y = 55: retour = 2
If Y = 76 Then Y = 100: retour = 3
If Y = 121 Then Y = 145: retour = 4
If Y = 166 Then Y = 190: retour = 5
If Y = 211 Then Y = 235: retour = 6
If Ca = 9999 Then
With .Cells ‘ Ici est l’erreur
.Cells(Y, 3) = Ca
.Cells(Y, 4) = List2
.Cells(Y, 8) = Unit
.Cells(Y, 9) = Q
.Cells(Y, 10) = Pu
.Cells(Y, 11) = PHT
End With
End If
Y = Y + 1
End If
Next
End SubAmicalement,
PAD