Remplacer "A2" par la première cellule vide

Le
Denys
Bonjour à tous,

Pourriez-vous me dire comment remplacer "A2" par la première cellule
vide dans la formule suivante SVP ?

With ActiveSheet
.Range("A2", .Cells(UBound(Arr, 1), UBound(Arr,
2))).Value = Arr
End With

J"ai essayé:

With ActiveSheet
DerL = .[A65536].End(3).Row
.Range("A:" & DerL & "", .Cells(UBound(Arr, 1), UBound(Arr,
2))).Value = Arr
End With

Mais ça ne fonctionne pas.

Merci pour votre temps

Denys
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #24095741
Bonjour.
Essaie :

With ActiveSheet
.Range(.Cells(1, 1).End(xlDown).Offset(1), .Cells(UBound(Arr, 1),
UBound(Arr, 2))).Value = Arr
End With

Cordialement.
Daniel


Bonjour à tous,

Pourriez-vous me dire comment remplacer "A2" par la première cellule
vide dans la formule suivante SVP ?

With ActiveSheet
.Range("A2", .Cells(UBound(Arr, 1), UBound(Arr,
2))).Value = Arr
End With

J"ai essayé:

With ActiveSheet
DerL = .[A65536].End(3).Row
.Range("A:" & DerL & "", .Cells(UBound(Arr, 1), UBound(Arr,
2))).Value = Arr
End With

Mais ça ne fonctionne pas....

Merci pour votre temps

Denys
news.free.fr
Le #24095731
Bonjour.
Essaie :

With ActiveSheet
.Range(.Cells(1, 1).End(xlDown).Offset(1), .Cells(UBound(Arr, 1),
UBound(Arr, 2))).Value = Arr
End With

Cordialement.
Daniel


Bonjour à tous,

Pourriez-vous me dire comment remplacer "A2" par la première cellule
vide dans la formule suivante SVP ?

With ActiveSheet
.Range("A2", .Cells(UBound(Arr, 1), UBound(Arr,
2))).Value = Arr
End With

J"ai essayé:

With ActiveSheet
DerL = .[A65536].End(3).Row
.Range("A:" & DerL & "", .Cells(UBound(Arr, 1), UBound(Arr,
2))).Value = Arr
End With

Mais ça ne fonctionne pas....

Merci pour votre temps

Denys
Denys
Le #24095851
Bonjour Daniel,

Merci beaucoup... Malheureusement, ça ne fonctionne pas..... Je
continue en attendant...

Denys
DanielCo
Le #24095981
With ActiveSheet
.Cells(1, 1).End(xlDown).Offset(1).Select
End With

sélectionne la première cellule vide de la colonne A. Quant au reste de
la ligne, il dépend des valeurs de ta variable array.

Daniel


Bonjour Daniel,

Merci beaucoup... Malheureusement, ça ne fonctionne pas..... Je
continue en attendant...

Denys
Denys
Le #24096071
OK....

Et si on remplaçait "A2" par ActiveCell ???

With ActiveSheet
.Cells(1, 1).End(xlDown).Offset(1).Select

.Range("ActiveCell", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value
= Arr
End With

Denys
DanielCo
Le #24096381
Si tu veux... Si tu disais plutôt ce que tu veux faire ? Tu ne peux pas
mettre ActiveCell" entre guillemets de toutes façons.
Daniel


OK....

Et si on remplaçait "A2" par ActiveCell ???

With ActiveSheet
.Cells(1, 1).End(xlDown).Offset(1).Select

.Range("ActiveCell", .Cells(UBound(Arr, 1), UBound(Arr, 2))).Value
= Arr
End With

Denys
Denys
Le #24096491
En fait, je vais chercher de l'information sur d'autres feuilles dans
différents dossiers. Supposons que le dossier 1 contienne 50 lignes,
je veux que l'information du Dossier 2 commence à la 51e ligne.

La macro provient du site de Frédéric Sigonneau et je l'utilise très
souvent pour que les superviseurs puissent aller chercher de l'info,
mais à chaque fois dans un seul autre fichier. Seulement cette fois-
ci, l'info doit parvenir de plusieurs fichiers et je voudrais bien que
l'info s'accumule à la suite...Voici la macro:

Sub LitEmployee()
Dim Msg, Style, Title, Fich As String
Dim Fich$, Arr
Fich = "\se094PierreDataCheque.xls"

'récup des données à partir de l'adresse d'une plage de cellules
GetExternalData Fich, "Hidden", "A1:P5000", True, Arr

'récup des données à partir du nom d'une plage de cellules ()
'GetExternalData Fich, "", "Tout", False, Arr


With ActiveSheet
.Cells(1, 1).End(xlDown).Offset(1).Select

.Range(ActiveCell, .Cells(UBound(Arr, 1), UBound(Arr,
2))).Value = Arr 'C'est ici que ça bloque

End With

End Sub

(Merci, Denys)

'Must have the Microsoft Activex Data Objects 2.0 Library
'in the tools----reference---in the VBA section
Sub GetExternalData(srcFile As String, _
srcSheet As String, _
srcRange As String, _
TTL As Boolean, _
outArr As Variant)
Dim myConn As ADODB.Connection, myCmd As ADODB.Command
Dim HDR As String, myRS As ADODB.Recordset, RS_n As Integer, RS_f As
Integer
Dim Arr

Set myConn = New ADODB.Connection
If TTL = True Then HDR = "Yes" Else HDR = "No"
myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & srcFile & ";" & _
"Extended Properties=""Excel 8.0;" & _
"HDR=" & HDR & ";IMEX=1;"""
Set myCmd = New ADODB.Command
myCmd.ActiveConnection = myConn
If srcSheet = "" _
Then myCmd.CommandText = "SELECT * from `" & srcRange & "`" _
Else myCmd.CommandText = "SELECT * from `" & srcSheet & "$" &
srcRange & "`"
Set myRS = New ADODB.Recordset
myRS.Open myCmd, , adOpenKeyset, adLockOptimistic
ReDim Arr(1 To myRS.RecordCount, 1 To myRS.Fields.Count)
myRS.MoveFirst
Do While Not myRS.EOF
For RS_n = 1 To myRS.RecordCount 'lignes
For RS_f = 0 To myRS.Fields.Count - 1 'colonnes
Arr(RS_n, RS_f + 1) = myRS.Fields(RS_f).Value
Next
myRS.MoveNext
Next
Loop
myConn.Close
Set myRS = Nothing
Set myCmd = Nothing
Set myConn = Nothing

outArr = Arr

End Sub

Function IsFileOpen(filename As String)
Dim filenum As Integer, errnum As Integer

On Error Resume Next
filenum = FreeFile()
Open filename For Input Lock Read As #filenum
Close filenum
errnum = Err
On Error GoTo 0
Select Case errnum
Case 0
IsFileOpen = False
Case 70
IsFileOpen = True
Case Else
'Error errnum
End Select
End Function
End Sub
Denys
Le #24096781
Bon... voici le résultat qui fonctionne...

With ActiveSheet

Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(Arr, 1),
UBound(Arr, 2)) = Arr

End With

Merci pour votre temps

Denys
Publicité
Poster une réponse
Anonyme