Discussion :

[Domver]

Bonjour,

Je travaille sur Excel 2003 VBA 6.3
Dan un tableau ou j’ai fais une recherche dans la colonne C sur la valeur Total j’aimerai que les cellules A, B, C et D de la ligne ou Total est trouvé soient sélectionnées et que la sélection s’étende jusqu’à la ligne 1. Dans le code ci-dessous j’ai un souci avec la ligne qui devrait étendre la sélection. En réalité ça sélectionne que la ligne total et la première au-dessus. Quelqu’un peut-il m’aider à trouver mon erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Tri()
Range("C1").Select
For Each cell In Range("C1:C6000")
If ActiveCell.Value = "" Then Exit Sub
If ActiveCell.Value >= "TOTAL" Then
Range(ActiveCell, ActiveCell.Offset(0, -2)).Select
ActiveCell.Offset(0, -2).Select
Range(ActiveCell, ActiveCell.Offset(0, 3)).Select
Range(Selection, ActiveRow.End(xlUp)).Select
Selection.Copy
End Sub

[jfontaine]

Voila une solution

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 test()
 
Dim i As Long
i = 1
 
Do While Range("C" & i).Value <> "total"
    If Range("C" & i).Value = "" Then GoTo Fin
    i = i + 1
Loop
 
Range("A1:D" & i).Select
 
 
Exit Sub
Fin:
MsgBox "pas Trouvé fin"
End Sub

[zazaraignée]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub SelectionDuTableau()
    Dim plage As Range, cellule As Range
    Dim ligne As Long
 
    Set cellule = Range("C1").End(xlDown)   ' Total
    ligne = cellule.Row
 
    Set plage = Range("A1:D" & ligne)
    plage.Select
 
    ' libérer la mémoire occupée par les variables d'objets Range
    Set plage = Nothing
    Set cellule = Nothing
End Sub