Discussion :

[pilounet54]

bonjour
j'ai de colonne protegées et je souhaite faire un usedrange - 3 colonnes
donc selectionne - 3 colonnes

Code :

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

ActiveSheet.UsedRange.Select

[Didier Gonard]

Bonjour,

bonjour
j'ai de colonne protegées et je souhaite faire un usedrange - 3 colonnes
donc selectionne - 3 colonnes
Code :
Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.UsedRange.Select

Il y a une question quelque part

cordialement,

Didier

[Paritec]

Bonjour Pilonet54 le forum
le moins que l'on puisse dire c'est que tu ne sais pas t'expliquer!!
Tu veux faire quoi? Tu as 3 colonnes et après, que souhaites tu faire?
Au besoin un petit bout de fichier avec les explications dedans
a+
papou

[pilounet54]

un usedrange selectionne tout ,on va dire le tableau , mais je souhaite ne selectionne le tableau avec 3 colonnes en moins donc sur la premiere ligne du code je ne souhaite pas selectionne tout le tableau mais avec 3 colonnes en moins

Code :

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

1
2
ActiveSheet.UsedRange.Select
    ActiveCell.Offset(ActiveSheet.UsedRange.Rows.Count, 0).Select

merci

[Paritec]

Rebonjour Pilounet54 le forum
je ne vois pas trop l'intérêt du select mais bon !!
a+
Papou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub pilounet54()
    Dim i&, fin&, col&
    With ActiveSheet
        fin = .Cells.Find("*", , xlValues, , 1, 2, 0).Row
        col = .Cells.Find("*", , xlValues, , 2, 2, 0).Column
        If col > 3 Then
            .Range(.Cells(1, 1), .Cells(fin, col - 3)).Select
        Else
            MsgBox "Selection impossible nombre de colonne trop petit", , "Pas assez de Colonne"
        End If
    End With
End Sub

[pilounet54]

bonjour et merci
es que tu peu m'explique ces valeurs en rouge
fin = .Cells.Find("*", , xlValues, , 1, 2, 0).Row
col = .Cells.Find("*", , xlValues, , 2, 2, 0).Column
pour que je puisse bien adapter
merci encore

[gFZT82]

Re-bonjour,

UsedRange représente la plage utilisée.
Si tu souhaites sélectionner cette plage avec 3 colonnes en moins, tu peux coder

Code :

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

1
2
3
Sub Test()
    ActiveSheet.UsedRange.Resize(, ActiveSheet.UsedRange.Columns.Count - 3).Select
End Sub

Cordialement.