Macro sur cellule selectionnée

[Fredox]

Bonjour,

J'ai fait cette macro pour compléter automatiquement des cellules.
Cela fonctionne très bien mais ne peu s'applique qu'a la ligne 19 en A, D, O, et M.

Sub Bidon_10(Control As IRibbonControl)

    Range("A19").Value = "=L80"
    Range("D19").Value = "=A80"
    Range("O19").Value = "1"
    Range("M19").Value = "=O80"

End Sub

Est-il possible que cela se fasse sur la cellule A sélectionnée avec la souris, puis compléter les cellules D O et M automatiquement ?


Merci

 

[Staple1600]

Re : Macro sur cellule selectionnée

Bonjour à tous


Oui c'est possible en utilisant Activecell.Row par exemple

EDITION: Essaies avec ceci

Sub test()
Dim lig&
lig = ActiveCell.Row
    Range("A" & lig).Value = "=L80"
    Range("D" & lig).Value = "=A80"
    Range("O" & lig).Value = "1"
    Range("M" & lig).Value = "=O80"
End Sub

 

[Fredox]

Re : Macro sur cellule selectionnée

Oui, impeccable ca fonctionne à merveille !
Merci

C'est possible d'ajouter des valeurx aux lignes suivante ? (si j'ai sélectionné A15, continuer sur A16, A17...)


Merci.

 

[Staple1600]

Re : Macro sur cellule selectionnée

RE


Il suffit d'écrire
Range("A" & lig + 1).value
ou Range("A" & lig).offset(1).value

etc..

 

[Regueiro]

Re : Macro sur cellule selectionnée

Bonjour à Tous
Avec une procédure évènementielle.
Code à mettre dans la Feuille concernée :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([A1:A79], Target) Is Nothing Then
Set Aselection = Application.InputBox("Selectionner la plage de cellule", Type:=8)

For Each cel In Aselection
cel.Value = "=$L$80"
cel.Offset(, 3).Value = "=$A$80"
cel.Offset(, 12).Value = "=1"
cel.Offset(, 14).Value = "=$O$80"
Next cel
End If
Cancel = True
End Sub