Problème avec commandbutton

[skoobi]

Bonjour le forum,
lorsque je veux executer ce code lié à un commandbutton (forcément):

Private Sub CommandButton1_Click()
Sheets(2).Select
For Each cellule In Range(Cells(1, 1), Cells(10, 1))
    cellule.Value = "ok"
Next
End Sub

il mais le résultat dans la feuil1.
J'ai beau nommer la plage, déclarer un variable ou mettre in activesheet.range là il ce produit une erreur 1004.🙁
Comprend pas...
Merci pour vos explications et solutions.

Skoobi.

 

[skoobi]

Re : Problème avec commandbutton

Je précise que le bouton ce trouve dans la feuil1.

 

[Pierrot93]

Re : Problème avec commandbutton

Bonsoir Skoobi

essaye le code ci dessous :

For Each cellule In Sheets(2).Range(Sheets(2).Cells(1, 1), Sheets(2).Cells(10, 1))
    cellule.Value = "ok"
Next

j'ai également enlevé le "sheets(2).select" qui a priori ne sert pas, rarement utile les "select" en vba.

bonne soirée
@+

 

[Excel_lent]

Re : Problème avec commandbutton

Bonsoir à tous et aux autres,

Autre essai :

Dim cellule As Range
Private Sub CommandButton1_Click()
With Sheets(2)
  For Each cellule In .Range(.Cells(1, 1), .Cells(10, 1))
    cellule.Value = "ok"
  Next
End With
End Sub

 

[myDearFriend!]

Re : Problème avec commandbutton

Bonsoir skoobi, Pierrot93, Excel_lent,

On peut aussi éviter la boucle dans ce cas :

[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE 1[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] CommandButton1_Click()
    [COLOR=NAVY]With[/COLOR] Sheets(2)
        .Range(.Cells(1, 1), .Cells(10, 1)).Value = "Ok"
    [COLOR=NAVY]End With
End Sub[/COLOR][/SIZE]

Cordialement,

 

[skoobi]

Re : Problème avec commandbutton

Re,
mercià vous deux, ça marche.🙂

A+