Recherche une formulation type pour sélection une plage

Bonjour, afin de compléter un code je suis à la recherche d'une formulation vba pour sélection une plage :

- dans la page "devis"

- de la ligne 14

- à 2 lignes au dessus d'une plage nommée "expédition"

des idées à me soumettre ?

merci

Bonjour,

Worksheets("Devis").Rows("14:16").Select

Dans ton code, si tu peux, évite les "Select" ... ce sera plus rapide ...

Note : En te relisant, j'ai oublié la plage ... je reviens ...

ric

le code que tu me donnes sélectionne seulement la ligne 14 à 16.

Je veux sélectionner :

1ere ligne : 14 jusqu'à

dernière ligne : 2 lignes au dessus de la plage "expédition" ( ligne aléatoire selon le nombre de ligne dans le tableau)

Bonjour,

Dim fin As Integer

fin = Worksheets("Devis").Range("expédition").Rows.Count
Worksheets("Devis").Range("expédition").Rows("1:" & fin - 2).Copy

ric

je n'ai pas de message d'erreur, mais je n'ai pas de sélection qui se fait non plus

Bonjour,

Désolé pour manque d'attention ...

Pour pouvoir sélectionner, il faut se rendre sur la feuille en question ...

Dim fin As Integer

fin = Worksheets("Devis").Range("expédition").Rows.Count
Worksheets("Devis").Activate
Range("expédition").Rows("1:" & fin - 2).Select

ric

Le code me sélectionne uniquement une ligne (179) … je te joins une partie du fichier pour que tu puisses y jeter un coup d'œil !

merci pour ton aide

Bonjour,

A tester

Sub test()

  Dim fin As Integer
  Worksheets("Devis").Activate
  fin = Worksheets("Devis").Range("Expeditiondevis").Row - 1
  Rows(14 & ":" & fin).Select

End Sub

Je viens de l'adapter à mon fichier...

C'est parfait !

merci

Bonjour à tous,

Une variante pour ne sélectionner que la plage ...

Sub test_ric()
Dim Ldebut As Integer
Dim Cdebut As Integer
Dim Cfin As Integer

    Worksheets("Devis").Activate

    Ldebut = Range("Expeditiondevis").Cells(1, 1).Row - 1
    Cdebut = Range("Expeditiondevis").Cells(1, 1).Column
    Cfin = Cdebut + Range("Expeditiondevis").Columns.Count - 1
    Range(Cells(14, Cdebut), Cells(Ldebut, Cfin)).Select
End Sub

ric

merci, cela aussi fonctionne de mon côté !