URGENT: selectionner une zone jusqu'à ligne vide

Question

Bonjour,


Voici un programme qui me cause bien des soucis: je veux executer le code sur une zone qui doit &#234;tre d&#233;limit&#233;e par la rencontre d'une ligne vide sur la plage A:AY. comment definir le range sous cette condition? quelle est l'astuce???
merci


'Traite la mise en page


Range("A1:AY1816").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 6
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With

haleakala78 · Answer

salut
je ne suis pas un pro, mais il me semble que je me suis deja posé ce genre de questions,
je ne sais plus lequel il faut utiliser entre range("").usedrange et currentregion

usedrange..j'ai retrouvé une macro ds ce genre là

je delimite ma plage comme ceci:

Dim eof As Integer ' numero de la derniere ligne de la selection à copier

je pars de la premiere cellule, et je vais jusqu'à la "derniere" ligne
et apres je fais tout ce que je veux avec ma selection


    Worksheets(ActiveWks).Activate
    eof = Range("a2").CurrentRegion.Rows.Count ' determination de la longueur de ligne de la selection à copier
    Range("a2:a" & eof).Select
    Selection.Copy
    Worksheets(NewNameWks).Activate
    Range("a2").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, True, False
    
....

si ça peut t'aider !

mokhtarmans · Answer

j'aurais voulu savoir s'il &#233;tait possible de mettre comme nom de dossier le contenu texte d'une cellule Excel qui aurait &#233;t&#233; s&#233;lectionn&#233; puis copi&#233;.

par exemple : ... As "C:\Appli\CelluleB3

haleakala78 · Answer

oui mais ça je sais pas faire

nicobentz · Answer

nicobentz · Answer

merci pour la réponse,
elle ne répond pas directement à mon pb puisque la compilation induit une erreur,
j'ai trouvé cependant une solution:

Range("A1").Select

i = 1

Do
i = i + 1
x = i - 1
Loop Until Cells(i, 1) = ""
Range(ActiveCell(1, 1), ActiveCell(x, 53)).Select

haleakala78 · Answer

ok, mais je crois qu'il y a tellement de façons de faire les choses avec VBA, et moi je ne suis pas très fort