Copier des valeurs à destination d'une celllule précise en VBA

[pmazur]

Bonjour à tous,
Après avoir parcouru des forums j'ai décidé de m'inscrire et de poser la question qui m'empeche d'avancer.
Je débute coté macros et j'arrive pas à adapter une macro à mon problème :

Je voudrais copier à partir de l'onglet BALANCE N tous les N° de comptes de la colone H commencant par 261.
Et je voudrais les coller dans l'onglet IMMO FI à partir de la ligne A10 et c'est bien ça mon problème : j'ai réussi à transfomer une autre macro pour copier les données voulues, mais impossible de les coller à partir de A10 : j'arrive juste à les coller à la fin de mon tableau.

voici ma macro :

Sub immofi()


'Copie les comptes de la classe 261 (Value = "261") de la balance N

Dim i&
With Sheets("BALANCE N")
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
Select Case .Cells(i, 6).Value
Case "261"
If .Cells(i, 6).Value = "261" Then
.Cells(i, 8).Copy Sheets("IMMO FI").Cells(Rows.Count, 1).End(xlUp)(2)
End If
End Select
Next i
End With


End Sub


Si quelqu'un à la solution , ca serait avec tous mes remerciements 😎

 

[WDAndCo]

Re : Copier des valeurs à destination d'une celllule précise en VBA

Bonjour le Forum et pmazur

"Je voudrais copier à partir de l'onglet BALANCE N tous les N° de comptes de la colone H commencant par 261".

If .Cells(i, 6).Value = "261" Then
donc
If Left(.Cells(i, 6).Value, 3) = "261" Then
Peut être !

 

[pmazur]

Re : Copier des valeurs à destination d'une celllule précise en VBA

Merci pour ta réponse ,

en fait mon problème principal c'est qu'en exécutant la macro les résultats ( qui me vont bien) se collent sur la derniere ligne vide de l'onglet IMMO FI alors que je voudrais que la copie s'effectue à partir de la cellule A10.