Discussion :

[allondin]

Bonsoir,
Je suppose que mon problème a déjà été évoqué de nombreuses fois, cependant je ne sais pas comment orienter ma recherche alors je me permets de vous le soumettre.
J'ai écrit ce code pour la feuille 1

Code :

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

1
2
3
Sub Valider()
Application.Cells(2, 1).Value = "1"
End Sub

Mon problème est que j'ai plusieurs feuilles dans lesquelles je souhaiterais faire appel à cette macro mais pour la feuille 2 écrire:

Code :

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

Application.Cells(3, 1).Value = "1"

pour la feuille 3

Code :

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

Application.Cells(4, 1).Value = "1"

etc...
Dois je faire une macro indépendante pour chaque feuilles ou comment écrire un seul code permettant de renseigner chaque onglets ?
Suis je clair ????...
Merci à tous
Didier

[Invité]

Bonjour,

Essayez ce code à placer dans un module standard :

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
 
Sub Valider()
    With ActiveSheet
         Select Case .Name
                Case "Feuil1"
                     .Cells(2, 1) = "'1"
                Case "Feuil2"
                     .Cells(3, 1) = "'1"
                Case "Feuil3"
                     .Cells(4, 1) = "'1"
                Case "Feuil4"
                     .Cells(5, 1) = "'1"
         End Select
    End With
End Sub

Remarque : Si c'est bien une valeur alphanumérique que vous voulez inscrire, notez la syntaxe utilisée, sinon les "" et ' sont inutiles.

[Menhir]

De saines lectures :
https://msdn.microsoft.com/fr-fr/lib.../gg278665.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff196974.aspx

Une autre solution si tes feuilles s'appellent effectivement "Feuille 1", "Feuille 2", etc., c'est de récupérer le numéro avec un Mid() et d'utiliser la fonction Choose() pour renvoyer le numéro de ligne souhaité.
https://msdn.microsoft.com/fr-fr/lib.../gg264716.aspx
https://msdn.microsoft.com/fr-fr/lib.../gg251677.aspx

Et si le numéro de ligne est le numéro de feuille + 1, tu peux même te passer le la fonction Choose en te contentant d'une opération.