macro et objet : comment?

Re : macro et objet : comment?

Bonjour ccdouble6

A priori, d'après le message d'erreur que tu donnes, ca ne viendrait pas de l'affectation que tu as faites mais du code même de ta macro.

Si tu pouvais joindre un joindre un fichier on pourrait t'aider un peu plus.

Bon week end
@+

Re : macro et objet : comment?

En fait j'ai juste inséré une zone de texte puis j'ai cliqué droit pour lui affecter la macro collée ci-dessous :


Sub NouvelleLigneAuDessus()
' Insère une ligne au-dessus de la ligne qui contient la cellule active
' et y recopie les formules qu'elle contient
'Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
Dim i
ActiveCell.EntireRow.Insert
ActiveCell.Range("A2").Select
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig - 1, 1), Cells(ZtNumLig - 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig - 1, i).HasFormula Then
Cells(ZtNumLig - 1, i).Clear Contents
End If
Next i
End Sub


Peut-être faut-il metre qqchose entre les () à côté du titre je ne sais pas, je suis vraiment largué dans les associations macro-objet, peux-tu m'expliquer la méthode s'il te plait?
- pour affecter une macro à une zone de texte
- pour affecter une macro à une touche du clavier.
Merci d'avance!! 🙂

Re : macro et objet : comment?

Salut ccdouble6, Pierrot93,

En fait, comme l'avait deja dis Pierrot, le problème ne provenait pas de l'affectation que tu as faites, mais bel et bien du code de la macro. Il te suffit d'ailleur de modifier la ligne Cells(ZtNumLig - 1, i).Clear Contents par Cells(ZtNumLig - 1, i).ClearContents (dans ton code, il y a un espace entre Clear et Contents alors qu'il n'en faut pas).

Pour ce qui est d'affecté une macro a un raccourci clavier, va voir ces 2 liens proposés par mon ami Brico.

lien 1
lien 2

@+

Re : macro et objet : comment?

Super!
Merci Porcinet82, je vais corriger ça et... apprendre 😀
Bon dimanche @+!!