Discussion :

[valérieF]

Bonjour,


Je n'arrive pas à voir quel est le soucis dans mon code mais le programme ne passe qu'une seule fois dans le for et je ne sais pas pourquoi il ne continue pas tous les Lignes de 7 à 30, sachant qu'il est sencé s'arreter à 28....

Voyez vous quel est le pb?

merci

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub testcopiedonneeestcdW2()
'
'
Dim PremiereLigne As Integer
Dim DerniereLigne As Integer
Dim Ligne As Integer
 
PremiereLigne = 7
DerniereLigne = 7
 
Sheets("TCD_W2").Select
 
Var = Range("A18").Value
MsgBox ("test=" & Var)
 
 
    For Ligne = PremiereLigne To 30
 
MsgBox ("Ligne=" & Ligne)
 
        If Cells(Ligne, 1).Value = "Total général" Then DerniereLigne = Ligne - 1
 
           Exit For
 
    Next Ligne
 
MsgBox ("PremiereLigne =" & PremiereLigne)
MsgBox ("DerniereLigne =" & DerniereLigne)
 
Range(Cells(PremiereLigne, 1), Cells(DerniereLigne, 2)).Select
 
Selection.Copy
 
Sheets("INDEX").Select
 
Range(I8).Select
 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
End Sub

[Marc-L]

Bonjour, bonjour !

A quoi peut bien servir la ligne n°23 à part de sortir de la boucle dès la première ligne ?‼

Vérifier en mode pas pas via la touche F8 ou en plaçant un point d'arrêt …

Consulter dans l'aide VBA le bloc d'instructions If … Then … End If …

SI j'ai bien compris le besoin, environ cinq lignes de code sont nécessaires !

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[valérieF]

Le but est de sortir du traitement For lorsque la cellule traitée contient "Total général"et de déterminer la ligne qui est juste au dessus de "Total général".

Dans mon code initial j'avais End If après le Exit For mais cela bugger sur le End If....

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
Dim PremiereLigne As Integer
Dim DerniereLigne As Integer
Dim Ligne As Integer
 
PremiereLigne = 7
DerniereLigne = 7
 
Sheets("TCD_W2").Select
 
 
    For Ligne = PremiereLigne To 30
 
MsgBox ("Ligne=" & Ligne)
 
        If Cells(Ligne, 1).Value = "Total général" Then DerniereLigne = Ligne - 1
 
           Exit For
        End If
    Next Ligne

[patricktoulon]

ton instructruction apres "then" est mal placée
soit tu fait ca

Code :

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

1
2
3
4
5
6
7
 For Ligne = PremiereLigne To 30
 msgBox ("Ligne=" & Ligne)
         If Cells(Ligne, 1).Value = "Total général" Then 
         DerniereLigne = Ligne - 1
            Exit For
      end if  
Next Ligne

soit tu fait ca

Code :

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

1
2
3
4
5
For Ligne = PremiereLigne To 30
 MsgBox ("Ligne=" & Ligne)
         If Cells(Ligne, 1).Value = "Total général" Then DerniereLigne = Ligne - 1: Exit For
  
 Next Ligne

[Theze]

Bonjour,

Et en faisant une recherche de la valeur avec Find ? A voir :

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
 
Sub testcopiedonneeestcdW2()
 
    Dim Cel As Range
    Dim PremiereLigne As Integer
    Dim DerniereLigne As Integer
 
    PremiereLigne = 7
    DerniereLigne = 7
 
    With Sheets("TCD_W2")
 
        Set Cel = .Range("A7:A30").Find("Total général", , xlValues, xlWhole)
 
        If Not Cel Is Nothing Then DerniereLigne = Cel.Row - 1
        '"DerniereLigne + 1" car on commence à la ligne 8
        Sheets("INDEX").Range(Sheets("INDEX").Cells(8, 9), Sheets("INDEX").Cells(DerniereLigne + 1, 10)).Value = .Range(.Cells(PremiereLigne, 1), .Cells(DerniereLigne, 2)).Value
 
    End With
 
End Sub

Hervé.

[valérieF]

Merci Patrick, effectivement je positionnais mal mon code, et ta deuxième option est plus simple je trouve.

Par contre These, ton code m'interesse mais je ne comprends pas bien les lignes avec un point d'interrogation, pourrais tu m'expliquer ?

Code :

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

1
2
3
4
5
6
7
8
9
With Sheets("TCD_W2")
 
        Set Cel = .Range("A7:A30").Find("Total général", , xlValues, xlWhole) '?
 
        If Not Cel Is Nothing Then DerniereLigne = Cel.Row - 1 '?
        '"DerniereLigne + 1" car on commence à la ligne 8
        Sheets("INDEX").Range(Sheets("INDEX").Cells(8, 9), Sheets("INDEX").Cells(DerniereLigne + 1, 10)).Value = .Range(.Cells(PremiereLigne, 1), .Cells(DerniereLigne, 2)).Value
 
    End With