Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

Debutant en VBA j'ai un pb avec select case

Dernière réponse le 28 jan 2005 à 19:34:50 jeanpierreco, le 28 jan 2005 à 18:29:25

Signaler ce message aux modérateurs

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

Meilleures réponses pour « debutant en VBA j'ai un pb avec select case » dans :

VBA select case porbleme Voir

[SQL]Utilisation de CASE ou DECODE Voir

Programmation avec select case Voir

[VBA] Ecrire/lire une série de TextBox en une seule Sub VoirEn VBA, les TextBox ne disposent pas d'un index et dans la plupart des cas, pour entrer du texte, on procède par.. TextBox1.Text = Cells(2,1).value TextBox2.Text = Cells(2,2).value TextBox3.Text = Cells(2,3).value Et l'inverse pour lire les...

Select case (Résolu) Voir

Select case en asp Voir

Problème VBA : select case avec objet Voir

VBScript - Les structures conditionnelles VoirQu'est-ce qu'une structure conditionnelle ? On appelle structure conditionnelle les instructions qui permettent de tester si une condition est vraie ou non, c'est-à-dire si la valeur de son expression vaut 0 ou 1 (VBScript associe le mot clé true à...

Bonjour, Il ne te manque que les ":" (2 points) Private Sub Lire la suite

Posez votre question Répondre

arteil, le 28 jan 2005 à 18:38:44

Répondre à arteil

Lupin.Arsene, le 28 jan 2005 à 19:34:50

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
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Répondre à Lupin.Arsene

Posez votre question Répondre