Comment écrire une macro n'affectant que la deuxième page excel?
Résolu
louismdp
Messages postés
7
Statut
Membre
-
louismdp Messages postés 7 Statut Membre -
louismdp Messages postés 7 Statut Membre -
Bonjour,
C'est ma première expérience sur ce forum!
Savez-vous quelle ligne de code ajouter à une macro sur vba (modules) pour que ce module n'affecte que la deuxième page du classeur excel?
Est-ce que quelqu'un peut m'aider?
Merci d'avance pour vos réponses!!
Louis
C'est ma première expérience sur ce forum!
Savez-vous quelle ligne de code ajouter à une macro sur vba (modules) pour que ce module n'affecte que la deuxième page du classeur excel?
Est-ce que quelqu'un peut m'aider?
Merci d'avance pour vos réponses!!
Louis
A voir également:
- Comment écrire une macro n'affectant que la deuxième page excel?
- Comment supprimer une page sur word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment imprimer un tableau excel sur une seule page - Guide
- Liste déroulante excel - Guide
- Comment calculer la moyenne sur excel - Guide
2 réponses
Tu as l'icone <> pour mettre en forme ton code.
Plusieurs possibilités. Entre autres :
1) la mettre dans le module de la feuille.
2) la laisser dans le module standard et désigner la feuille :
3) idem en utilisant with... end with pour ne pas répéter son nom :
Ne pas oublier le . devant Cells sinon tu t'adresseras à la feuille active et non à celle du with
eric
Plusieurs possibilités. Entre autres :
1) la mettre dans le module de la feuille.
2) la laisser dans le module standard et désigner la feuille :
Sub aleatoire()
For i = 2 To 54 Step 1
Cells(i, 4) = Rnd()
Next
End Sub
3) idem en utilisant with... end with pour ne pas répéter son nom :
Sub strategie_aleatoire()
For i = 2 To 54 Step 1
With Sheets("Feuil2")
If .Cells(i, 4) < 0.5 Then
.Cells(i, 5) = ("acheter")
Else
.Cells(i, 5) = ("vendre")
End If
End With
Next
End Sub
Ne pas oublier le . devant Cells sinon tu t'adresseras à la feuille active et non à celle du with
eric
Alors voilà mon code:
Sub aleatoire()
For i = 2 To 54 Step 1
Cells(i, 4) = Rnd()
Next
End Sub
Sub strategie_aleatoire()
For i = 2 To 54 Step 1
If Cells(i, 4) < 0.5 Then
Cells(i, 5) = ("acheter")
Else: Cells(i, 5) = ("vendre")
End If
Next
End Sub
Je voudrais que ces 2 macros s'affichent uniquement sur la page 2 du classeur...
Merci beaucoup :D