code VBA - copier coller avec conditions

[saelie]

Bonjour a tous,

j'ai essaye de coder en VBA une macro qui devrait me permettre de copier une liste d'une feuille excel dans une autre feuille excel, et de coller toujours a partir de la meme cellule. C'est a dire que si la liste a deja ete copiee une fois et que l'on souhaite la mettre a jour, il faut supprimer les informations avant de coller les nouvelles (et imserer des lignes sil ny a pas assez de place).

Je suis novice, je pense avoir trouve la logique du code, mais je dois faire des erreurs sur la syntaxe, car le debugger bloque sur une simple selection.... Pour le moment je n'ai pas encore code le copier coller car l'insertion des lignes ne fonctionne deja pas...

Le debugger bloque la dessus: Worksheets("Additional Cost").Range("B1").Activate

Pouvez-vous m'aider s'il vous plait?

Voici mon code:

Sub Mymacro()
Dim x As Range
Dim i As Integer
i = 1
Dim Val As Integer


Worksheets("Invoice").Cells.Find("Net Total Amount", , xlValues, xlPart, , , False).Activate
Ligne = ActiveCell.Row

If Ligne <> 50 Then

Rows("49:" & Ligne - 2).Select

Selection.EntireRow.Delete

Worksheets("Additional Cost").Range("B1").Activate
Val = ActiveCell.Value

If Val <> 0 Then
While i < Val
Worksheets("Invoice").Range("A49").Select
Selection.EntireRow.Insert


i = i + 1

Wend


Else
Exit Sub
End If

Else


Worksheets("Additional Cost").Range("B1").Activate
Val = ActiveCell.Value

If Val <> 0 Then
While i < Val
Worksheets("Invoice").Range("A49").Select
Selection.EntireRow.Insert
i = i + 1

Wend


Else
Exit Sub

End If

End If

End Sub

 

[Pierrot93]

Re : code VBA - copier coller avec conditions

Bonjour,

si la feuille n'est pas déjà active, il faut le faire en 2 temps :

Worksheets("Additional Cost").Activate
Range("B1").Select

A noter les "select" et "activate" sont rarement utiles en vba...

tu pourrais coder par excemple directement ceci :

Val = Worksheets("Additional Cost").Range("B1").Value

bonne journée
@+

 

[saelie]

Re : code VBA - copier coller avec conditions

Merci beaucoup pour ta reponse, maintenant en effet ca ne bloque plus sur cette ligne de code!

Mais par contrem ca bloque sur le code qui realise la recherche (find, premiere ligne de code) alors que avant ca ne boquait pas... Y aurait-il une explication?

 

[Pierrot93]

Re : code VBA - copier coller avec conditions

Re,

peut être que la valeur recherchée n'est pas trouvée ??? sans plus de détails, difficile à dire....