USF vers feuille de calcul

[PAD]

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,

Option Explicit
Private X As Integer
Private Y As Integer

Ensuite le code dessous pour l’insertion dans la feuille

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 Sub

:whistle: Voili, voilou, si quelqu'un à une idée sur la bêtise...



Amicalement,

PAD

 

[Denis]

Bonjour Pad et le Forum
à première vue et en passant très vite, j'enlèverais le 'With Cells' et 'End With' à la fin
à suivre
Bon courage et à +
Denis

 

[PAD]

Bonsoir Denis, le forum


En Faite j'ai pas mal remanier mon code et il est presque bon sauf que j'ai plusieur lignes a inscrire et là, je suis à cour de solution...

A bientôt,

Amicalement,

PAD