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 : Sélectionner tout - Visualiser dans une fenêtre à part
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