Copier des cellules à la suite
Résolu
Frygow
Messages postés
4
Statut
Membre
-
Frygow Messages postés 4 Statut Membre -
Frygow Messages postés 4 Statut Membre -
Bonjour,
Je recherche une solution pour copier la même cellule (qui aura des valeurs variables) dans une autre cellule différente à chaque fois. Je m'explique, je souhaite copier la cellule A1 en B1, puis en réactivant la macro, copier la cellule A1 en B2, puis en B3, etc. Tout en conservant toutes les cellules. Quelqu'un aurait une idée?
Merci d'avance,
Cordialement,
Frygow
Je recherche une solution pour copier la même cellule (qui aura des valeurs variables) dans une autre cellule différente à chaque fois. Je m'explique, je souhaite copier la cellule A1 en B1, puis en réactivant la macro, copier la cellule A1 en B2, puis en B3, etc. Tout en conservant toutes les cellules. Quelqu'un aurait une idée?
Merci d'avance,
Cordialement,
Frygow
3 réponses
-
Bonjour
Si j'ai compris ta demande, tu voudrais qu'à chaque changement de valeur dans A1, la valeur soit mise dans la 1° cellule vide de la colonne B ?
Si oui: le changement dans A1 est il provoqué par une saisie dans A1 ?
Dans l'attente
-
Merci de la réponse. Alors, là c'était pour l'exemple, mais en fait je souhaiterais copier la valeur de la cellule B17 pour la mettre en O10 (qui n'est pas la première cellule vide de la colonne), puis coller la valeur B17 (qui aura changé) et la coller en O11, etc. Et non, le changement n'est pas provoqué par une saisie dans la cellule.
Cordialement,
Frygow-
Sans plus de précisions pour ce qui fait changer B17
Option Explicit
'---------
Sub compiler()
Dim Ligvide As Integer
Ligvide = Columns("O").Find("", Range("O9"), xlValues).Row
Cells(Ligvide, "O") = [B17]
End Sub
Il vaut éviter ce genre de technique:
Alors, là c'était pour l'exemple, mais en fait je souhaiterais ....
c'est idéal pour faire fuir un contributeur. expose ton problème réel car tous les renseignements utiles ,et seulement ceux qui sont utiles, sont importants comme ce qui m'amène à écrire ma première ligne -
Ok, alors, en détails : SI on écrit un nombre en J3, il subira un calcul automatique et donnera un résultat qui sera copié en B17. Je souhaite que ce résultat copié en B17 soit lui-même copié en N10. Ensuite en utilisant une macro, tout se supprime, sauf le résultat copié en N10. On écrit un nouveau nombre en J3, et cette fois-ci, je souhaite que le résultat obtenu en B17, soit copié en N11 et tout ça de manière "automatique".
D'avance merci,
Frygow -
-
-
Bonjour,
les 3 cellules sont dans la m^me feuille.
Option Explicit
'----
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligvide As Integer
If Target.Address = "$J$3" Then
Ligvide = Columns("N").Find("", Range("N9"), xlValues).Row
Cells(Ligvide, "N") = [B17]
End If
End Sub
Pour installer
-faire un coiper de la macro ci dessus
-Clic droit sur le nom d'onglet
-visualiser le code
- faire un coller de la macro
la macro est dans le module feuille de l'éditeur VBE
-
La maquette de travail
https://www.cjoint.com/?3DhlGcmK79u -
-
