Discussion :

[sherwoodd]

Bonjour

J ai un petit soucis, j ai environ 1500 fichiers Excel (tous de même type) avec 2 onglets
Le premier est une fiche signalétique
Le second est une liste de logiciel (issus d un inventaire par un soft de scann de machine) , liste variable bien sur avec des informations inutiles

Le but est de prendre du 2 eme onglet les softs a réinstaller et de les copier dans le premier onglet dans une cellule dédiée

S il n y avais qu une cellule le simple copier coller suffirais , mais il faut mettre a la suite tous les softs utiles dans cette même cellule , ce qui implique de sélectionner le contenue de la cellule de l onglet2 et de le copier dans la cellule de l onglet 1 et de faire un Alt enter pour passer a la ligne dans la même cellule et y recoller la suite par la même procédure

Je n arrive pas a sélectionner le contenue de la cellule pour pouvoir faire ma macro dans excel de façon a l appliquer a toutes mes fiches

Pouvez-vous m aider merci

[Fvandermeulen]

Bonjoour,
Au vu de ce que tu expliques, j'aurais tendance à 'compiler' tous les softs à copier dans une variable du genre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Softx = sheets("onglet2").cells(x, y)
Softx = Softx & " " & sheets("onglet2").cells(x, y)

x et/ou y représentant les lignes et colonnes à faire varier par une boucle pour couvrir ta plage, reste à voir comment tu défini quel soft doit être 'copié'

En espérant avoir pu te guider un peu...

[sherwoodd]

Merci
Valable si je prenais tous les softs, mais je dois les sélectionner manuellement pour l instant( j ai des remontes de la base de registre dont je n ai pas besoin) je désire simplement sélectionner ma cellule et la macro ( par touche de raccourci) sélectionne le contenu de la cellule, copie, et colle dans l autre onglet, et ainsi de suite, et colle dans la même cellule en dessous( avec alt+ enter pour insérer une ligne

[Fvandermeulen]

Re,
Je crois qu'on peut garder le même principe.
Admettons cellule cible =feuille1.cellA1 dont on récupère la valeur à ajouter via variable
Ca ferait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Test_Ajout_Data_Chr10()
 
'
MaSource = ActiveCell 'prend la valeur de la cellule active
MaCible = Sheets("Sheet1").Range("a1") 'Récupère la valeur actuelle
 
MaCible = MaCible & Chr(10) & MaSource 'Ajoute a la valeur actuelle la valeur de la cellule active à la ligne; Chr(10)
 
Sheets("Sheet1").Range("a1") = MaCible 
 
End Sub

Tu peux évidement déclancher ce code par raccourci clavier que tu définira toi même.

[sherwoodd]

Merci
Bien avec les variables, mais dans ce cas je n ai a chaque fois que la cellule A1
J aimerai pouvoir choisir manuellement n importe quelle cellule une a une et que la copie se fasse avec la macro , ce qui me permet un contrôle des softs choisis

[Fvandermeulen]

Désolé, mais là je suis perdu...
Tu veux que dans une cellule donnée (cellule cible, dans mon exemple A1) soit concaténé tous les soft que tu va sélectionner un par un en cliquant sur la cellule.
Si c'est bien ça, mon exemple doit fonctionner.
Si ce n'est pas toujours dans A1 qu'il faut concaténer, alors il faut savoir comment tu vas définir cette cellule cible.