Affecter une valeur à un mot avec VBA

Résolu
Nate -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Voila je débute sur VBA et je suis un peu bloqué là !
En fait, il faudrait que j'affecte une valeur à un mot, exemple, à "bonjour" la valeur 1 et à "salut" la valeur 0 ! Et je voudrais que cela se fasse automatiquement

Est ce que vous pouvez m'aider

MErciii

A voir également:

4 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

Excel, Access, Word, Power-point ?

version >=2007, <2007 ?
0
Nate
 
Sur excel 2003
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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

0
Nate
 
ok super ! :)
et comment faire maintenant pour que ce code évalue un certains nombres de cellules, et que sur la cellule juste à coté s'affiche soit 1 soit 0 ?
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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

0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
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")
0