fonction VBA

[kllmoon]

Bonjour, j'aimerais savoir comment faire fonctionner cette macro

Private Sub CommandButton1_Click()
Range("A1:F & NBVAL('Période 1'!B3:B62)").Select
ActiveWindow.Selection.Copy
End Sub

Je sais que nbval ne fonctionne pas mais c'est pour vous donner une meilleure idée de ce que je veux accomplir. Comme la fonction NBVAL fonctionne bien pour la compilation, je pensais qu'elle fonctionnerais bien pour la macro mais là je suis a cours d'idées et après avoir surfé le net à ce sujet pour 30 minutes je suis découragé!

 

[skoobi]

Re : fonction VBA

Bonsoir,kllmoon, bienvenue surXLD,

test ceci:

Range("A1:F" & [COUNTA('Période 1'!B3:B62)]).Select

 

[kllmoon]

Re : fonction VBA

négatif, ça ne fonctionne pas. Erreur 1004 citée... Pourtant la formule semble bonne....😕

 

[Staple1600]

Re : fonction VBA

Bonsoir kllmoon, skoobi 😉


Et comme cela?

Dim x as long
x=[COUNTA('Période 1'!B3:B62)] 
Range("A1:F" & x).Select

EDITION: test ok

Sub test()
Dim x As Long
x = [COUNTA('Feuil2'!C2:C8)]
Range("A1:B" & x).Select
End Sub

 

[kllmoon]

Re : fonction VBA

Bordel, ça fonctionne mais ça donne tjrs 1 et ça sélectionne la première rangée... Je vais enlever les données confidentielles et mettre le classeur en ligne pour que tu puisse voir parce que je n'y comprends absolument plus rien!

 

[kllmoon]

Re : fonction VBA

J'ai réalisé mon erreur... Tu avais raison staple, ton code fonctionne merci 🙂