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

[GDINFO]

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​

 

[GDINFO]

en gros c'est enchainer la copie du contenu dans A1 puis le rajout de +RJED

je peux vous envoyer mon fichier PROD vide pour comprendre

 

[sylvanu]

C'eût été trop simple de faire une demande initiale avec tous les besoins ?
Ci joint la PJ 5 !!! avec comme exemple :

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

 

[sylvanu]

je peux vous envoyer mon fichier PROD vide pour comprendre

Il eût été de loin préférable de l'envoyer au post #1. On aurait gagné beaucoup de temps.

 

[GDINFO]

C'eût été trop simple de faire une demande initiale avec tous les besoins ?
Ci joint la PJ 5 !!! avec comme exemple :

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é

 

[GDINFO]

Merci beaucoup, je vais avancé

Merci de votre aide , j'ai adapté a ma prod et cela fonctionne

Mais si je veux limité en nombre de ligne ?

mettons de la ligne 3 a la ligne 20

Merci de votre patience

 

[sylvanu]

Mais si je veux limité en nombre de ligne ? mettons de la ligne 3 a la ligne 20

Lignes de 3 à 20, colonne de 3 à 11 :

If ActiveCell.Row >= 3 And ActiveCell.Row <= 20 And ActiveCell.Column >= 3 And ActiveCell.Column <= 11 Then

ou encore, plus simple :

If Not Application.Intersect(ActiveCell, Range("C3:K20")) Is Nothing Then

 

[GDINFO]

J'avais essayé la première solution avec une erreur de syntaxe, malgres mes recherches de comprehension

Merci

 

[GDINFO]

J'avais essayé la première solution avec une erreur de syntaxe, malgré mes recherches de compréhension

Merci

Je viens de reprendre la 1ére solution et cela fonctionne

Merci encore

 

[GDINFO]

Merci encore de votre aide

une autre question basic

j'ai 12 feuilles qui portent le nom de janvier a décembre

et dans chacune d'elles je voudrais une macro qui me verrouille et déverrouille les cellules H2, S2,et AA2

est ce possible , je pense que oui

Merci

 

[sylvanu]

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 :

Selection.Locked = False
ActiveSheet.Protect "Mot de passe"
ActiveSheet.Unprotect "Mot de passe"

Mais là, on sort du titre de ce fil.