Select d'une cel precise à cel de la dern li

[Zeltron]

Bonsoir à tout le forum,

Comment puis je dire en VBA: sélectionner de la cellule I15 à la dernière cellule de la même col ( c'est a dire I...)de la dernière ligne du tableau.

Ci dessous: voici le code que j'ai écris:

Sub ...
Range('I3').Select
Selection.Copy
Range('I5'I65536').End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

Mais forcément cela ne fonctionne pas.
Nb:la plage I5 à la cellule I de la dernière ligne du tableau est une plage vide ou pleine, c'est a dire que les cellules i5 à I...(dernière ligne du tableau), peur avoir des valeur ou non.

Pouvez vous m'aider?

Par avance merci

Cordialement

Zeltron

 

[Mytå]

Salut Zeltron

Comme ceci

Range('I5:I' & Range('I65535').End(xlUp).Row).Select

Myta

 

[_Thierry]

Bonsoir Zeltron, Cher Mytå, le Forum

Probablement je suis à coté à cause du smiley intempestif lol, mais voici aussi ceci d'après ce que j'ai compris :

Sub FindLastCell()
Dim Plage As Range

Set Plage = Range(Range('i5'), Range('i65536').End(xlUp))
Plage.Select

End Sub

Bonne Soirée
@[ol]+Thierry[/ol]

 

[Zeltron]

Je te remercie de t'interesser a mon problème. Mais cela ne donne pas ce que je souhaiterais. J'ai viens de faire un petit exemple explicatif, j'y est mis ta macro, mais tu verras , que cela ne donne pas ce que je soouhaiterais.

Merci d'avance

Cordialement

Zeltron [file name=exemplepb1.zip size=7822]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemplepb1.zip[/file]

 

[Zeltron]

Merci Michel, pour ton aide.

J'ai utilisé ton aide de la manière suivante dans le même fichier que j'ai join precedemment:

Sub Bouton2_QuandClic()

Dim Plage As Range

Set Plage = Range(Range('i5'), Range('i65536').End(xlUp))

Range('I2').Select
Selection.Copy
Plage.Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

End Sub


Mais cela me donne le même problème qu'avec la solution de Myta.
Le problème est que toute la plage désirée de la colonne I, a partir de la cellule I5 n'est pas selectionnée.

Regarde dans mon fichier joint j'y ai détaillé le problème.

Y a t il une solution?

Merci de votre aide

Cordialement

Zeltron

 

[_Thierry]

Re bonsoir Zeltron, Myta, Michel (mais y pas encore Michel dans ce fil lol)

bon deux solutions pour le prix d'une

Sub Methode1()
Dim Cell As Range, Plage As Range

Set Plage = Range(Range('A5'), Range('A65536').End(xlUp))

For Each Cell In Plage
    Range('i2').Copy Cell.Offset(0, 8)
Next Cell

End Sub

Sub Methode2()
Dim Plage As Range

Set Plage = Range(Range('A5'), Range('A65536').End(xlUp))

Range('i2').Copy Range('i5')
Plage.Offset(0, 8).FillDown

End Sub

La seconde méthode devrait être plus rapide sur de grands tableaux...

Bonne soirée
@+Thierry

Message édité par: _Thierry, à: 07/04/2006 22:56

 

[Zeltron]

Merci beaucoup Tierry ( excuse moi pour l'erreur de prénom) et Myta

Tes solutions marchent super!!


Merci encore à vous deux , de vous être penchés sur mon problème.

Bonne soirée à vous et bon week end

Cordialement


Zeltron