XL 2019 Macro VBA pour copie contenu d'une cellule dans une autre

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion GDINFO
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

GDINFO

XLDnaute Junior
Supporter XLD
Bonjour

je galère toujours mais j'avance

le but est que je fasse une macro qui lors de son activation me copie le contenu de la cellule sélectionnée dans une autre cellule de sauvegarde et reste bien sur sur ma cellule de depart

Exemple : je sélectionne la cellule de A3 jusqu'à K3 et lors de la sélection le contenu se recopie dans A1 mais reste sur la cellule sélectionnée départ

Merci de votre aide

Pièces jointes​

 

Pièces jointes

Trier par date Trier par votes
sylvanu à dit:
Bonjour Gdinfo,

A3:K3 est une plage, comment recopie t-on une plage dans une cellule ?
Dans votre fichier A1= H3. Pourquoi H3 ?
Cliquez pour agrandir...
je me suis mal expliqué

Quand je sélectionne une cellule A3 ou B3 ou jusqu'a K3 , (une seule cellule a la fois bien sur, pas une selection de cellule)

Pour dire plus simple

Si je suis sur la cellule A3 et je lance la macro le contenu se copie dans A1 et je peux modifié la cellule A3 , mais je garde en visuel l'ancien contenu de A3 , jusqu'a une nouvelle selection de cellule
 
Vote positif 0 Vote négatif
GDINFO à dit:
je me suis mal expliqué

Quand je sélectionne une cellule A3 ou B3 ou jusqu'a K3 , (une seule cellule a la fois bien sur, pas une selection de cellule)

Pour dire plus simple

Si je suis sur la cellule A3 et je lance la macro le contenu se copie dans A1 et je peux modifié la cellule A3 , mais je garde en visuel l'ancien contenu de A3 , jusqu'a une nouvelle selection de cellule
Cliquez pour agrandir...
Et dans cette macro , je voudrais rajouter + 1 a la valeur qu'il y avait.
 
Vote positif 0 Vote négatif
Re,
GDINFO à dit:
Et dans cette macro , je voudrais rajouter + 1 a la valeur qu'il y avait.
Cliquez pour agrandir...
En PJ deux exemples possibles.
Feuil1, c'est automatique il suffit de cliquer sur une cellule dans A3:K3 pour recopier la valeur+1 en A1, avec :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A3:K3")) Is Nothing Then
         [A1] = Target + 1
    End If
Fin:
End Sub
En Feuil2 avec un bouton et la macro:
Code: 
Sub Copie()
    If ActiveCell.Count > 1 Then Exit Sub
    If ActiveCell.Row = 3 And ActiveCell.Column >= 3 And ActiveCell.Column <= 11 Then [A1] = ActiveCell.Value + 1
End Sub

Par contre la phrase "rajouter + 1 a la valeur qu'il y avait." est ambiguë, on ne sait pas si on rajoute +1 à la cellule ou à A1.
En PJ2, c'est pareil, mais on ajoute +1 à la cellule et non à A1. Avec :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A3:K3")) Is Nothing Then
        Application.EnableEvents = False
        [A1] = Target
        Target = Target + 1
        Application.EnableEvents = True
    End If
Fin:
End Sub

et

Sub Copie()
    If ActiveCell.Count > 1 Then Exit Sub
    If ActiveCell.Row = 3 And ActiveCell.Column >= 3 And ActiveCell.Column <= 11 Then
        [A1] = ActiveCell.Value
        ActiveCell.Value = ActiveCell.Value + 1
    End If
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
sylvanu à dit:
Re,

En PJ deux exemples possibles.
Feuil1, c'est automatique il suffit de cliquer sur une cellule dans A3:K3 pour recopier la valeur+1 en A1, avec :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A3:K3")) Is Nothing Then
         [A1] = Target + 1
    End If
Fin:
End Sub
En Feuil2 avec un bouton et la macro:
Code: 
Sub Copie()
    If ActiveCell.Count > 1 Then Exit Sub
    If ActiveCell.Row = 3 And ActiveCell.Column >= 3 And ActiveCell.Column <= 11 Then [A1] = ActiveCell.Value + 1
End Sub

Par contre la phrase "rajouter + 1 a la valeur qu'il y avait."
sylvanu à dit:
Re,

En PJ deux exemples possibles.
Feuil1, c'est automatique il suffit de cliquer sur une cellule dans A3:K3 pour recopier la valeur+1 en A1, avec :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A3:K3")) Is Nothing Then
         [A1] = Target + 1
    End If
Fin:
End Sub
En Feuil2 avec un bouton et la macro:
Code: 
Sub Copie()
    If ActiveCell.Count > 1 Then Exit Sub
    If ActiveCell.Row = 3 And ActiveCell.Column >= 3 And ActiveCell.Column <= 11 Then [A1] = ActiveCell.Value + 1
End Sub

Par contre la phrase "rajouter + 1 a la valeur qu'il y avait." est ambiguë, on ne sait pas si on rajoute +1 à la cellule ou à A1.
En PJ2, c'est pareil, mais on ajoute +1 à la cellule et non à A1. Avec :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A3:K3")) Is Nothing Then
        Application.EnableEvents = False
        [A1] = Target
        Target = Target + 1
        Application.EnableEvents = True
    End If
Fin:
End Sub

et

