Sélection de cellules variable

Résolu
cbauf Messages postés 5337 Date d'inscription   Statut Contributeur Dernière intervention   -  
cbauf Messages postés 5337 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
--
A question détaillée, réponse Réponse précise !
 - Si question résolue, côcher l'option voulue :D
Configuration: Selon XP pro; xp Media; 98 SE; ou un boulier (non virolé) Depuis peu Mac OSx 10.5

3 réponses

  1. JvDo Messages postés 1924 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
    1. cbauf Messages postés 5337 Date d'inscription   Statut Contributeur Dernière intervention   803
       
      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
      1. cbauf Messages postés 5337 Date d'inscription   Statut Contributeur Dernière intervention   803 > cbauf Messages postés 5337 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
  2. cbauf Messages postés 5337 Date d'inscription   Statut Contributeur Dernière intervention   803
     
    UP
    0
  3. cbauf Messages postés 5337 Date d'inscription   Statut Contributeur Dernière intervention   803
     
    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