Méthode Intersect - Erreur(5) argument ou appel de procédure incorrect

Bonjour je souhaite executer une action ou appeler une procedure uniquement SI la cellule active est en [A1] ou [D1]. Mais je suis bloqué en ligne 7.
"Erreur(5) argument ou appel de procédure incorrect"

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim plage As Range, plage_depart As Range, cellule As Range   Sub procedure() Set plage_depart = Application.Union(Range("a1"), Range("d1"))   If Not Application.Intersect(cellule, plage_depart) Is Nothing Then MsgBox "la cellule active est en [A1] ou [D1]" 'SOUS procedure End If End Sub

---

Pouvez vous m'aider ?

cordialement

Bonjour,

1) Tu n'as pas défini Cellule.
2) Limites la portée des variables au strict nécessaire

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit Sub procedure() Dim plage As Range Set plage = Application.Union(Range("a1"), Range("d1")) If Not Application.Intersect(ActiveCell, plage) Is Nothing Then MsgBox "la cellule active est en " & ActiveCell.Address(False, False) 'SOUS procedure End If End Sub

---

merci beaucoup :P

J'ai crié victoire un peu vite....mais on y est presque...
Le Projet avance et je souhaite copier/coller des donnes grace à 2 procedures...
Il n y a pas d'erreurs, MAIS aucune données n'est recuperée dans la variable "Donnees" ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Option Explicit Dim donnees As Range   Sub COPIER() Dim donnees As Range 'Definition de la plage de DONNNESS à copier Set donnees = ThisWorkbook.ActiveSheet _ .Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column).Offset(4, 1)) End Sub   Sub COLLER() Dim plage As Range Set plage = Application.Union(Range("a1"), Range("d1")) ThisWorkbook.ActiveSheet.Protect Password:="", userinterfaceonly:=True COPIER   If Not Application.Intersect(ActiveCell, plage) Is Nothing Then donnees.Copy ActiveCell.PasteSpecial Paste:=xlPasteValues End If End Sub

---

En remarque à ton observation précédente, j'ai volontairement déclaré ma variable "Donnees" en dehors pour étendre sa portée à toutes les procédures du module ?

remarque activeCell n'est pas le meme en COPIER que en COLLER

RE,

Avec VBA, il est déconseillé d'utiliser Activesheet et Activecell
Il est très largement préférable de désigner clairement l'objet exemple Worksheets("Feuil1") ou Worksheets("Feuil1").Range("A1").
Pour copier, il vaut mieux éviter de passer par le presse-papier de Windows (Copy puis Paste ou PasteSpecial) :

Code:

---

1 2 3 4 5 6 7 8

Dim r As Range Dim c As Range Set r = Worksheets("Feuil1").Range("A1:D20") ' Plage source Set c = Worksheets("Feuil2").Range("B12") ' Cellule destination ' Pour tout copier : r.Copy Destination:=c ' Ou pour copier uniquement les valeurs : c.Resize(r.Rows.Count, r.Columns.Cont).Value = r.Value

---

merci pour la reponse , en fait plages(donnees source) on toujours la meme dimension donc la c'est simple.
par contre le point de depart de la plge à "COPIER"
et le point d'arrivée de la plage à "COLLER" sont varriable (d'ou le activeCell).
finallement j'ai resolu le probleme

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Option Explicit Dim donnees As Range   Sub COPIER() 'Definition de la plage de DONNNESS à copier Set donnees = ThisWorkbook.ActiveSheet _ .Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column).Offset(4, 1)) End Sub   Sub COLLER() Dim plage As Range Set plage = Application.Union(Range("a1"), Range("d1")) ThisWorkbook.ActiveSheet.Protect Password:="", userinterfaceonly:=True   If Not Application.Intersect(ActiveCell, plage) Is Nothing Then donnees.Copy ActiveCell.PasteSpecial Paste:=xlPasteValues End If End Sub   Sub event_on() Application.EnableEvents = True End Sub

---

Il fallait juste enlever le COPIER en ligne 16 puisque "Donnees" est déjà defini en SUB COPIER () !

encore merci !