Sub Copie()
    If ActiveCell.Count > 1 Then Exit Sub
    If ActiveCell.Row = 3 And ActiveCell.Column >= 3 And ActiveCell.Column <= 11 Then
        [A1] = ActiveCell.Value
        ActiveCell.Value = ActiveCell.Value + 1
    End If
End Sub
Cliquez pour agrandir...
Oui demande ambigue
ou à A1.
En PJ2, c'est pareil, mais on ajoute +1 à la cellule et non à A1. Avec :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A3:K3")) Is Nothing Then
        Application.EnableEvents = False
        [A1] = Target
        Target = Target + 1
        Application.EnableEvents = True
    End If
Fin:
End Sub

et

Sub Copie()
    If ActiveCell.Count > 1 Then Exit Sub
    If ActiveCell.Row = 3 And ActiveCell.Column >= 3 And ActiveCell.Column <= 11 Then
        [A1] = ActiveCell.Value
        ActiveCell.Value = ActiveCell.Value + 1
    End If
End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
PJ2 parfait , je n'ai plus qu' adapté a mon fichier PROD , mais au lieu de faire +1 je vais devoir ajouter du texte ,mais je devrais y arriver

C'est pas la première fois que vous m'aider et je vous en remercie beaucoup, j'ai beaucoup appris avec votre aide
 
Vote positif 0 Vote négatif
GDINFO à dit:
PJ2 parfait , je n'ai plus qu' adapté a mon fichier PROD , mais au lieu de faire +1 je vais devoir ajouter du texte ,mais je devrais y arriver

C'est pas la première fois que vous m'aider et je vous en remercie beaucoup, j'ai beaucoup appris avec votre aide
Cliquez pour agrandir...
et si dans la cellule select il y a du texte et non du numérique , comment copier réellement le contenu, même si le +1 se fait pas c'est pas grave
 
Vote positif 0 Vote négatif
Il suffit de supprimer le +1, ça copiera la valeur quelle qu'elle soit numérique ou alpha :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A3:K3")) Is Nothing Then
         [A1] = Target
    End If
Fin:
End Sub
 
Vote positif 0 Vote négatif
ou mieux, copie la cellule et si celle ci est numérique on fait +1 sinon on ne fait rien. Avec :
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A3:K3")) Is Nothing Then
        [A1] = Target
        If IsNumeric(Target) Then
            Application.EnableEvents = False
            Target = Target + 1
            Application.EnableEvents = True
        End If
    End If
Fin:
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Derniere demande adaptative

j'ai cette macro

Sub SetValue_RJEcoD()
Const RJEd = "RJEd "
Call GetColors(ActiveCell)
ActiveCell.Value = ActiveCell.Value + RJEd
Call SetColors(ActiveCell)
ActiveCell.Characters(Start:=Len(ActiveCell.Value) - Len(RJEd) + 1, Length:=Len(RJEd)).Font.ColorIndex = 5
End Sub

et avant quelle s'execute je voudrais integre la votre qui me copie le contenu dans la cellue A1
 
Vote positif 0 Vote négatif
GDINFO à dit:
Derniere demande adaptative

j'ai cette macro

Sub SetValue_RJEcoD()
Const RJEd = "RJEd "
Call GetColors(ActiveCell)
ActiveCell.Value = ActiveCell.Value + RJEd
Call SetColors(ActiveCell)
ActiveCell.Characters(Start:=Len(ActiveCell.Value) - Len(RJEd) + 1, Length:=Len(RJEd)).Font.ColorIndex = 5
End Sub

et avant quelle s'execute je voudrais integre la votre qui me copie le contenu dans la cellue A1
Cliquez pour agrandir...
en gros c'est enchainer la copie du contenu dans A1 puis le rajout de +RJED
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
131
spike29
S
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
922
firecarl
F
D
  • Résolu(e)
Microsoft 365 vba récupérer valeur cellule d'une autre feuille
Réponses
3
Affichages
78
Diane272727
D
F
  • Question Question
XL 2021 VBA bouton pour copier le contenu d'une cellule
Réponses
3
Affichages
261
fuioplde
F
C
  • Question Question
Microsoft 365 Insérer le contenu d'une cellule dans le texte d'une autre cellule
Réponses
2
Affichages
474
chris427
C
G
  • Question Question
Microsoft 365 Résultat dans une cellule en fonction d'une autre cellule
Réponses
1
Affichages
59
vgendron
vgendron
nrdz83
  • Question Question
XL 2016 [RESOLU]Affichage texte et résultat d'une cellule dans une forme
Réponses
3
Affichages
98
nrdz83
nrdz83
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
196
Phil69970
Phil69970
D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
133
danielco
D
C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
103
TooFatBoy
TooFatBoy
N
  • Question Question
Microsoft 365 copie de cellule de plusieurs feuilles sur une autre
Réponses
2
Affichages
76
vgendron
vgendron
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
104
crocrocro
C
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
603
Max
M
P
  • Question Question
XL pour MAC MAC OS - question sur macro VBA pour gestion fichier budget
Réponses
0
Affichages
48
pamino
P
treza88
  • Question Question
Microsoft 365 Copie de couleur d'une cellule à une autre
Réponses
11
Affichages
639
Dranreb
Dranreb
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
527
Max
M
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
766
fanfan38
fanfan38
O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
299
Olihoes
O
V
  • Question Question
XL pour MAC texte dans une cellule en selectionnant une autre cellule
Réponses
14
Affichages
637
Oneida
Oneida
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
430
Phil69970
Phil69970
Retour