Discussion :

[Marys]

Je viens de passer plusieurs heures sur ce problème , mais comme je n'ai pas assez de pratique de VBA, je butte
je veux sélectionner toutes les lignes, de 1 à la dernière non vide, d'une feuille excel
sélectionner une ligne avec variable, je sais faire:

Code :

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

  Rows (numeroligne).Select

sélectionner une plage de lignes, sans variable, je sais faire aussi

Code :

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

    Rows("1:5").Select

alors, pourquoi je n' arrive pas à faire

Code :

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

    Rows("1:numeroligne").Select

mais peut-être que je m'embarque dans qq chose de compliqué, pour un résultat finalement simple (sélectionner les données d' une feuille dont on ne sait pas le nombre de lignes ni de colonnes)
merci pour votre aide

[Le Pierre]

bonjour

essaye ceci :

Code :

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

Rows("1:" & numeroligne).Select

à plus

[ouisansdoute]

Bonjour,

je pense que le code suivant fonctionne

Code :

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

    Range("A1:A" & ActiveSheet.Rows.Count).EntireRow.Delete

[Haider Latrech]

Bonjour ,

Je veux activer une colonne à entrer par l'utilisateur

Code :

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

Range("A&x - 1").Activate

sachons que la valeur x à donner

[Transitoire]

Bonjour, essayez donc d'adapter les codes ci dessous.

Code :

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

1
2
3
Sub SelecZone1()              'Sélectionne toute la zone écrite ecriture qui se suivent
Range("A1").CurrentRegion.Select
End Sub

ou aussi

Code :

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

1
2
3
4
5
Sub SelecZone3()              'Sélectionne toute la zone écrite ecriture qui se suivent pas forcément mais qui s'arrète à la dernière valeur de H
Prem = Range("A2").Address
Dern = Range("H" & Range("H65536").End(xlUp)(1).Row).Address
Range(Prem, Dern).Select
End Sub

Cordialement