Sélection de cellules variable
Résolu
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
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
-
ContributeurRé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
---------------------------
-
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-
ContributeurSalut 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
-
Contributeur@cbaufet 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
-
-
ContributeurUP
