sélection de lignes dont le n° varie

[pierre]

Bonjour à tous,


Je vous écrit car un problème sous VBA, je souhaiterai rentrer la chose suivante :

Rows('la ligne où je me trouve : cette même ligne + 4').select

Le problème c que je ne connais pas la bonne synthaxe et malgrès une recherche approfondie sur l'aide de VBA, je n'ai rien pu trouver qui convienne à mon problème.
En fait, il faudrait trouver la synthaxe qui me donne le n° de ligne Excel là ou on se trouve.


Merci d'avance pour votre aide et bonne continuation.

Amicalement.

Pierre.

 

[Sylvain]

Bonjour,

je pense que :

Rows(ActiveCell.Row & ':' & ActiveCell.Row + 4).Select

devrait être OK

 

[2passage]

Bonjour,

il y a aussi :

Range(ActiveCell.EntireRow, ActiveCell.Offset(4, 0).EntireRow).Select


A+

Edit : ooops mal lu la question

Message édité par: 2passage, à: 20/06/2005 13:18

Message édité par: 2passage, à: 20/06/2005 13:21

 

[GUEGUEN DOMINIQUE]

voici une macro qui copie dans une cellule plusieurs cellules voisine afin de crée un message SMS
Dim demande As String
Dim num As String
demande = 'M°:' & ActiveCell & Chr(10)
Selection.Offset(0, 0).Range('B1').Select
demande = demande & ' exp: ' & ActiveCell & Chr(10)
Selection.Offset(0, 0).Range('B1').Select
demande = demande & ' ' & ActiveCell & Chr(10)
Selection.Offset(0, 0).Range('B1').Select
demande = demande & ' Com: ' & ActiveCell & Chr(10)
Selection.Offset(0, 0).Range('B1').Select
num = Replace(ActiveCell, ' ', '')
demande = demande & ' Tel : ' & num & Chr(10)
Selection.Offset(0, 0).Range('B1').Select
num = Replace(ActiveCell, ' ', '')
demande = demande & ' : ' & num & Chr(10)
demande = demande & 'SDAEC Dominique GUEGUEN'
Range('D1') = demande
Range('D1').Copy
n = Range('D1').Characters.Count
If n > 160 Then
MsgBox ('Message comportant plus de 160 carractères')
End If
Dominique GUEGUEN

 

[pierre]

Re Bonjour.

Et bien je tenais à vous remercier car mon problème est règlé et ça fait du bien.

J'ai utiliser la solution de 2passage mais je suppose que la solution de Sylvain marche aussi.

Un grand merci à vous tous pour l'aide que vous m'avez apporté.

Thanks a lot.

Bonne continuation.

Pierre.