Sélection de cellules variable
Résolu
cbauf
Messages postés
5337
Statut
Contributeur
-
cbauf Messages postés 5337 Statut Contributeur -
cbauf Messages postés 5337 Statut Contributeur -
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
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 voir également:
- Sélection de cellules variable
- Verrouiller cellules excel - Guide
- Somme de plusieurs cellules excel - Guide
- Fusionner deux cellules excel - Guide
- Vba range avec variable ✓ - Forum VB / VBA
- Afficher cellules masquées excel - Forum Excel
3 réponses
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
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
Résolu,
Et merci de tes explications et conseils :D
Il Fallait écrire :
Mais .Address à la place de .Select m' envoie MSG suivant :
Microsoft Visual Basic
---------------------------
Erreur de compilation:
Utilisation incorrecte de la propriété
---------------------------
OK Aide
---------------------------
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
---------------------------
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
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