Discussion :

[Didpa]

Bonjour

quelque chose de tout simple certainement pour les expert du sîte, mais moi cela me bloque depuis ce matin

Je cherche à sélectionner des cellules dans une colonne, mais le nombre de cellule dépend de la variable.

Voilà j'ai essayer cela

Code :

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

1
2
3
4
5
6
7
8
9
10
j = 3
AD = Rows.Address
MsgBox AD
'Range(ActiveCell & ":" & Cells & j).Select
 
'Range (ActiveCell,ActiveCell.Offset(j, 0)) .Select
 
'Range(ActiveCell & ":" & AD + j).Select
 
'Range("A" & j & ":D41" ).Select

Mais rien ne va......

Donc j'aimerais que concrètement
la première cellule sera Activecell
ensuite sélectionne la cellule active et (j) cellule en dessous ' j sera variable par la suite.

j'espère avoir été clair.

Cordialement

[mercatog]

Pour ton cas, regarde du côté de Resize

Code :

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

ActiveCell.resize(j)

Sinon, je vois plein de Select, si tu disais ce que tu voulais, on pourrait te proposer quelque chose de potable

[Didpa]

j'aimerais que concrètement
la première cellule sera Activecell
ensuite sélectionne la cellule active et (j) cellule en dessous ' j sera variable par la suite.

Voilà avec resize, mais je suis obligé de soustraire 1 à J,, car sinon cela sélectionne une cellule de trop, sinon cela fonctionne.

[mercatog]

La question: Pourquoi tu veux sélectionner cette plage de cellules?

[Didpa]

Voici le code en entier

Par la suite j'aimerais couper les cellules sélectionner pour pouvoir les coller dans une autre colonne.

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
Sub NumChap4x4()
 Code = "4x4"
 
    Set CodeChap = Range("I2:W2").Find(what:=Code)
   If CodeChap Is Nothing Then
        MsgBox "Pas trouvé"
    Else
        CodeChap.Offset(1, 0).Select
    End If
 
j = 6 'Comment.TB3
'ActiveCell.Resize (j)
If j = "" Then
Else
numrows = Selection.Rows.Count
MsgBox numrows
Selection.Resize(numrows + (j - 1)).Select
End If
End Sub

[mercatog]

Tu sais que tu peux Couper/Coller sans rien sélectionner?

Exemple (proche du tiens: Regarde ce que j'avais ajouté)

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
Sub NumChap4x4()
Dim Code As String
Dim CodeChap As Range
 
 
Code = "4x4"
j = 6
With Worksheets("Feuil1")
    Set CodeChap = .Range("I2:W2").Find(what:=Code, LookIn:=xlValues, LookAt:=xlWhole)
    If CodeChap Is Nothing Then
        MsgBox "Pas trouvé"
    Else
        CodeChap.Offset(1, 0).Resize(j).Cut .Range("Z1")
        Set CodeChap = Nothing
    End If
End With
End Sub

Maintenant, si tu n'arrive pas à l'adapter sur ton cas, il faudra plus d'informations et non des phrases-télégrammes.

[Philippe Tulliez]

Bonsoir,
Ce que tu cherches à obtenir n'est pas très clair pour moi.
D'après ton code, même s'il y a plusieurs cellules qui contiennent la valeur de la variable Code (ici 4x4), il n'y aura jamais qu'une cellule retenue et donc la ligne 15 de ton code

Code :

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

numrows = Selection.Rows.Count

vaudra toujours 1.
De plus il est parfaitement inutile d'utiliser Select et Selection