Discussion :

[Gitano]

Bonjour à tous,

J'ai écrit quelques macros pour de la gestion de comptes financiers, qui marchent très bien et ont été éprouvées . J'ai décidé de regrouper ces différentes fonctions sur une feuille de mon document excel, et de créer des boutons qui appellent ces différentes macros. Problème: lorsque j'édite le code d'un bouton et que j'y colle ma macro, le programma se comporte différemment. Voici l'extrait du code qui pose problème:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton1_Click()
 
 
Worksheets(3).Select
 
j = 3
While Cells(j, 1) <> ""
 
...
j = j + 1
 
Wend
...

Lorsque j'exécute le bouton (situé en Feuil1), la macro plante au moment du test "While Cells(j, 1) <> "" ". En effet, il va chercher la Cells(j,1) de la feuil1 alors que je lui ai explicitement demandé de sélectionner la 3, comme s'il était bloqué sur la Feuil1.
Si j'exécute la macro en dehors du bouton, Cells(j,1) correspond bien au contenu de la cellule(j,1) de la Feuil3. N'est-il pas possible de travailler sur différentes feuilles avec un bouton?...

Je travaille sous Excel 2003 comme précisé dans le titre. Si vous avez besoin de précisions n'hésitez pas à me demander, et merci pour votre aide!

[Many31]

Salut,

a la place de Cells(j,1) met Worksheets(3).cells(j,1)

[Gitano]

J'y avais pensé, mais comme mon code est assez long, dois-je le rajouter à chaque appel de cellule? N'y a-t-il pas un moyen de rester sur la feuille 3 et de travailler dessus?

[Krovax]

Si ton code est dans le code de la feuille 1 oui tu dois préciser (enfin j'ai jamais trouver de solution alternative)

Le plus simple est d'utiliser un with comme cela tu as juste a rajouter un . devant les range et les cells

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
with Worksheets(3)
 
j = 3
While .Cells(j, 1) <> ""
 
...
j = j + 1
 
Wend
...
end with

[Many31]

Désolé de remettre une couche

Pour simplifier mon code des fois j'utilise une variable Worksheet pour nommer une feuille et l'appeler plus facilement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub Modifier_Fichier(ChFichier, Nom_Feuille, Nom_Feuille2)
Dim ActF As Worksheet
Dim Fichier As Workbook
Dim DirF As Worksheet
 
Set ActF = ThisWorkbook.Sheets(Nom_Feuille)
Set Fichier = Workbooks.Open(ChFichier)
Set DirF = Fichier.Sheets(Nom_Feuille2)
 
 
DirF.Cells(1, 2) = ActF.Cells(2,2)
 
Fichier.Save
Fichier.Close
 
End Sub