Posez votre question Signaler

Sélection de cellules variable [Résolu]

cbauf 2119Messages postés 31 mars 2008Date d'inscription 29 mai 2012Dernière intervention - Dernière réponse le 2 sept. 2009 à 15:39
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
Lire la suite 

Sélection de cellules variable »

5 réponses
Réponse
+1
moins plus
JvDo 623Messages postés 27 juillet 2005Date d'inscription 24 février 2012Dernière intervention 2 sept. 2009 à 13:22
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

 Ajouter un commentaire
cbauf- 2 sept. 2009 à 13:37
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

cbauf- 2 sept. 2009 à 15:12
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
Ajouter un commentaire
Réponse
+0
moins plus
cbauf 2119Messages postés 31 mars 2008Date d'inscription 29 mai 2012Dernière intervention 2 sept. 2009 à 13:03
UP

Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
cbauf 2119Messages postés 31 mars 2008Date d'inscription 29 mai 2012Dernière intervention 2 sept. 2009 à 15:39
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
---------------------------

Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « Sélection de cellules variable » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?