Range et nb.si

[neonato]

Bonjour tout le monde,

Et merci pour votre aide precieuse

j'ai besoin d'afficher un texte à un endroit bien précis d'une page.

je m'explique ex: ( Colonne A , ligne 20 )

soit Range("A20").paste.... ce que je veux.

La colonne A est toujours fixe

Mais le nombre 20 est obtenu grace à N=NB.SI(F2:F20;"NC")

Comment pourrais je faire ???

Puisque Range("A?N?"). paste .... ne fonctionne pas

Un petit coup de main merci bien

 

[Moa]

Salut Neonato !

Voilà une petite macro, que je viens de te faire, à adapter, à ton cas.

La valeur à copier est en C3, le résultat de ton Nb.si en B2.


Sub Macro1()
Dim plouf
plouf = Range("b2").Value
Range("C3").Select
Selection.Copy
Cells(plouf, 1).Select
ActiveSheet.Paste
Range("A1").Select
End Sub

Regarde l'exemple joint !

@ +

Moa

 

[Moa]

Re Neonato !

En fait, tu peux faire la même chose avec une macro plus simple :

Pas besoin de déclarer une variable pour la valeur après ton "A".

Sub Macro2()
Range("C3").Select
Selection.Copy
Cells(Range("b2").Value, 1).Select
ActiveSheet.Paste
Range("A1").Select
End Sub


@ +

Moa