Sélection de cellules variable

Résolu
cbauf Messages postés 4299 Date d'inscription   Statut Contributeur Dernière intervention   -  
cbauf Messages postés 4299 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un petit soucis :

Lors de l'execution de cette routine
Dans la cellule active et incrit "VRAI"


Sub Suite_Trans()
'
' Macro5 Macro
' Macro enregistrée le 31.08.2009 par cbauf
'
Dim PREM, DER As String

PREM = Worksheets("PRG").Range("V3") 'No de la première ligne de sélection
DER = Worksheets("PRG").Range("V4") 'No de la dernière ligne de sélection

ActiveCell.Offset(0, 0) = Range("A" & PREM & ":A" & DER).Select

Enf Sub


Comment éviter ce "VRAI" ?

Merci à tous de vos réponses

Version Ms 2000 Pro

3 réponses

JvDo Messages postés 1978 Date d'inscription   Statut Membre Dernière intervention   859
 
Bonjour,
tu affectes un torchon à une serviette.
d'abord, Activecell n'a pas besoin du offset(0,0), ensuite si tu veux récupérer l'adresse de la sélection sous-tendue par tes cellules V3:V4, il faut utiliser .Address au lieu de .Select, enfin, si tu veux sélectionner le range en question, oublie l'affectation à Activecell.
Bref, que veux-tu faire?
Cordialement
1
cbauf Messages postés 4299 Date d'inscription   Statut Contributeur Dernière intervention   786
 
Salut et Merci de ta réponse


Je suis une tâche en programmation ! ;(

Voila le debut de ma macro à l'enregistreur

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 02.09.2009 par cbauf'

'
Range("A16:A17").Select
Selection.AutoFill Destination:=Range("A16:A47")
Range("A16:A47").Select


End Sub

les numeros et le nombres de ligne changent à chaques opérations

C'est pour cela que je doit récupérer les "variables" PRE ET DER qui se trouvent dans la feuille

0
cbauf Messages postés 4299 Date d'inscription   Statut Contributeur Dernière intervention   786 > cbauf Messages postés 4299 Date d'inscription   Statut Contributeur Dernière intervention  
 
et j'ajoute :

Range("A16:A47").Select

Selection.filldown
End Sub

Ce qui me recopie le VRAI ...n Fois

Alors que dans la cellule initiale ,se trouvait une date
0
cbauf Messages postés 4299 Date d'inscription   Statut Contributeur Dernière intervention   786
 
UP
0
cbauf Messages postés 4299 Date d'inscription   Statut Contributeur Dernière intervention   786
 
Résolu,

Et merci de tes explications et conseils :D
Il Fallait écrire :

Sub Suite_Trans()
'
' Macro5 Macro
' Macro enregistrée le 31.08.2009 par cbauf
'
Dim PREM, DER As String

PREM = Worksheets("TST2").Range("V3") 'No de la première ligne de sélection
DER = Worksheets("TST2").Range("V4") 'No de la dernière ligne de sélection


Range("A" & PREM & ":A" & DER).Select


Selection.filldown


End Sub


Mais .Address à la place de .Select m' envoie MSG suivant :

Microsoft Visual Basic
---------------------------
Erreur de compilation:

Utilisation incorrecte de la propriété
---------------------------
OK Aide
---------------------------
0