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

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

  • Select.Copy.xlsm
    13.8 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
C'eût été trop simple de faire une demande initiale avec tous les besoins ?
Ci joint la PJ 5 !!! avec comme exemple :
VB:
Sub SetValue_RJEcoD()
    Const RJEd = "RJEd "
    If ActiveCell.Count > 1 Then Exit Sub
    If ActiveCell.Row = 3 And ActiveCell.Column >= 3 And ActiveCell.Column <= 11 Then
        [A1] = ActiveCell.Value
        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 If
End Sub
 

Pièces jointes

  • Select.Copy (5).xlsm
    15.6 KB · Affichages: 3

GDINFO

XLDnaute Junior
Supporter XLD
C'eût été trop simple de faire une demande initiale avec tous les besoins ?
Ci joint la PJ 5 !!! avec comme exemple :
VB:
Sub SetValue_RJEcoD()
    Const RJEd = "RJEd "
    If ActiveCell.Count > 1 Then Exit Sub
    If ActiveCell.Row = 3 And ActiveCell.Column >= 3 And ActiveCell.Column <= 11 Then
        [A1] = ActiveCell.Value
        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 If
End Sub
Merci beaucoup, je vais avancé
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
On ne peut pas protéger/déprotéger spécifiquement une cellule.
On peut déverrouiller une cellule par Format cellule/Protection et décocher Verrouillée, puis on met un mot de passe sur la feuille. Tout est inaccessible sauf cette cellule.
Donc il vous faut jouer avec :
VB:
Selection.Locked = False
ActiveSheet.Protect "Mot de passe"
ActiveSheet.Unprotect "Mot de passe"
Mais là, on sort du titre de ce fil.
 

Discussions similaires

Statistiques des forums

Discussions
311 730
Messages
2 081 989
Membres
101 856
dernier inscrit
Marina40