Bonjour à tous,
J'ai une base de données de laquelle je souhaite que les utilisateurs puissent exporter les lignes qui ont été modifiées (Ils ont accès à la base au travers d'Usf qui leurs servent d'interfaces).
Grâce au coup de mais que l'on ma donné, j'exporte maintenant les lignes modifiées dans un classeur Excel.
Je voudrais pouvoir "cryter" les données contenues dans toutes les cellules <>""
J'ai trouvé une fonction Cryptage/decryptage qui serait amplement suffisante pour mon apli. (développée semble-t-il par "AV" .. merci à lui 🙂 ):
https://www.excel-downloads.com/threads/crypter-les-numes-de-candidats.60638/
Mon problème est que j'extrais les lignes modifiées dans une feuille temporaire et je voudrait donc crypter les cellules non vides (pour ne pas avoir de 0) et que je ne sais pas comment m'y prendre.
J'ai penser créer une feuille spécifique dans laquelle j'exporterais et crypterais une par une les cellule non vides:
là ou j'ai mis des point ?? c'est làou il faudrait demander de copier en cryptant sur la feuille Extraction2
Quelqu'un pourrait me guider ?
Cordialement
J'ai une base de données de laquelle je souhaite que les utilisateurs puissent exporter les lignes qui ont été modifiées (Ils ont accès à la base au travers d'Usf qui leurs servent d'interfaces).
Grâce au coup de mais que l'on ma donné, j'exporte maintenant les lignes modifiées dans un classeur Excel.
Je voudrais pouvoir "cryter" les données contenues dans toutes les cellules <>""
J'ai trouvé une fonction Cryptage/decryptage qui serait amplement suffisante pour mon apli. (développée semble-t-il par "AV" .. merci à lui 🙂 ):
https://www.excel-downloads.com/threads/crypter-les-numes-de-candidats.60638/
Mon problème est que j'extrais les lignes modifiées dans une feuille temporaire et je voudrait donc crypter les cellules non vides (pour ne pas avoir de 0) et que je ne sais pas comment m'y prendre.
J'ai penser créer une feuille spécifique dans laquelle j'exporterais et crypterais une par une les cellule non vides:
Code:
With Sheets("Extraction")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
For Lig = 2 To DerLig
On Error Resume Next
If .Range("A1:AD65000").Cells.Value <> "" Then
'???????????????
End If
On Error GoTo 0
là ou j'ai mis des point ?? c'est làou il faudrait demander de copier en cryptant sur la feuille Extraction2
Quelqu'un pourrait me guider ?
Cordialement