E-07 Sélection lignes si valeur en "A"

[eillon]

Bonjour,

Après avoir recherché, je ne trouve pas comment sélectionner des lignes A:H si A est utilisé.

Sub truc()
 
    Columns("A:H").Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlValues
    Range("j1").Select
        
End Sub

Bien entendu là il me sélectionne toute la page de A à H alors que je ne veux que si A est occupé.

si en colonne A j'ai des valeurs jusqu'en A26, je veux sélectionner A1:H26

 

[SergiO]

Re : E-07 Sélection lignes si valeur en "A"

Bonsoir Eillon,

Pour trouver la dernière ligne utilisée en colonne A et sélectionner ces lignes de A à H, essaie ceci :

DerLig = Range("A65536").End(xlUp).Row
Range("A1:H" & DerLig).Select

@+

 

[myDearFriend!]

Re : E-07 Sélection lignes si valeur en "A"

Bonsoir eillon, SergiO,

En complément, et dans l'hypothèse où la colonne A comporte des "vides" aléatoires (correspondant donc à des lignes non contigues à exclure de la copie), tu devrais pouvoir faire quelque chose comme ça :

[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] truc()
    Application.Intersect(Columns(1).SpecialCells(xlCellTypeConstants, 23).EntireRow, Range("A:H")).Copy
    Workbooks.Add
    ActiveCell.PasteSpecial Paste:=xlValues
    Range("j1").[COLOR=NAVY]Select
End Sub[/COLOR]

Cordialement,