[XL-2000] enregistrement des modifications [Résolu]

[kaboche]

Bonjour à toutes et tous,

Je dispose dune BDD qui va subir des MAJ importantes. Je voudrais garder une trace des personnes et des lignes excel qui ont subit une MAJ.
Non pas toutes les modifications mais juste la porte d'entrée qui est un code unique à chaque ligne

Le must serait d'enregistrer le nom de l'ordi du dernier utilisateur et en dessous les codes qui ont subit une MAJ, en sachant que le nombre de MAJ par utilisateur de ne 'excéder 154 lignes, ainsi que la date de MAJ. Comment enregistrer ce "rapport" sur une feuille excel et à la suite, c'est-à-dire sans écraser les anciennes données?

exemple :

Dernier utilisateur   Code MAJ    Date
FPO                   125694      19.10.2011
FPO                   125656      19.10.2011
EGE                   153649      20.10.2011

Merci de votre aide,

Kaboche

[Nako_lito]

tu veux enregistrer les informations sur la meme feuille que la liste des users ou qqp ailleurs ?

[kaboche]

non, sur un worksheet différent !

[Nako_lito]

dans ce cas là, il te faut rajouter une feuille a ton classeur, et pour chaque ligne de la feuille initiale, renseigner ton "Dernier utilisateur/Code MAJ/Date"

Tu peux récupérer les information d'une cellule avec .range(x,y).

tu aura qqc du genre :

pour chaque ligne dans "feuille 1"
"feuille 2".range("A" & ligne.row) = Dernier utilisateur/Code MAJ/Date
fin pour chaque

[kaboche]

Merci mais je ne vois pas trop comment je peux codifier tout ça.
C'est bien la le problème, je suis novice et je ne vois pas trop les lignes de codes à taper !

[Jean-Pierre49]

Bonjour
Une piste

Pour le nom de la machine

Code :

Environ("COMPUTERNAME")

Pour le nom du login

Code :

Environ("username")

Tu dis

[kaboche]

merci jean-pierre, nickel pour cette donnée

[Nako_lito]

humm :/ pour le code, ca fait un moment que je n'ai pas touché a VBA, mais je dirais :

Code :

1
2
3
 For Each Cell In ThisWorkbook.Sheets("Feuil1").Range("A1").CurrentRegion.Rows
        ThisWorkbook.Sheets("Feuil2").Cells(Cell.Row, 1) = "toto"
Next Cell

Par contre, attention avec la méthode que j'utilise, a savoir le .CurrentRegion, il va te retourner le nombre de ligne de toute les cellules attenante a A1.

sur tu as, mettons :
A1 toto
A2 titi
A3
A4 tata

la CurrentRegion.Rows de A1 te retournera 2.
si tu veux qu'ils te retourne 4 (en sachant qu'une ligne n'est pas utilisée et que tu aura un enregistrement "pour rien")
tu peux utiliser la méthode :

.Range("A65536").End(xlUp).Row --> retourne 4.

ensuite tu peux renseigner des condition en spécifiant que si la valeur dans Ax est vide, tu ne rempli pas dans la seconde feuille, mais tu laisse quand meme un blanc (pour ne pas créer de décallage).