cells & range

[sabrina64]

bonjour
je voudrais selectionner une plage de cellule
ex A11 : A12

j'ai ceci qui fonctionne
Range("F" & "30", Range("F" & "30").Offset(0, 1)).Select

mais en fait je veux pouvoir faire varier la colonne , donc je pensé utiliser cells afin de mettre une varaible i à la place du numero de la colonne
donc g ceci
ici i =6
Range(Cells(35, 6).Offset(0, 1)).Select

or ce la ne me marche pas , j obtiens l erreur suivante pas d 'acccès à range qui est caché.....;;

Quelsu un pourrait il m aider??

merci

bonn e soiree...

 

[Pierrot93]

Re : cells & range

Bonjour Sabrina

pas sur d'avoir tout compris, mais essaye peut être comme ci dessous :

Cells(35, 6).Offset(0, 1).Select

bonne soirée
@+

 

[Pierrot93]

Re : cells & range

Re

ce qui revient à

Cells(35, 7).Select

@+

 

[sabrina64]

Re : cells & range

bonjour
et merci pour vos réponses..............

et bien si j enleve le range ca ne me fusionne pas mes cellules....

....
Range(Cells(40, 6).Offset(0, 1)).Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .ShrinkToFit = False
        .MergeCells = True
    End With
...

 

[Minick]

Re : cells & range

Salut,

Pour une plage avec Cells utilises ceci

i = 6
Range(Cells(30, i), Cells(30, i).Offset(0, 1)).Select

++

 

[Spitnolan08]

Re : cells & range

Bonsoir à tous,
Pourquoi pas tout simplement :

Cells(35, 7).Select

ou

 Cells(35, 6+i).Select

si on veut faire varier la colonne en fonction d'un indice.

Pourquoi faire simple quand on peut faire compliqué...

Cordialement

Edit : Pas assez rapide: il y a eu au moins 3 réponses avant la mienne...depuis la 1ère de Pierrot!

 

[Staple1600]

Re : cells & range

Bonsoir


En guise de test (ici on affiche l'adresse de la plage)

A adapter à ton cas (.Select)

Sub test()
Dim x As String, y As String, z As String
x = Range("F" & "30", Range("F" & "30").Offset(0, 1)).Address(0, 0)
MsgBox "test 1: " & " " & x
Dim i As Long
i = 6
y = Range(Cells(35, i), Cells(35, i).Offset(0, 1)).Address(0, 0)
MsgBox "test 2: " & " " & y
Dim ligne As Long, colonne As Long
ligne = 35
colonne = 6
z = Range(Cells(ligne, colonne), Cells(ligne, colonne).Offset(0, 1)).Address(0, 0)
MsgBox "test 3: " & " " & z
End Sub

edit: pas rafraichi à temps (désolé)

 

[sabrina64]

Re : cells & range

merci pour votre aide

mon programme tourne avec la ligne suivante :
range(Cells(45, 6), Cells(45, 6).Offset(0, 1)).Select

bonne soiree

 

[Pierrot93]

Re : cells & range

re

ok, j'avais pas tout compris, essaye comme ca :

Range(Cells(35, 6), Cells(35, 6).Offset(0, 1)).Merge

@+

 

[Spitnolan08]

Re : cells & range

Re

 range(Cells(45, 6), Cells(45, 7)).Select

suffit.
ou bien

range("F45:G45").select

Cordialement