Défintion d'une plage dans une macro

[ziton]

Bonjour,

Peut-on définir une étendue sur une autre feuille (ex: calcul) que la feuille qui active la macro ?

pour explication, ci-joint le code de ma macro :

Private Sub Worksheet_Activate() //feuille selectionnée = Avancement
Dim J As Long
Dim Numlig As Long
Numlig = 26
Dim Plage As Range
Set Plage = ThisWorkbook.Sheets("Calcul").Range("B1", [B65000].End(xlUp)) // Ca coince a ce niveau, mais je ne cromprends pas pourquoi
For J = 1 To Plage.Cells.Count Step 1
If Plage.Cells(J).Value <> "" Then
Sheets("Avancement").Cells(Numlig, 1) = Plage.Cells(J).Value
Numlig = Numlig + 1
End If
Next
End Sub

NB : ceci est ma première macro, réalisée grace à vos réponses et vos tutos. Un grand merci.

 

[Dull]

Re : Défintion d'une plage dans une macro

Salut ziton et Bienvenu, le Forum

Je te conseil de nommer ta Plage B1:B65000

Insertion/Nom/définir

Noms dans le Classeur = PLA par exemple
Fait référence à: =DECALER(Calcul!$B$1;;;NBVAL(Calcul!$B:$B))

et met ton code comme ceci

Private Sub Worksheet_Activate()
Dim Numlig As Long
Numlig = 26
Dim Plage As Range
Set Plage = ThisWorkbook.Sheets("Calcul").Range("[B]PLA[/B]") 
For J = 1 To Plage.Cells.Count Step 1
If Plage.Cells(J).Value <> "" Then
Sheets("Avancement").Cells(Numlig, 1) = Plage.Cells(J).Value
Numlig = Numlig + 1
End If
Next
End Sub

ça devrait marcher

Bonne Journée

 

[ziton]

Re : Défintion d'une plage dans une macro

Merci Dull pour ce retour.

J'ai regardé dans l'aide, mais je ne comprend pas comment utilisée ou déclarée la fonction DECALER.

 

[Dull]

Re : Défintion d'une plage dans une macro

Re ziton

Ok regardes le fichier Joint et dis nous

Bonne Journée

 

[ziton]

Re : Défintion d'une plage dans une macro

Dull,

ça fonctionne a merveille. merci beaucoup.

Ziton

 

[mécano41]

Re : Défintion d'une plage dans une macro

Bonjour,

Sinon, en nommant les plages de départ PlageCalc et d'arrivée PlageAv, ce code dans la feuille "Avancement" fait l'affaire :

Private Sub Worksheet_Activate()
Worksheets("Calcul").Range("PlageCalc").Copy Worksheets("Avancement").Range("PlageAv")
End Sub

Cordialement

 

[ziton]

Re : Défintion d'une plage dans une macro

Bonjour mécano41,

Je suis pas sur que ton code permette de supprimer les cellules vides. Je fait le test et je vous fait un retour dans la journée.

Ziton

 

[mécano41]

Re : Défintion d'une plage dans une macro

Bonjour mécano41,

Je suis pas sur que ton code permette de supprimer les cellules vides. Je fait le test et je vous fait un retour dans la journée.

Ziton

Bonjour,

Non, c'est juste une copie...je n'avais pas bien lu.

Cordialement

 

[mécano41]

Re : Défintion d'une plage dans une macro

Celui-ci supprime les vides ; il comporte deux plages nommées (différemment du précédent).

Cordialement