multiligne en vb

[zumye]

bonjour le forum

activesheet.row correpond a la ligne active mais comme dois je ecrire mon programme si je veux qu'il y est une ou plusieur lignes active?

ex: je selectionne 3 lignes soit 3 lignes actives

ligne= activecell.row
range("a1" & ligne)=....
ceci va marché pour une ligne alors comment faire pour qu'il y ai plusieurs lignes?

merci

 

[jp14]

Re : multiligne en vb

Bonjour

Dans une macro évènementielle on peut connaitre le nombre de ligne en utilisant la propriété

ligne2 = Target.Rows.Count

A tester

JP

 

[Cousinhub]

Re : multiligne en vb

Bonjour,

pour connaître le nombre de lignes :

x = Selection.Rows.Count

pour écrire dans chaque cellule de la colonne A

Si tu n'as qu'une colonne :

Selection.Value = 3

si ta sélection comporte plusieurs colonnes

For Each Rw In Selection
    Range("A" & Rw.Row).Value = 2
Next Rw

 

[GIBI]

Re : multiligne en vb

Bonsoir,

si tu veux sélectionner plusieurs ligne, tu peux utiliser range comme ceci

3 lignes à partir de la ligne trois
L = 3 ' ou l=activecell.row
Range(Cells(L, 1), Cells(L + 3, 1)).EntireRow.Select

ou avec selection des colonnes 1 à 10
Range(Cells(L, 1), Cells(L + 3, 10)).Select


ai-je compris la question?

GIBI

 

[Hervé]

Re : multiligne en vb

salut

bhbh, on peut eviter une boucle pour ecrire dans la premiere colonne d'une sélection :

Selection.Columns(1) = 2

bye