S
STéphane
Guest
'multi-sélection d'objets (forme, dessin, boutons de formulaires)
activesheet.shapes("Zone de Texte 1").select:activesheet.shapes("Zone de Texte 2").select replace:=false
'sélection d'un tableau sans sa ligne de titre
Set Tableau = Range("A1").CurrentRegion
Tableau(2, 1).Resize(Tableau.Rows.Count - 1, Tableau.Columns.Count).Select
bye
stephane
activesheet.shapes("Zone de Texte 1").select:activesheet.shapes("Zone de Texte 2").select replace:=false
'sélection d'un tableau sans sa ligne de titre
Set Tableau = Range("A1").CurrentRegion
Tableau(2, 1).Resize(Tableau.Rows.Count - 1, Tableau.Columns.Count).Select
bye
stephane