Inputbox et somme
Résolu
freeycap
Messages postés
87
Date d'inscription
Statut
Membre
Dernière intervention
-
freeycap Messages postés 87 Date d'inscription Statut Membre Dernière intervention -
freeycap Messages postés 87 Date d'inscription Statut Membre Dernière intervention -
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.
A voir également:
- Inputbox et somme
- Formule somme excel colonne - Guide
- Somme si couleur - Guide
- Somme en anglais excel - Guide
- Somme si ens date comprise entre ✓ - Forum Excel
- Erreur de somme de contrôle - Forum Logiciels
4 réponses
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"))
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...
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...
