VBA : Copier auto le contenu d'une cellule
Résolu
Awazagaga
Messages postés
33
Statut
Membre
-
Awazagaga Messages postés 33 Statut Membre -
Awazagaga Messages postés 33 Statut Membre -
Bonjour à tous,
Ma demande est assez simple mais je ne vois pas comment procéder.
Dans ma cellule W8 j'ai une liste déroulante, dont je vais changer plusieurs fois de choix.
Je voudrais que quand je sélectionne un choix de la liste, le choix se copie automatiquement dans la cellule X8 en s'empilant.
J'ai déjà fait le code pour que cela s'empile mais je n'ai pas trouvé le code qui me copie la valeur sans me copier la liste déroulante.
Voici mon code d'empilage (qui fonctionne) :
Ensuite j'ai une question très bête, et je m'en excuse, mais n'ayant pas eu de formation macro je ne sais pas comment faire...
Comment lancer un code sans cliquer sur un bouton ? Comme pour le code que je demande au dessus, ou comme une formule qui calcule automatiquement. (Très bête je l'avais dit..)
Merci à ceux qui m'ont lu, et surtout à ceux qui répondent,
Bien à vous,
Awzgg
Ma demande est assez simple mais je ne vois pas comment procéder.
Dans ma cellule W8 j'ai une liste déroulante, dont je vais changer plusieurs fois de choix.
Je voudrais que quand je sélectionne un choix de la liste, le choix se copie automatiquement dans la cellule X8 en s'empilant.
J'ai déjà fait le code pour que cela s'empile mais je n'ai pas trouvé le code qui me copie la valeur sans me copier la liste déroulante.
Voici mon code d'empilage (qui fonctionne) :
Range("X8").Value = Range("X8").Value & Chr(10) & Range("W8").Value
Ensuite j'ai une question très bête, et je m'en excuse, mais n'ayant pas eu de formation macro je ne sais pas comment faire...
Comment lancer un code sans cliquer sur un bouton ? Comme pour le code que je demande au dessus, ou comme une formule qui calcule automatiquement. (Très bête je l'avais dit..)
Merci à ceux qui m'ont lu, et surtout à ceux qui répondent,
Bien à vous,
Awzgg
1 réponse
-
Bonjour, il n'y aucune question bête, pour des tuto et cours en vba, tu en trouveras plein le net. Pour débuter, j'ai suivi ce cours qui est bien fait avec des captures d'écran
-
-
Salut Tyranausor,
j'ai enfin réussi ce que je voulais faire !
Voici mon code :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "W8" Then Application.Run "Feuil1.ASA" End Sub Sub ASA() Range("X8").Value = Range("X8").Value & Chr(10) & Range("W8").Value End Sub
Par contre, tout bête mais je n'arrive pas à l'étendre sur toute la colonne.. Et pour j'ai essayé :/
Pourrais-tu, s'il te plait, me donner une idée de comment procéder ?
bien à toi,
Awzgg
-
