Selection VBA avec systéme incrémentale

[Maxime02]

Bonjour,

J'ai réaliser un petit systéme incrémentale et la je suis bloquer ( sinon je ne serais pas la ^^).

Donc voila ce que je veus : Aprés avoir réaliser la premiére action ( qui fonctionne trés bien ) Je souhaite que si la cellulle (z, 5 ) est non vide alors il selectionne la ligne de A à G, et ainsi de suite jusuqu'a ce qu'il tombe sur une case vide en (z, 5).Ce qui me permettra d'avoir une plage de selection de type range("A1:G200").

Voici ma macro:

Sub Macro1()

z = 18

While Cells(z, 5) <> ""
If Not IsEmpty(Cells(z, 5)) Then Cells(z, 4) = "=RIGHT(LEFT(RC[1],LEN(RC[1])-1),1)"

z = z + 1
Wend


z = 18
While Cells(z, 5) <> ""
If Not IsEmpty(Cells(z, 5)) Then Cells(z, 7).Select


z = z + 1
Wend

End Sub

La premiére partie marche la deuxiéme ne selectionne rien ou alors en bidouillant j'arrive a avoir une cellule.

J'espére avoir était asser claire voila voila.

Max.

 

[Maxime02]

Re : Selection VBA avec systéme incrémentale

Même si la solution est totalement différente de ce que j'essaye de faire je suis preneur bien entendu.^^

 

[Maxime02]

Re : Selection VBA avec systéme incrémentale

Ne vous embétez pas j'ai finalement trouver ^^

Voici la solution a la place de mon systeme incrémentale :

Range("A18").End(xlDown).Select

Range(ActiveCell, Cells(17, 7)).Select

j'ai mis trois heures mais j'ai trouver.

Sujet clos.^^

 

[Robert]

Re : Selection VBA avec systéme incrémentale

Bonjour Maxime, bonjour le forum,

Peut-être comme ça :

Dim dl As Integer
dl = Sheets("Feuil1").Cells(Application.Rows.Count, 5).End(xlUp).Row
Sheets("Feuil1").Range(Cells(18, 1), cell(dl, 5)).Select

[Édition]
Oooops no messages se sont croisés