[RESOLU] : Recherche d'une macro speciale

MADAGASCAR · 22 Septembre 2015

Bonsoir EXCEL DOWNLOADS
Bonsoir tout le monde
SVP chers membres .. est ce qu'on peut faire ce genre d'une macro .. j'ai expliqué ce que j'aimerai avoir si vous pouvez m'aider bien sur dans "Feuil1".
Mille fois merci d'avance pour vos suggestions
Cordialement
MADA BLACK

CBernardT · 22 Septembre 2015

Re : Recherche d'une macro speciale

Bonjour MADAGASCAR et le Forum,

Une macro toute simple si j'ai bien compris !?

MADAGASCAR · 22 Septembre 2015

Re : Recherche d'une macro speciale

Bonsoir CBernardT
Merci 1000 fois pour votre aide ..votre suggestion
Surement vous m'avez mal compris .. svp si tu peux voir dans " Feuil1 "
Merci d'avance pour l'aide
Cordialement
MADA

CBernardT · 22 Septembre 2015

Re : Recherche d'une macro speciale

Re,

Un nouvel essai !?

Sub copiercoller()
With Sheets("Feuil1")
ActiveCell = .Range("M19").Value
End With
End Sub

MADAGASCAR · 22 Septembre 2015

Re : Recherche d'une macro speciale

Bonsoir CBernardT
Merci pour votre impeccable code
C'est exactement ce que j'ai voulu voir et avoir
Merci encore une autre fois
C'est parfaitement résolu
Cordialement
MADA

mapomme · 22 Septembre 2015

Re : [RESOLU] : Recherche d'une macro speciale

Bonsoir MADAGASCAR, CBernardT,

Un autre essai tel que je l'avais interprété:

Quand on clique sur la forme, on active ou on inhibe le 'Mode copie valeur M19'.

Quand la forme indique "Actif" (fond rouge) alors le curseur se transforme en croix et toute future sélection (une seule cellule ou une zone) est remplie avec la valeur de M19. Un clique sur le bouton inhibe le 'Mode copie valeur M19'.

Le code est dans le module de feuille de Feuil1.

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xcell As Range
If ActiveSheet.Shapes("btCopie").TextFrame2.TextRange Like "*tif" Then
    Application.ScreenUpdating = False
    For Each xcell In Target
      If xcell.Address <> [m19].Address Then xcell = Range("m19").Value
    Next xcell
  End If
End Sub

Sub Cliquer()
Dim shp As Shape
  Set shp = ActiveSheet.Shapes("btCopie")
  With shp
    If .TextFrame2.TextRange Like "*tif" Then
      .Fill.ForeColor.RGB = RGB(221, 221, 221)
      .TextFrame2.TextRange = "Mode copie valeur M19" & vbLf & "Inhibé"
      Application.Cursor = xlDefault
    Else
      .Fill.ForeColor.RGB = RGB(255, 0, 0)
      .TextFrame2.TextRange = "Mode copie valeur M19" & vbLf & "Actif"
      DoEvents: Beep
      Application.Cursor = xlNorthwestArrow
    End If
  End With
End Subb

MADAGASCAR · 22 Septembre 2015

Re : [RESOLU] : Recherche d'une macro speciale

Bonsoir mapomme
Merci pour votre formidable code et fichier
Vraiment .. excellente idee de votre part
BRAVO mapomme
Encore merci
Cordialement
MADA

mapomme · 23 Septembre 2015

Re : Recherche d'une macro speciale

Bonsoir à tous,

Pour le fun et au cas où on aurait le clique ou la sélection un peu rapide (en mode bouton actif), rajout d'un bouton qui permet d'annuler successivement les dernières opérations de copie en valeur de M19, de la plus récente à la plus ancienne. Pour cela, on utilise une feuille masquée nommée 'Feuil1-Undo'.

nota: on restaure seulement le contenu précédent des cellules (constante, formule simple ou formule matricielle) puisque la copie n'affecte que le contenu des cellules et pas leur format.

nb: si pour une copie, le nombre de cellules modifiées dépasse le nombre de ligne max pour une feuille, alors l'opération d'annulation est impossible. Cela n'affecte pas l'annulation des copies antérieures ou postérieures. De toute façon, mieux vaut éviter pour une opération de copie donnée de le faire sur une très grande sélection car la méthode employée risque de prendre trop de temps d'exécution tant en copie qu'en annulation.

MADAGASCAR · 23 Septembre 2015

Re : [RESOLU] : Recherche d'une macro speciale

Bonsoir mapomme
BRAVO
merci pour vos formidables fichier
merci pour vos excellents codes
merci pour votre gentillesse et suivi de ce sujet
Cordialement
MADA BLACK

[RESOLU] : Recherche d'une macro speciale

MADAGASCAR

XLDnaute Occasionnel

Pièces jointes

CBernardT

XLDnaute Barbatruc

Pièces jointes

MADAGASCAR

XLDnaute Occasionnel

Pièces jointes

CBernardT

XLDnaute Barbatruc

MADAGASCAR

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

MADAGASCAR

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

MADAGASCAR

XLDnaute Occasionnel

Discussions similaires