debutant en VBA j'ai un pb avec select case Fermé

Question

Bonjour,
dans la procédure suivante où la case range G1 située sur la feuille nommée "feuille de paie "prend les valeurs de janvier à décembre, je voudrais avec une stucture select case copier la valeur de le cellule D1 (valeur numérique) de la feuille nommée "données" sur la cellule H 36 de la feuille nommée "feuille de paie" et ainsi de suite pour les autres mois. j'ai commencé pour les 2 premiers mois mais rien ne fonctionne.Etant donné que c'est le première fois que j'utilise select case ,j'ai des difficultés pour mettre en route la procédure. Est ce que je peux le faire à l'aide d'une macro au lieu de lancer la procédure à l'activation de la feuille

Private Sub Worksheet_Activate()
Select Case Range("G1")
Case "A"
[données!D1] = [feuilledepaie!H36]

Case "B"
[données!D2] = [feuilledepaie!H36]
End Select
End Sub

Merci

Utilisateur anonyme · Answer

Bonjour,

Il ne te manque que les ":" (2 points)

Private Sub Worksheet_Activate()
..Select Case Range("G1")
....Case "A" : [données!D1] = [feuilledepaie!H36]
....Case "B" : [données!D2] = [feuilledepaie!H36]
..End Select
End Sub

Lupin

Loulou · Answer

Bonsoir,
je souhaiterai utiliser la macro select case mais voici mon pb:

sub test ()
dim cellule as interger
do while cellule=""
select case cellule
         case "10 Paris"
         selection.copy
         activecell.offset(1,0)
         activesheet.paste
              case "Sud ouest"
              activecell.offset(1,0)
              activesheet.paste
         end select
loop
end sub

Ici  mon test ne marche pas car il n'arrive pas a reconnaitre les conditions (que ce soit avec ou sans les guillemets) inscrit.
Il passe directement end select. Comment faire pour qu'il reconnait ma condition?

Debutant en VBA j'ai un pb avec select case

3 réponses

Discussions similaires