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

GDINFO · 24 Mai 2022

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 · 24 Mai 2022

GDINFO à dit:
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 · 24 Mai 2022

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

sylvanu · 24 Mai 2022

GDINFO à dit:
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 · 24 Mai 2022

sylvanu à dit:

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é

GDINFO · 25 Mai 2022

GDINFO à dit:
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 · 25 Mai 2022

GDINFO à dit:
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 :

VB:

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

ou encore, plus simple :

Code:

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

GDINFO · 25 Mai 2022

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

Merci

GDINFO · 25 Mai 2022

GDINFO à dit:
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 · 26 Mai 2022

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 · 26 Mai 2022

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.

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

GDINFO

XLDnaute Junior

Pièces jointes

Pièces jointes

GDINFO

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

GDINFO

XLDnaute Junior

GDINFO

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

GDINFO

XLDnaute Junior

GDINFO

XLDnaute Junior

GDINFO

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Discussions similaires

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

XLDnaute Junior

Pièces jointes​

Pièces jointes

XLDnaute Junior

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Junior

XLDnaute Junior

XLDnaute Barbatruc

Discussions similaires

Pièces jointes