Affecter une valeur à un mot avec VBA Résolu

Question

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 

Configuration: Windows XP / Safari 535.1

michel_m · Answer

Bonjour

Excel, Access, Word, Power-point ?

version >=2007, <2007 ?

Patrice33740 · Answer

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 · Answer

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 · Answer

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")

Affecter une valeur à un mot avec VBA

4 réponses

Discussions similaires

Newsletters