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
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