Selection de plage en VBA, problème de code

[grokouic]

Bonjour à tous,

Je cherche à copier une plage d'un onglet dans une zone dans autre onglet par macro

il s'agit d'une zone de 11 cellule sur la même colonne, et ce pour des données enregistrées toutes les 100 lignes.

Mon code est le suivant (rédigé avec l'aide du forum..)

Dim numeroactif As Integer

numeroactif = InputBox("saisissez le numéro de l'actif à extraire", "EXTRACTION d'ACTIF")

Sheets("HypothèsesStockage").Select
    Range(Cells((100 * Val(numeroactif) + 1), 3), ActiveCell.Offset(10, 0)).Select
    Selection.Copy
    Sheets("ACTIFhypothèses").Select
    Range("zone1").Select
    Selection.PasteSpecial Paste:=xlPasteValues

Mon problème c'est que ce n'est jamais une zone de 11 cellules sur une colonne (offset) qui est selectionnée comme copie mais une zone un peu aléatoire

l'un de vous, de son oeil expert, pourrait-il m'indiquer ce qui ne va pas ?
merci à tous

 

[Sylvain]

Re : Selection de plage en VBA, problème de code

Bonjour,

une idée :

Dim numeroactif As Integer

numeroactif = InputBox("saisissez le numéro de l'actif à extraire", "EXTRACTION d'ACTIF")

Sheets("ACTIFhypothèses").Range("zone1").value=Sheets("HypothèsesStockage").Range(Cells((100 * Val(numeroactif) + 1), 3), Cells((100 * Val(numeroactif) + 1)+10, 3)).value

A+

 

[grokouic]

Re : Selection de plage en VBA, problème de code

Merci pour la simplification du code Sylvain,

j'avais en effet pensé à rentrer le calcul plutôt que d'utiliser offset, mais pour ma culture personnelle, qqun connait-il une astuce pour utiliser offset plutôt que de répéter le calcul?

je ne comprends pas pourquoi cela ne marche pas

Arnaud

 

[Sylvain]

Re : Selection de plage en VBA, problème de code

une idée avec offset :

Dim numeroactif As Integer

numeroactif = InputBox("saisissez le numéro de l'actif à extraire", "EXTRACTION d'ACTIF")

Sheets("ACTIFhypothèses").Range("zone1").Value = Sheets("HypothèsesStockage").range("A1:A11).offset(100 * Val(numeroactif), 2).Value

A+