Atteindre

[Famu]

Encore moi !

Comment atteindre la dernière cellule d'une plage de donnée en VBA :

10027
10027
10027
10039C
10039C
10040AW

Dans l'exemple ci-dessus, la ref. 10040AW


Merci, merci,
merci...

Famu.

 

[Alain]

bonjour Famu

Quelques explications : En VBA, les cellules s'appelle range et les feuilles sheets, lorsque tu veux indiquer à la macro une cellule, tu utilises la synthaxe :
Sheets('nomdelafeuille').range('adressedelacellule') ainsi en reprenant l'exemple de la pièce jointe :
La cellule B1 de la feuille Archive =
Sheets('archive').range('B1')
Si maintenant dans cette cellule tu veux copier la cellule B1 de la feuille saisie :
Sheets('archive').range('B1')=sheets('saisie').range('B1')
Comme tu ne sais pas le numéro de la derniere ligne utilisable dans la feuille archive, on utilise une variable :
derligne = sheets('archive').Range('a65536').End(xlUp).Row + 1
dans derligne est stockée le numéro de la derniere ligne, donc :
sheets('archive').range('B'&derligne)=sheets('saisie').range('B1')
La macro à placer dans le module 1 de la feuille, pourrait ressembler à ceci :

Public Sub archivage()
Dim derligne As Integer
derligne = Sheets('archive').Range('a65536').End(xlUp).Row + 1
Sheets('archive').Range('a' & derligne) = Sheets('saisie').Range('B1')
Sheets('archive').Range('B' & derligne) = Sheets('saisie').Range('B2')
Sheets('archive').Range('C' & derligne) = Sheets('saisie').Range('B3')
Sheets('archive').Range('D' & derligne) = Sheets('saisie').Range('B4')
End Sub

En espérant avoir été didactique.

 

[excalibur]

bonjour alain , le forum quelques exemples utiles trouve sur le net salutations [file name=dercell.zip size=8973]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dercell.zip[/file]

 

[Famu]

Merci Alain, je vais travailler ça.

Ciao.