Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Select case pour mettre titre sur feuilles

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

cathodique

XLDnaute Barbatruc
Bonsoir,

Je voudrais compléter la présentation de 3 feuilles en ajoutant des titres. Ces 3 feuilles A, B et C sont obtenues par macros, leurs nombres de lignes et de colonnes sont différents. la feuille "A" a un titre qui diffère un peu des feuilles B et C dont le titre est le même, c'est juste la position de celui-ci qui diffère. J'ai commencé le code, mais je bloque pour faire un select case que je n'ai jamais utilisé.

Code: 
Sub Titre_CMDP()
Dim derlig As Long, dercol As Long
Dim Tp
Dim Ind As Byte

Application.ScreenUpdating = False
 
Tp = Array("A", "B", "C")
 
For Ind = 0 To 2
    
    With Worksheets(Tp(Ind))
    dercol = .Cells(4, .Columns.Count).End(xlToLeft).Column
    derlig = .Cells(Application.Rows.Count, 1).End(xlUp).Row

'select case
'pour feuilleA
Range("A1") = "Région"
Range("B1") = "RAPPORT CONCERNANT A"
Cells(1, dercol + 6) = Sheets("données").Range("A1")'date
Cells(1, dercol + 5) = "Date:"
''''''''''''''''''''''''''''''''''

'pour feuilles B et C
Range("A1") = "Région"
Range("B1") = "RAPPORT CONCERNANT BC"
Cells(1, dercol) = Sheets("données").Range("A1") 'date
Cells(1, dercol - 1) = "Date:"

    End With
    
Next Ind
        
End Sub

Je vous remercie pour votre aide. Bonne soirée.

Cordialement,
 

Pièces jointes

Trier par date Trier par votes
Re : Select case pour mettre titre sur feuilles

bonsoir à tous,

Une autre solution, (pour respecter le choix de select case),qui permet de bénéficier du Worksheets(Tp(Ind)).et qui évite les "select".
Attention à bien mettre . (point) devant chaque range, cells ..., sinon tout se passera sur la feuille active et non sur la feuille prévue:

Code: 
   Select Case Ind

        Case 0 'pour feuilleA
            .Range("A1") = "Région"
            .Range("B1") = "RAPPORT CONCERNANT A"
            .Cells(1, dercol + 6) = Sheets("données").Range("A1")
            .Cells(1, dercol + 5) = "Date:"

        Case 1, 2   'pour feuilles B et C
            .Range("A1") = "Région"
            .Range("B1") = "RAPPORT CONCERNANT BC"
            .Cells(1, dercol) = Sheets("données").Range("A1")
            .Cells(1, dercol - 1) = "Date:"

    End Select
Bonne suite
 
Vote positif 0 Vote négatif
Re : Select case pour mettre titre sur feuilles

Bonjour cathodique, Jack2, Paf,

Si c'est pour apprendre à se servir de Select Case pourquoi pas.

Mais ici la fonction IIf est nettement plus simple :

Code: 
Sub Titre_CMDP()
Dim Tp, Ind As Byte, dercol%
Tp = Array("A", "B", "C")
For Ind = 0 To 2
  With Sheets(Tp(Ind))
     .[A1] = "Région"
    .[B1] = "RAPPORT CONCERNANT " & IIf(Ind, "BC", "A")
    dercol = .Cells(4, .Columns.Count).End(xlToLeft).Column
    .Cells(1, dercol + IIf(Ind, -1, 5)) = "Date:"
    .Cells(1, dercol + IIf(Ind, 0, 6)) = Sheets("données").[A1]
  End With
Next
End Sub
ou encore plus simple :

Code: 
Sub Titre_CMDP1()
Dim Tp, Ind As Byte, dercol%
Tp = Array("A", "B", "C")
For Ind = 0 To 2
  With Sheets(Tp(Ind))
    .[A1] = "Région"
    .[B1] = "RAPPORT CONCERNANT " & IIf(Ind, "BC", "A")
    dercol = .UsedRange.Columns.Count
    .Cells(1, dercol - 1) = "Date:"
    .Cells(1, dercol) = Sheets("données").[A1]
  End With
Next
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Select case pour mettre titre sur feuilles

Bonjour Job75,

Je te remercie pour ton aide. En effet, mon objectif était d'apprendre à me servir de select case.

Je te remercie aussi pour ton code qui pourrait toujours me servir. j'utiliserai le code avec le select case car j'ai simplifié mon fichier, le titres sont en fait différents.

Cordialement,
 
Vote positif 0 Vote négatif
Re : Select case pour mettre titre sur feuilles

Bonjour cathodique, Paf, job75 et le forum

Merci de rappeler qu'il faut éviter les doublons Worksheets(Tp(Ind) puis Select (ça rentre doucement...).

Pour job75, je ne connaissais pas la fonction IIF qui a l'air bien pratique. Par contre, je comprends bien le test sur les quelques exemples que j'ai cherché (comme celui de Microsoft " CheckIt"). Dans le cas présent, cela fonctionne pour :
Code: 
For Ind = 0 To 2
mais pas pour :
Code: 
For Ind = 1 to 3
où il n'y a pas de valeur Vrai

Si tu as 5 min pour m'expliquer en quoi le 0 sert de test. Merci

Bon dimanche à tous
A+ JJM
 
Vote positif 0 Vote négatif
Re : Select case pour mettre titre sur feuilles

salut

.Used... peut poser problème.
Avec Select Case et des changements feuille par feuille (surtout avec des cellules fusionnées)

Code: 
Sub Titre_CMDP()
  Dim derlig As Long, dercol As Long
  Dim Ind As Byte
  Application.ScreenUpdating = False
  For Ind = 0 To 2
    Sheets(Array("A", "B", "C")(Ind)).Select
    Select Case Ind
      Case 0
        [A1] = "AAAA": [B1] = "aaaaaa": dercol = 10
      Case 1
        [A1] = "BBBB": [B1] = "bbbbb": dercol = 13
      Case Else
        [A1] = "CCCC": [B1] = "ccc": dercol = 11
    End Select
    Cells(1, dercol) = Sheets("données").Range("A1")
    Cells(1, dercol - 1) = "Date:"
  Next
End Sub
à quoi je préfère (Array pour Array)
Code: 
Sub Titre_CMDP2()
  Dim dercol As Long
  Dim Ind As Byte
  Application.ScreenUpdating = False
  For Ind = 0 To 2
    With Sheets(Array("A", "B", "C")(Ind))
      .[A1] = Array("AAAA", "BBBB", "CCCC")(Ind)
      .[B1] = Array("aaaa", "bbbb", "cccc")(Ind)
      dercol = Array(10, 13, 11)(Ind)
      .Cells(1, dercol) = Sheets("données").Range("A1")
      .Cells(1, dercol - 1) = "Date:"
    End With
  Next
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Question Question
XL 2010 Recopie de la date du jour jusqu'à la dernière ligne non vide
Réponses
5
Affichages
181
philmaure
P
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
268
LaurentVasseur
L
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
253
cathodique
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
744
un internaute
U
D
  • Question Question
XL 2019 Boucle For Next and select case
Réponses
2
Affichages
258
dadaze
D
Y
  • Résolu(e)
Microsoft 365 Countifs et dates
2
Réponses
23
Affichages
774
youguybass
Y
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
912
TooFatBoy
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
  • Question Question
XL 2016 Boucler sur les feuilles d'un classeur
Réponses
7
Affichages
454
KTM
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
456
un internaute
U
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
786
lynyrd
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
343
job75
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
586
sylvanu
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
1 K
TooFatBoy
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
445
Lau01150
L
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
737
Piment
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…