Inputbox et somme
Résolu
Bonjour,
J'ai 2 questions :
1 : J'ai un Private Sub CommandButton2 sur ma Feuil1 qui doit ouvrir un Inputbox pour saisir le nom d'un groupe de formation.
Lorsque je clique OK, j'essaie de copier la valeur du Nom de la formation que j'ai saisi dans mon Inputbox dans la cellule B8 de ma feuille1.
Alors, voici mon code pour ça :
Private Sub CommandButton2_Click()
Dim Nom as String
Nom = Inputbox("Entrer le nom de la Formation", "Nom de la Formation")
Cells("B8") = Nom
End sub
C'est mettre le nom de la formation dans ma cellule qui ne marche pas...
2 : Toujours pour mon même projet : Sur ma Feuil1, dans les cellules de B50 à B70, j'ai la liste de mes élèves qui sont rentrés via un userform.
Sur ma cellule B40, je veux nombre total de mes élèves...
J'ai trouvé ça comme code, mais ça ne marche pas... Je n'ai pas compris comment coder une somme... :
Private Sub Initialize()
'Pour saisir le nombre total des apprenants de la cohorte
Cells(40, 2).Value = CountA(Feuil1.Range("B50;B69"))
End Sub
Ben ca marche pas... et je suis bien embêté...
Merci d'avance pour l'aide
Y.
J'ai 2 questions :
1 : J'ai un Private Sub CommandButton2 sur ma Feuil1 qui doit ouvrir un Inputbox pour saisir le nom d'un groupe de formation.
Lorsque je clique OK, j'essaie de copier la valeur du Nom de la formation que j'ai saisi dans mon Inputbox dans la cellule B8 de ma feuille1.
Alors, voici mon code pour ça :
Private Sub CommandButton2_Click()
Dim Nom as String
Nom = Inputbox("Entrer le nom de la Formation", "Nom de la Formation")
Cells("B8") = Nom
End sub
C'est mettre le nom de la formation dans ma cellule qui ne marche pas...
2 : Toujours pour mon même projet : Sur ma Feuil1, dans les cellules de B50 à B70, j'ai la liste de mes élèves qui sont rentrés via un userform.
Sur ma cellule B40, je veux nombre total de mes élèves...
J'ai trouvé ça comme code, mais ça ne marche pas... Je n'ai pas compris comment coder une somme... :
Private Sub Initialize()
'Pour saisir le nombre total des apprenants de la cohorte
Cells(40, 2).Value = CountA(Feuil1.Range("B50;B69"))
End Sub
Ben ca marche pas... et je suis bien embêté...
Merci d'avance pour l'aide
Y.
4 réponses
-
ContributeurExact! excuse moi
Application.CountA(Feuil1.Range("B50:B69"))
-
ContributeurBonjour
Range("B8") = Nom
au lieu de cells("B8")
(syntaxe cells= cells(8,"B") )
Cells(40, 2) = CountA(Feuil1.Range("B50:B69"))
au lieu de
Cells(40, 2).Value = CountA(Feuil1.Range("B50;B69"))
-
Salut Michel,
Merci pour ton aide.
D'abord, c'est parfait pour la première question, ca marche 100%.
Par contre, le deuxieme code ne marche toujours pas.
Le CountA est en Erreur de Compilation 'Sub ou fonction' non définie...
J'en suis là :
Private Sub Initialize()
'Pour saisir le nombre total des apprenants de la cohorte
Cells(40, 2) = CountA(Feuil1.Range("B50:B69"))
End Sub
Et ça bloque... -
et ben voilà... ca marche parfaitement...
Merci Michel
