Affecter une valeur à un mot avec VBA
Résolu/Fermé
Nate
-
Modifié par Nate le 28/09/2011 à 11:05
eriiic Messages postés 24511 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 28 sept. 2011 à 23:12
eriiic Messages postés 24511 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 28 sept. 2011 à 23:12
A voir également:
- Affecter une valeur à un mot avec VBA
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Mot de passe administrateur freebox ✓ - Forum Freebox
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Erreur 1004 vba ✓ - Forum VB / VBA
4 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
28 sept. 2011 à 11:50
28 sept. 2011 à 11:50
Bonjour
Excel, Access, Word, Power-point ?
version >=2007, <2007 ?
Excel, Access, Word, Power-point ?
version >=2007, <2007 ?
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
28 sept. 2011 à 15:10
28 sept. 2011 à 15:10
Regarde ce code :
Sub Test()
Dim bonjour As Byte
Dim salut As Byte
bonjour = 1
salut = 0
MsgBox "bonjour = " & bonjour & vbCr & _
"salut = " & salut
End Sub
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
28 sept. 2011 à 17:30
28 sept. 2011 à 17:30
Posée comme ceci le question amène un réponse très différente :
Sub Test()
Dim cel As Range 'cellule à contrôler
For Each cel In ActiveSheet.Range("A1:A10").Cells
If cel.Value = "bonjour" Then
cel.Offset(0, 1).Value = 1
ElseIf cel.Value = "salut" Then
cel.Offset(0, 1).Value = 0
End If
Next cel
End Sub
eriiic
Messages postés
24511
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
7 166
Modifié par eriiic le 28/09/2011 à 23:42
Modifié par eriiic le 28/09/2011 à 23:42
Bonsoir tout le monde,
ou par formule :
=NB.SI(A1:A10;"bonjour")
compte le nombre de fois où est inscrit "bonjour" dans A1:A10
eric
edit: désolé, je n'avais pas vu VBA dans le titre
si le but est de les compter dans une plage tu peux aussi faire ainsi :
n = Application.CountIf([A1:A10], "bonjour")
ou par formule :
=NB.SI(A1:A10;"bonjour")
compte le nombre de fois où est inscrit "bonjour" dans A1:A10
eric
edit: désolé, je n'avais pas vu VBA dans le titre
si le but est de les compter dans une plage tu peux aussi faire ainsi :
n = Application.CountIf([A1:A10], "bonjour")
28 sept. 2011 à 14:02