qui peus finir cette macro

[nono]

Sub Bouton1_QuandClic()
Worksheets(1).Range("A2").Copy


End Sub


JE VOUDRAIS COLLER DANS LA CELLULE F10 JUSTE LA VALEUR
MERCI

 

[SYL'S]

Salut Nono,

Essaye ça...

Sub Bouton1_QuandClic()
Worksheets(1).Range("A2").Copy
Worksheets(1). Range("F10").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

Bon appétit. Syl's.

 

[Jean-Marie]

Bonjour

Plus simple sans passer par le copier

Sub Bouton1_QuandClic()
Worksheets(1).Range("F10") = Worksheets(1).Range("A2").Value
End Sub

Bonne journée

@+Jean-Marie

PS, je vais me laver les mains, commence à avoir des démangeaisons lol

 

[nono]

merci beaucoup SYL'S

J'ai oublié de te demander que si F10 est pris se metre sur F11 etc..

Vous ête vraiment sympas le forum
Merci

 

[SYL'S]

Bonjour nono, jean marie et le forum,

Si on veut dans le plus simple. Vu que c'est un bouton quand-il-click....

Sub Bouton1_QuandClic()
Range("F10") = Range("A2").Value
End Sub


Il y a peut-être encore plus simple...dans la feuille, en cellule F10 = A2...loool. (solution formule barbare) ....loool

Merci Jean-Marie.

A plus

 

[Bruno]

Bonjour a tous

Moi j'essaierai:

Sub Bouton1_QuandClic()
Worksheets(1).Range("A2").Copy

If Range("F10")=0 Then
For I=1 To 150 'test sur les 150 lignes qui suivent F10
If Activecell.Offset(I,0)<>0 Then
If Activecell.Offset(I+1,0)=0 Then
Activecell.offset(I+1,0).PasteSpecial Paste:=xlValues

End Sub

ou si ca marche pas

Sub Bouton1_QuandClic()
Worksheets(1).Range("A2").Copy

If Range("F10")=0 Then
For I=1 To 150 'test sur les 150 lignes qui suivent F10
If Activecell.Offset(I,0)<>0 Then
If Activecell.Offset(I+1,0)=0 Then
Activecell.offset(I+1,0).Select
Selection.PasteSpecial Paste:=xlValues

End Sub