range avec Variable

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:

---

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

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

Code:

---

ActiveCell.resize(j)

---

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

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.

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

Voici le code en entier

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

Code:

---

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

---

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

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

Code:

---

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.

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:

---

numrows = Selection.Rows.Count

---

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