vba excel cellules

Version imprimable

13/02/2012, 10h02
titou31000

vba excel cellules

Bonjour à tous!!

Est-il possible en vba, de sélectionner dans une certaine colonne, les cellules qui sont utilisées, non vides? J'ai essayé UsedRange en vain

Merci

Bonjour,
Essaie (dans l'exemple, pour la colonne A) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
    Dim Plage As Range, Plage1 As Range, Plage2 As Range
    On Error Resume Next
    With Columns(1)
    Set Plage1 = .SpecialCells(xlCellTypeConstants)
    Set Plage2 = .SpecialCells(xlCellTypeFormulas)
    Set Plage = Union(Plage1, Plage2)
    On Error GoTo 0
    If Plage1 Is Nothing And Plage2 Is Nothing Then
        MsgBox "aucune cellule sélectionnéee"
        Exit Sub
    End If
    If Plage1 Is Nothing Then
        Set Plage = Plage2
    ElseIf Plage2 Is Nothing Then
        Set Plage = Plage1
    Else
        Set Plage = Union(Plage1, Plage2)
    End If
    End With
End Sub

13/02/2012, 10h25
BlueMonkey

Bonjour,

Le code ci-dessous sélectionnera toutes les cellules non vide à côté de A1

Code:

Range("A1").CurrentRegion.Select
13/02/2012, 10h30
titou31000

Merci à vous de vous être penchés sur la question

@Daniel, j'ai essayé mais cela ne fait pas ce que je veux

@BlueMonkey, j'avais aussi essayé CurrentRegion mais cela ne me sélectionne pas les bonnes cellules

Je voulais faire un truc du genre

Code:

ActiveSheet.Columns['E'].UsedRange.Select

mais cette ligne renvoit une erreur

Bonjour,

Ce code ne sélectionne que les cellules non vide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim rg As Range
Dim Cellule As Range
 
For Each Cellule In Range("A:A")
 
    If Not IsEmpty(Cellule) Then
        If Not rg Is Nothing Then
            Set rg = Range("" & rg.Address & "," & Cellule.Address & "")
        Else
            Set rg = Range("" & Cellule.Address & "")
        End If
 
    End If
 
Next
 
rg.Select

13/02/2012, 10h35
BlueMonkey

Re.

Si les cellules contenant du texte sont complétées sans trou,
Range("A7:A" & (Range("A65000").End(xlUp).Row)).Selectdevrait faire l'affaire également.

[Edit] Pour finir une solution pour ne pas partir d'une ligne en particulier

Code:

Range("A" & (Range("A1").End(xlDown).Row) & ":A" & (Range("A65000").End(xlUp).Row)).Select

Bonne journée.

Pour sélectionner les cellules :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
Dim Plage As Range, Plage1 As Range, Plage2 As Range
On Error Resume Next
With Columns(1)
Set Plage1 = .SpecialCells(xlCellTypeConstants)
Set Plage2 = .SpecialCells(xlCellTypeFormulas)
Set Plage = Union(Plage1, Plage2)
On Error GoTo 0
If Plage1 Is Nothing And Plage2 Is Nothing Then
MsgBox "aucune cellule non vide"
Exit Sub
End If
If Plage1 Is Nothing Then
Plage2.Select
ElseIf Plage2 Is Nothing Then
Plage1.Select
Else
Union(Plage1, Plage2).Select
End If
End With
End Sub

13/02/2012, 10h40
titou31000

Merci à tous, je pense que je vais me débrouiller avec toutes vos réponses!!

Merci encore!!

Bonne journée