Salade007
Messages postés76Date d'inscriptiondimanche 30 novembre 2003StatutMembreDernière intervention30 janvier 2019
-
18 déc. 2004 à 16:56
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
18 déc. 2004 à 18:47
voila ce que j ai traduit au plus simple!
je n arrive pas à trouver la bonne écriture de la ligne de selection de la cellule.
Qui pourrait m'aider!
Merci d'avance
Sub essai()
Dim i As Integer
Range("a2").Select
For i = 1 To 20
ActiveCell.Offset("1, & i").Range("a1").Select
Next i
End Sub
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 18 déc. 2004 à 18:47
Salut salade007
Je connais pas trop VBA, mais si, comme je le vois, les valeurs sont encadrées par des guillemets ", essaye ça :
ActiveCell.Offset("1, " & i ).Range("a1").Select
Vala
Jack
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)