Discussion :

[Runsh63]

Bonjour,

Ci-joint un bout de code qui bugge sans que je comprenne pourquoi, les noms de mes pages existant bien... Malgré ça j'ai le fameux "Application-defined or object-defined error". Pouvez-vous m'expliquer pourquoi SVP ? Je veux tout simplement coller deux colonnes de deux feuilles différentes sur une troisième, les données de l'une à la suite des données de l'autre

D'avance merci !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'Fusionner RAN et BS YTD
 
    With Sheets("Retreated Infoview data")
        .Range("A2:" & .Range("A2").End(xlDown)).Copy Sheets("Compile BS").Range("A2").End(xlDown).Offset(1, 0)
    End With

Cordialement,

Runsh

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("A2:A" & .Range("A2").End(xlDown).Row)

[Runsh63]

Oups... Et là, je passe pas pour un abruti là?!?
Merci beaucoup mercatog, pas la première fois que vous me dépannez (en moins de deux minutes montre en main, vous êtes branché 24/24 - 7/7 sur le forum en appuyant constamment sur F5, c'est pas possible autrement...)

Vous saluant bien bas et vous souhaitant un bon WE !

Cordialement,

Runsh

[mercatog]

Pour plus de sécurité utilise plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("A2:A" & .Cells(.Rows.count,1).End(xlUp).Row)

[Runsh63]

Je suis plutôt bête et méchant et j'obéis car je sais que tu es considéré par tes pairs comme un monstre en VBA, mais peux-tu STP m'expliquer en quoi c'est plus fiable ? J'aime bien comprendre ce que j'écris, et malheureusement je suis vraiment néophyte en programmation VBA...

Merci d'avance !

Runsh

[mercatog]

Si tu as des données en A2, A3, A4 vide et donnée en A5 en Feuil4
Essaies ces code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub TEST()
 
With Sheets("Feuil4")
    MsgBox .Range("A2").End(xlDown).Row
    MsgBox .Cells(.Rows.Count, 1).End(xlUp).Row
End With
End Sub

le premier te donnera 3
le 2ème 5

Maintenant tu as seulement une valeur en A2, les autres en dessous sont toutes vides

le premier donnera quoi?


PS: J'apprends encore dans ce forum par passion.

[Runsh63]

Bonjour mercatog,

En effet, dans le deuxième cas, la réponse ramenée devrait être 1,048,576 (je suis sous XL2007), la deuxième me ramènera bien 2. J'ai compris en quoi c'est plus fiable, merci beaucoup et bon début de semaine !

Runsh