Macro - Sheets & Range & co

[Lost]

Salut,

Voila 3 heures que je me bats avec les macros Excel (j'ai quelques notions en VB) et rien n'y fait ça ne marche pas

Private Sub CommandButton1_Click()
Dim num As Integer
Dim i As Integer
Dim parcours As Integer
Range('B5').Select
num = ActiveCell.Value
Sheets(Array(Sheets(11).Name)).Select
Sheets('Test').Activate
For i = 1 To 987
Range('C' & i).Select
parcours = ActiveCell.Value
Next
MsgBox (i)
End Sub

Je veux simplement pour l'instant parcourir une colone se trouvant dans une autre feuille que le bouton de la macro mais rien n'y fait ça plante toujours sur Range('C' & i).Select, j'ai essayé en mettant une cellule fixe c'est pareil, j'ai essayé sans la boucle c'est pareil. Bref je pense qu'il y a un soucis au niveau des Sheets car le premier Range('B5').Select lui fonctionne !

Merci d'avance pour votre aide !

 

[Jacques87]

Bonjour

Il me semble que tu as plusieurs feuilles qui ont été selectionnées

Sheets(Array(Sheets(11).Name)).Select
Sheets('Test').Activate

donc il me semble que lorsque tu demandes de sélectionner la cellule C & I

Range('C' & i).Select

il faudrait peut être rappeler dans quelle feuille elle se trouve cette cellule en ajoutant

soit ActiveCell.Range ..... si cette cellule est dans la feuille sélectionnée
soit WorkSheets(son nom).Range ....
si cette cellule est dans une autre feuille portant le nom 'son nom'

essaie et tiens moi au courant, il me semble que l'erreur vient de la, sinon je consacrerai un peu plus de temps à ta question

bon courage

P.S.: je viens de voir autre chose

Activer n'est pas sélectionner
donc la feuille 'Test' serait à sélectionner avant de chercher des cellules dedans

Message édité par: jacques87, à: 06/01/2006 17:55

 

[Lost]

Merci à toi !!! ça fonctionne parfaitement avec WorkSheets, merci pour les explications également