[VBA Excel]Probleme de condition

Version imprimable

Bonjour,,

J'ai un soucis de condition je dois réaliser une macro qui va lire toutes les cellules d'une colonne et selon le 1er mot se trouvant dans cellule et marquera un texte dans la cellule en face

Exemple

Vitesse mini bras avant :14 cellule B5
ma macro lis le 1er mot qui est vitesse dans la cellule C5 j'ecris tr/min

Température four:54 cellule B6
ma macro lis le 1er mot qui est température dans la cellule c6 j'ecris °c

je voudrais le faire pour le mot quantité,vitesse,température
et si ma macro ne lis aucun de ces trois mots j'affiche / dans la cellule d'en face

Début de mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Sub valeurs() Dim i As Integer For i = 2 To 58 If Cells(i, 3) = "température" Then Cells(i, 4) = "°c" Or If Cells(i, 3) = "vitesse" Then Cells(i, 4) = "tr/min" Or If Cells(i, 3) = "quantité" Then Cells(i, 4) = "kg" Or If Cells(i, 3) = "durée" Then Cells(i, 4) = "min" Or If Cells(i, 3) = "vitesse" Then Cells(i, 4) = "tr/min" elseif cells(i, 4)="/" End If Next i End Sub
je doute que ce code marche car mon ecriture doit etre fausse
mais tous coups de main sur cette idée serait la bienvenue

je vous en remercie d'avance

Il faudrait plutot utiliser select case

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub valeurs()
 
Dim i As Integer
 
For i = 2 To 58
 
Select case Cells(i,3).value
    case "température"
          Cells(i, 4).value = "°c"
    case "vitesse" Then
          Cells(i, 4).value = "tr/min"
    case else
          Cells(i,4).value = "/"
Select Case
 
Next i
 
End Sub

Merci pour ton aide
J'ai retravailler ton code il y avait des erreurs mais rien de grave ca ma permit d'avancer dans ma macro et de comprendre la fonction select case
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub valeurs() Dim i As Integer For i = 2 To 58 Select Case Cells(i, 3).Value Case "température" Cells(i, 4).Value = "°c" Case "vitesse" Cells(i, 4).Value = "tr/min" Case "durée" Cells(i, 4).Value = "min" Case "quantité" Cells(i, 4).Value = "kg" Case Else Cells(i, 4).Value = "/" End Select Next i End Sub
par contre le soucis que j'ai comment prendre le 1er mot de ma cellule

car il m'arrive que dans ma cellule j'ai

"température du four"
et vu qu'il lit toutes la cellule sil y a un autre mot en plus que température il met pas de signe

comment je pourrais modifier la condition pour ciblé que le 1er mot
toutes idées est la bienvenue comme toujours

10/12/2007, 11h33
Thomas69

j'ai remarque qu'on recherchais une valeurs donc une chose bien precise
existe t'il une fonction qui permet de cherche une chose dans une expression non precise

en gros au lieu de cherche le mot température et seulement température
je recherche le mot température dans une expression quelquonque

tu peux faire quelque chose comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub valeurs()
 
Dim i As Integer
Dim t as string
Dim l as long 
 
For i = 2 To 58
 
l = InStr(1, Cells(i, 3).Value, " ")
If l = 0 Then l = Len(Cells(i, 3).Value)
t = Left$(Cells(i, 3).Value, l) 
 
Select Case t
    Case "température"
          Cells(i, 4).Value = "°c"
    Case "vitesse"
          Cells(i, 4).Value = "tr/min"
    Case "durée"
          Cells(i, 4).Value = "min"
    Case "quantité"
          Cells(i, 4).Value = "kg"
    Case Else
          Cells(i, 4).Value = "/"
 
End Select
Next i
 
 
End Sub

10/12/2007, 11h47
Thomas69

Keihilin j'ai appliquer ton code et ce ne prend toujours pas en compte le mot qui se trouve dans expression

au pire vu que j'ai que 25 expressions differentes au pire je les notes tous et puis voila
mais bon j'aurais bien voulus une solution plus simple et plus joli
10/12/2007, 11h52
Keihilin

J'ai un peu pondu ça rapidement, mais ce code est censé récupérer le 1er mot (en assumant qu'un espace sépare les mots) de la cellule.

Si le mot que tu cherches n'est pas forcément le 1er, le problème est différent.
10/12/2007, 11h56
Thomas69

le mot que je cherche est bien le premier et il y a un bien un espace apres le premier mot
10/12/2007, 11h59
Keihilin

pose un point d'arrêt sur le select case et regarde la valeur de t à chaque boucle. Tu verras sans doute ce qui ne marche pas.

avec spit ca devrait faire l'affaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim i As Integer
Dim str() As String
 
For i = 2 To 58
 
str = Split(Cells(i, 3).Value, " ")
 
Select Case str(0)
    Case "température"
          Cells(i, 4).Value = "°c"
    Case "vitesse"
          Cells(i, 4).Value = "tr/min"
    Case Else
          Cells(i, 4).Value = "/"
End Select
 
Next i

10/12/2007, 12h03
Keihilin

...trop longtemps que je fais plus de VBA moi...J'étais vraiment pas sur que Split existait :oops:
10/12/2007, 13h38
Thomas69

Merci ça marche
par contre un defaut qui n'est pas génant pour moi mais peut etre certain
c'est si la case est vide la macro s'arrete
et met comme defaut "l'indice n'appartient pas a la selection"
sur la ligne "Select Case str(0)"

Enfin moi ca me gene pas vu que je n'est pas de case vide
10/12/2007, 13h44
jfontaine
Dans ce cas il suffit de tester le nombre d'indice de la variable
Code:

1 2 3 4 5 6 7 if UBound(str)>=0 then select case end select end if
10/12/2007, 14h44
Thomas69

parfait ca marche
je te remercie