Discussion :

[sisko74]

Bonjour,

J'essaie d’arrêter une boucle sur une colonne avec un "Total"

3030

3131

3232

Total

J'arrive à l’arrêter sur "Total" mais pas sur le dernier chiffre avant "Total"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
For i = 1 To 20
 
................................... 
 
 If d = "Total" Then
  Exit For
 End If

Pouvez-vous m'aiguiller ?

[clementmarcotte]

Bonjour,

Tu cherches quelque chose qui égale le mot (texte, string) total et tu obtiens quelque chose qui est le mot total. Tout est normal, il fait exactement ce que tu lui as dis de faire.

En supposant que j'ai compris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
total = 3232
for i = 1 To 20
 
................................... 
 
     If d =  total Then
         Exit For
     End If
next

[sisko74]

Mon 3232 c'est un exemple, la valeur change et je voudrais la valeur au dessus de "Total"

[geogeo70]

hello

Je pense que la structure d'itération employée n'est pas la bonne, lorsque l'on s'arrête en cours de parcours il vaut mieux utiliser

"Tant que <condition vraie>

traitement

"Fin du tant que"
Qui se traduit en anglais "While <condition> ................... Wend" (end of while)

je vous propose ce 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
 
Sub essai()
 
Dim ligne As Integer, valeur As Integer
 
'ligne départ par exemple 1 colonne par exemple 1
colonne = 1
ligne = 1
While Cells(ligne, colonne) <> "Total"
    ligne = ligne + 1
Wend
 
'sortie du n° de ligne de "total"
'la valeur au dessus de total est donc en ligne -1
valeur = Cells(ligne - 1, colonne).Value
 
 
End Sub

Bonne soirée

geogeo

[clementmarcotte]