Bonjour les gars (et les filles ;-),

Alors cette fois mon problème n'est pas compliqué... mais je sais pas mais comme dirait Bigard..... j'ai pa pu.....

Mon problème c'est que je voudrais selectionner une zone de cellules que je peux limiter en haut donc de "D3:X3" mais par contre je doit tout choisir jusqu'au dernier enregistrement. Ces cellules sont pas les premières de la feuille, elles sont limite au milieu de la feuille donc pas de repère possible car la liste peu s'éttendre.

J'arrive pas à faire un :

Workbooks("Transpac.xls").Worksheets_(sFeuilleDestinatrice).Range("D3:X3").Select

Workbooks("Transpac.xls").Worksheets_(sFeuilleDestinatrice).Range(Selection, Selection.End_(xlDown)).Select


Le truc qui me fustige c'est quand même que cette méthode là fonctionne pour les cellules "A3:C3" et que ça fonctionne même super bien mais avec "D3:X3" ça ne selectionne que les quatre premières lignes.

Merci à celui qui voudra bien m'aider (pas de bière cette fois..... personne ne me les demande en plus).

Salut

Tente ça, ca compte le nompre de lignes pour faire la selection.

'Définition de la variable pour compter les lignes Dim Nb_lignes As Long Nb_lignes = ActiveSheet.UsedRange.Rows.count Workbooks("Transpac.xls").Worksheets_(sFeuilleDestinatrice).Range(Cells(3, 4), Cells(Nb_lignes, 24)).select 'dans cells c'est lignes et ensuite colonnes

Salut

Merci beaucoup à toi...... celà m'aide beaucoup mais un autre problème se soulève à moi...

Il arrive que certaines cellules soient à blanc alors que je dois les garder dans le tracer de mon tableau.

Le problème étant que je ne peux pas chercher la dernière cellule mais j'ai une cellule de la colonne A qui est obligatoirement renseignée au bon niveau par rapport au bas de mon tableau. Je me demande si je peux utiliser cette cellule comme référence pour ensuite faire en sorte que les autres colonnes soient au même niveau qu'elle.

Merci en tout cas pour ton aide.

Salut

Pour utiliser la cellule de la colonne A il fautrait que les autres cellules au dessus ne soient pas vide. et tu pourair allor utiliser ça, mais bon c'est pour la formule moi ça me sert à compter des lignes dans un tableau avec des filtres.

Sub Nb_Ligne_Filtre() MsgBox "Nb de lignes = " & Application.Subtotal(3, [A:A]) - 1 End Sub

A toi d'en faire ce que tu veux

Merci. Je vais me dépatouiller avec ce que tu m'as donné.

En fait je crois que lui donner la solution aurait été plus simple...

En admettant que tu utilises la colonne A (à adapter)

Dim i As Long
        '
        ' on sélectionne les cellules à copier
        '
        Sheets("Sheet1").Select
        For i = 1 to Range("A65535").End(xlUp).Row                 
           If Cells(i, 1).Value <> "" Then
              Cells(i, 1).Copy
        Next i
        '
        ' colle les données
        '
        Sheets("Sheet2").Select
        Cells().PasteSpecial (xlPasteAll)
' si on ne veut pas spécifier de cellules précises sinon il suffit de refaire une petite boucle

J'apporte une rectification à mon message...

PS: il est strictement inutile de compter les lignes à moins de vouloir... les compter mais dans ton cas cela ne sert à rien.

Donc j'adapte mon code précédent... :

Dim i As Long
        '
        ' on sélectionne les cellules à copier
        '
        Sheets("Sheet1").Select
        For i = 1 to 24 ' valeur numérique de X (dans un alphabet à 26 lettres)                 
           If Cells(3, i).Value <> "" Then Cells(3, i).Copy
        Next i
        '
        ' colle les données
        '
        Sheets("Sheet2").Select
        Cells().PasteSpecial (xlPasteAll)
' si on ne veut pas spécifier de cellules précises sinon il suffit de refaire une petite boucle