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
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
A voir également:
- Copier des cellules à la suite
- Excel additionner des cellules - Guide
- Copier une vidéo youtube - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller des cellules excel - Guide
- Super copier - Télécharger - Gestion de fichiers
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
3 avril 2014 à 07:52
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
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
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
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
Cordialement,
Frygow
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
5 avril 2014 à 16:25
5 avril 2014 à 16:25
Sans plus de précisions pour ce qui fait changer B17
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
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
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
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
D'avance merci,
Frygow
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
6 avril 2014 à 21:25
6 avril 2014 à 21:25
Et ben voilà !
je te poste une proposition de main dans la matinée
je te poste une proposition de main dans la matinée
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
7 avril 2014 à 11:22
7 avril 2014 à 11:22
Bonjour,
les 3 cellules sont dans la m^me feuille.
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
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
7 avril 2014 à 11:32
7 avril 2014 à 11:32
La maquette de travail
https://www.cjoint.com/?3DhlGcmK79u
https://www.cjoint.com/?3DhlGcmK79u
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
7 avril 2014 à 13:01
Merci beaucoup, ça marche exactement comme je le voulais :)
Merci des conseils et de la solution :)
Frygow
Merci des conseils et de la solution :)
Frygow