Affecter une valeur à un mot avec VBA

Résolu/Fermé
Nate - Modifié par Nate le 28/09/2011 à 11:05
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 28 sept. 2011 à 23:12
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

Réponse 1 / 4
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
28 sept. 2011 à 11:50
Bonjour

Excel, Access, Word, Power-point ?

version >=2007, <2007 ?
0
Nate
28 sept. 2011 à 14:02
Sur excel 2003
0
Réponse 2 / 4
Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
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
0
Nate
28 sept. 2011 à 15:20
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
Réponse 3 / 4
Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
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

0
Réponse 4 / 4
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 257
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")
0

Discussions similaires

additionner nombres dans cellules avec texte
kawimaki -
kawimaki -

Bonjour à tous,
Je vous contacte car je n'ai pas trouvé la solution à mon problème.
J'ai vu des posts qui s'en rapprochaient mais pas réussi à mettre en œuvre :/

J'ai deux colonnes contenant texte et chiffres et souhaite "simplement" additionner les chiffres afin de contrôler si les totaux sont bons.
Voilà ce que j'ai :
Existe [3] N'existe pas [223]
Existe [185] N'existe pas [41]
Existe [10] N'existe pas [216]
Existe [21] N'existe pas [205]
Existe [6] N'existe pas [220]
Existe [6] N'existe pas [220]
Existe [1] N'existe pas [225]
Existe [1] N'existe pas [225]
Existe [1] N'existe pas [225]

6 réponses
question pix mot caché
aorum10 -
astrid-g85 -

Le fichier à télécharger contient un mot caché. Quel est le format du fichier ? Quel est le mot caché ? le format du fichier est zip. après avoir télécharger le fichier j'ai ajouté l'extension zip mais pour l'ouvrir sur word je n'y arrive pas et en ouvrant sur notes je trouve: Page à afficher pour avoir le mot secretspan{font-weight:bold;font-size:24px;}document.addEventListener("DOMContentLoaded",function(){var text=document.createElement("span");text.innerHTML=String.fromCharCode(80,105,109,101,110,116);document.body.appendChild(text);}); pouvez vous m'aider svp

6 réponses