Debutant en VBA j'ai un pb avec select case
jeanpierreco
-
Loulou -
Loulou -
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
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
A voir également:
- Debutant en VBA j'ai un pb avec select case
- Logiciel de programmation pour débutant - Guide
- Logiciel montage vidéo débutant - Guide
- Case à cocher word ✓ - Forum Word
- Incompatibilité de type vba ✓ - Forum Programmation
- Aller à la ligne dans une case excel - Guide
3 réponses
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
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
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?
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?