Comparer 2 cellules et coller des cellules

Fermé
vic3ntito - 24 oct. 2011 à 17:50
Bonjour,

débutant sur vb j'arrive à écrire se que je veut faire mais pas à le développer
voici la manipe si vous pouvez me la completer pour quel fonctionne.

SUB

x = 5 'ligne Feuille ''Annexe6 STC''
xx = 11 'ligne Feuille ''Annexe2 STC''
y = 1 'Colonne Feuille ''Annexe6 STC''
yy= 2 'Colonne Feuille ''Annexe2 STC''


* Do while dans feuille ''Annexe6 STC'' [x ; xx] >< '' ''

* if dans feuille ''Annexe6 STC'' [x ; y] = feuille ''Annexe2 STC'' [xx ;yy] then

* sélectionne feuille ''Annexe6 STC'' [x ; xx + i] copie
* sélectionne feuille ''Annexe2 STC'' [y ; yy - i] colle
* sélectionne feuille ''Annexe6 STC'' [x ; xx + i] copie
* sélectionne feuille ''Annexe2 STC'' [y ; yy - i] colle
* end if

*x = x+1
* Loop

end


merci au volontaire

A voir également: