Défintion d'une plage dans une macro

Dull

XLDnaute Barbatruc

• 8 Septembre 2008

• #2

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

Code:

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

 

Vote positif 0 Vote négatif

Z

ziton

Guest

• 8 Septembre 2008

• #3

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.

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 8 Septembre 2008

• #4

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

Re ziton

Ok regardes le fichier Joint et dis nous

Bonne Journée

 

Pièces jointes

• ziton.zip

  9.9 KB · Affichages: 33

Vote positif 0 Vote négatif

Z

ziton

Guest

• 8 Septembre 2008

• #5

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

Dull,

ça fonctionne a merveille. merci beaucoup.

Ziton

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 8 Septembre 2008

• #6

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 :

Code:

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

Cordialement

 

Vote positif 0 Vote négatif

Z

ziton

Guest

• 9 Septembre 2008

• #7

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

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 9 Septembre 2008

• #8

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

ziton à dit:

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

Cliquez pour agrandir...

Bonjour,

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

Cordialement

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 9 Septembre 2008

• #9

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

 

Pièces jointes

• Copie plage nommée sans vide si feuille sélectionnée.xls

  25 KB · Affichages: 53

Vote positif 0 Vote négatif