Soucis de syntax

[cpeens]

bonjour à tous

j'utilise dans ma macro cette ligne

 NL3 = [ & " Push4.text " &].Range("A" & Cells.Rows.Count).End(xlUp).Row + 1

push4 est la valeur de ma textbox qui donnera le nom de ma feuille

en temps normal le code est celui ci

 Private Sub valide3()
 NL3 = [Feuil1].Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
  With Worksheets("BDD1")
  .Cells(NL3, 1).Value = T0.Value
  .Cells(NL3, 2).Value = T1.Value
    .Cells(NL3, 3).Value = T2.Value
    .Cells(NL3, 4).Value = T3.Value
    .Cells(NL3, 10).Value = Push3.Caption
                         
    End With

End Sub

je souhaiterais la meme chose mais à la place de Feuil1 la valeur de ma textbox le soucis c'est que je dois avoir une erreur de syntax mais je vois pas l'aquelle

pouvez vous m'aidez svp merci

Ps😛ush4 me donne le nom de ma feuille ou seras executer la macro

 

[tototiti2008]

Re : Soucis de syntax

Bonjour cpeens,

à tester :

NL3 = Sheets(Push4.text).Range("A" & Cells.Rows.Count).End(xlUp).Row + 1

 

[cpeens]

Re : Soucis de syntax

bonjour tototiti2008 j'ai essayer ta methode j'ai plus d'erreur mais l'alimentation ne se fais pas je cherche la cause et je tiens informée merci en tous cas pour ton aide

 

[Staple1600]

Re : Soucis de syntax

Bonjour à tous


Par sureté, je compléterai ainsi le code de tototiti2008 (😉)

NL3 = Sheets(Push4.text).Range("A" & [COLOR=Blue]Sheets(Push4.text)[/COLOR].Cells.Rows.Count).End(xlUp).Row + 1

EDITION: tototiti2008 (bonsoir Gorfael)

C'est juste une habitude que j'ai prise pour éviter les mauvaises surprises
(comme celle que tu soulignes)

Penses-tu qu'il y ait un risque de faire référence à la feuille active et à une autre feuille ?

 

[tototiti2008]

Re : Soucis de syntax

Bonjour Staple,

Je comprend le pourquoi de ta version, mais le nombre de lignes total étant le même dans chaque feuille, est-ce bloquant ?

Penses-tu qu'il y ait un risque de faire référence à la feuille active et à une autre feuille ? même si c'est évidement plus "propre" avec ta version, sans le moindre doute 😉

 

[Gorfael]

Re : Soucis de syntax

Salut cpeens et le forum

 Private Sub valide3()
NL3 = [Feuil1].Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
With Worksheets("BDD1")

Ton premier problème étant l'orthographe (à la vue de ton poste), essaies de t'obliger à déclarer tes variables.

Deuxième problème : Dans la même macro, tu utilises le nom informatique d'une feuille et le nom feuille de calcul d'une autre => Ça, c'est se préparer à perdre des cheveux. Il vaut mieux utiliser le nom de l'onglet ("Name"), plutôt que le nom informatique ("(Name)") : le premier peut être modifié sur la feuille de calcul, être traité comme du texte. Je ne sais pas, personnellement, manipuler le nom informatique des feuilles : quand je l'utilise, c'est en "dur" dans mon code, et me permet de faire toujours référence à la même feuille, même en cas de changement du nom de l'onglet.
A+