sélection vers une autre feuille

[claudy]

Bonjour, et bonne année 2003

Sub SelectionPourPayement()

' une colonne, dans laquelle je sélectionne différentes valeurs
', je voudrais par macro sélectionner ces mêmes valeurs situées dans une autre feuille

For Each cel In Selection
Sheets("table et bar IN").Activate
Range("D" & cel.Value + 1).Select
Next
' a chaque fois, la boucle se termine avec une seule sélection( la derniere)

End Sub

Merci d'avance,
Claudy

 

[Valtau]

Plus simple et sans boucle

Sub selectionner()
Dim ADcellule as string

'Récupére l'adresse de la sélection dans une variable
'Même si la sélection est discontinue!
ADcellule = Selection.Address

'Sélectionne la feuille
Sheets("table et bar IN").Activate
'Les cellules souhaitées dans cette feuille
Range(ADcellule).Select

End Sub