Menu

Inputbox et somme [Résolu/Fermé]

freeycap 85 Messages postés lundi 27 octobre 2014Date d'inscription 2 mai 2017 Dernière intervention - 23 nov. 2016 à 05:28 - Dernière réponse : freeycap 85 Messages postés lundi 27 octobre 2014Date d'inscription 2 mai 2017 Dernière intervention
- 23 nov. 2016 à 18:00
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.
Afficher la suite 

4 réponses

Meilleure réponse
michel_m 15348 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 18 juin 2018 Dernière intervention - 23 nov. 2016 à 17:01
1
Merci
Exact! excuse moi

Application.CountA(Feuil1.Range("B50:B69"))

Merci michel_m 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 24570 internautes ce mois-ci

michel_m 15348 Messages postés lundi 12 septembre 2005Date d'inscriptionContributeurStatut 18 juin 2018 Dernière intervention - 23 nov. 2016 à 08:16
0
Merci
Bonjour
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"))

freeycap 85 Messages postés lundi 27 octobre 2014Date d'inscription 2 mai 2017 Dernière intervention - 23 nov. 2016 à 16:53
0
Merci
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...
freeycap 85 Messages postés lundi 27 octobre 2014Date d'inscription 2 mai 2017 Dernière intervention - 23 nov. 2016 à 18:00
0
Merci
et ben voilà... ca marche parfaitement...

Merci Michel