[VBA-E] Positionnement des cellules excel

Version imprimable

28/10/2006, 14h38
anisr

[VBA-E] Positionnement des cellules excel

Bonojur,

J'importe des données externes (HTML) et j'ai besoin d'un code vba qui permet d'orienter systemtiquement les nouvelles données vers la première ligne vide de la colonne A.
Exemple: le premier import porte sur 30 lignes, le second doit être orienté vers la cellule A31.

Merci de votre intervention.
28/10/2006, 16h52
SilkyRoad
bonjour

ce n'est pas évident de répondre sans voir ta procédure

voici un exemple qui permet de récupérer le numéro de la première ligne vide , dans la colonne A
Code:

1 2 3 Dim i As Long i = Range("A65536").End(xlUp).Row + 1
michel
28/10/2006, 16h57
dadavyvy

Il y a plusieurs façon d'avoir la prochaine cellule vide de la colonne A :

Code:

Feuil1.Range("A1").End(xlDown).Offset(1,0)

Ou si tu veux vraiment la dernière ligne non utilisée :

Code:

Feuil1.UsedRange.Columns(1).SpecialCells(xlCellTypeLastCell).Offset(1,0)

Ensuite tu l'utilises comme Destination quand tu insères ton QueryTable

Code:

Feuil1.QueryTables.Add Destination:=Feuil1.Range("A1").End(xlDown).Offset(1,0), ...

Attention: après avoir importé ton texte, n'oublie pas de supprimer le QueryTable sauf si tu veux garder une liaison avec ton fichier.

En complement d'information voici le code
Sub Macro4()

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
    With ActiveSheet.QueryTables.Add(Connection:= _
        "FINDER;file:///C:/Documents%20and%20Settings/Administrateur/Bureau/Budget%202007/sq/2/e/e.htm" _
        , Destination:=Range("A1"))
        .Name = "e"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "5"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

28/10/2006, 20h38
dadavyvy

Je répète :

Code:

Destination:=Range("A1").End(xlDown).Offset(1,0)