Copier des valeurs à destination d'une celllule précise VBA
Bonjour à tous,
Après avoir parcouru des forums j'ai décidé de m'inscrire et de poser la question qui m’empêche 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 colonne H commençant 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 à transformer 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 , ça serait avec tous mes remerciement.
Bonjour,
essaie ceci (non testé)
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
"
If left( .Cells(i, 6).Value,3) = "261" Then
.Cells(i, 8).Copy Sheets("IMMO FI").Cells(Rows.Count, 1).End(xlUp)(2)
End If
Next i
End With
End SubMerci pour ce code, mais le problème est toujours là.
Le code copie le résultat à la fin du tableau (cellule A145) et non à partir de la cellule A10.
Si il y a une autre proposition, je suis preneur ...
Merci Banzai64, c'est exactement ce que je cherchais.
Par contre j'ai essayé d'adapter le code car j'aimerais le faire aussi pour les comptes 267 et 274 mais le code s’arrête après la copie du 261.
Auriez vous une idée???
Merci d'avance.
Bonjour et merci Banzai64 c'est exactement ce que je voulais.
Merci encore.