Sujet Précédent Sujet Suivant

Copier des cellules à la suite

Résolu/Fermé
Frygow Messages postés 4 Date d'inscription jeudi 3 avril 2014 Statut Membre Dernière intervention 7 avril 2014 - 3 avril 2014 à 03:41
Frygow Messages postés 4 Date d'inscription jeudi 3 avril 2014 Statut Membre Dernière intervention 7 avril 2014 - 7 avril 2014 à 13:01
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
A voir également:

3 réponses

Réponse 1 / 3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
3 avril 2014 à 07:52
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

0
Réponse 2 / 3
Frygow Messages postés 4 Date d'inscription jeudi 3 avril 2014 Statut Membre Dernière intervention 7 avril 2014
5 avril 2014 à 13:00
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
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
5 avril 2014 à 16:25
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
0
Frygow Messages postés 4 Date d'inscription jeudi 3 avril 2014 Statut Membre Dernière intervention 7 avril 2014
6 avril 2014 à 11:22
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
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
6 avril 2014 à 21:25
Et ben voilà !

je te poste une proposition de main dans la matinée
0
Réponse 3 / 3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
7 avril 2014 à 11:22
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




0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
7 avril 2014 à 11:32
La maquette de travail
https://www.cjoint.com/?3DhlGcmK79u
0
Frygow Messages postés 4 Date d'inscription jeudi 3 avril 2014 Statut Membre Dernière intervention 7 avril 2014
7 avril 2014 à 13:01
Merci beaucoup, ça marche exactement comme je le voulais :)
Merci des conseils et de la solution :)

Frygow
0

Discussions similaires

Dessiner avec son clavier et avec des lettres
JSS -
Polodu33 -

78 réponses