Sélection de cellules variable

Résolu/Fermé

cbauf Messages postés 4299 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 27 septembre 2024 - 1 sept. 2009 à 16:16
cbauf Messages postés 4299 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 27 septembre 2024 - 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

A voir également:

Sélection de cellules variable
Formule excel pour additionner plusieurs cellules - Guide
Verrouiller cellules excel - Guide
Concatener deux cellules excel - Guide
Vba range avec variable ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 858
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

cbauf Messages postés 4299 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 27 septembre 2024 786
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 Messages postés 4299 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 27 septembre 2024 786 > cbauf Messages postés 4299 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 27 septembre 2024
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

Réponse 2 / 3

cbauf Messages postés 4299 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 27 septembre 2024 786
2 sept. 2009 à 13:03

Réponse 3 / 3

cbauf Messages postés 4299 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 27 septembre 2024 786
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
---------------------------

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

VBA Excel : sélection d'une plage variable

Bonjour tout le monde,

Je dois sélectionner une plage de cellules en fonction d'une variable i, qui représente le numéro de la ligne voulue. Suite à des recherches sur ccm.net et d'autres forums, j'ai trouvé le code suivant :

Dim MaPlage As Range MaPlage = Range("A" & i & ":L" & i)

Je suis sur Excel 2003 et qqc cloche : VBA me renvoie "erreur d'éxecution 91 : variable objet ou variable de bloc With non définie". Vraiment, je ne comprends pas. Quelqu'un a une idée ?

Merci d'avance,
Pyanitsa.

Configuration: Windows XP / Firefox 3.6.3

vérifiez la variable d'environnement TEMP

Bonjour,
J'ai aussi le problème de ce message à chaque fois que je veux ouvrir Word 2007 version "Office Famille et Etudiant 2007 "
Utilisation de Windows XP SP2 , avec les mises à jour régulières ...

Lorsque je clique sur un fichier .doc pour l'ouvrir :
1- la fenêtre jaune de Office Word 2007 s'ouvre, puis une fenêtre m'annonce : "impossible de créer le fichier de travail . Vérifiez la variable d'environnement TEMP " je clique sur OK
2- Le cadre de Word s'installe à l'écran puis, de nouveau, la même fenêtre , avec le même message concernant le dossier TEMP .
De nouveau je clique sur OK et à ce moment là mon fichier demandé est affiché !
3- P...

erreur d'execution 9, l'indice n'appartient pas à la sélection

Bonjour,

j'ai un petit problème de code,
Bon en gros je voudrais coller les valeurs de certaines cellules de tous les onglets (89) du classeur "Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls" vers un autre classeur que j'ai nommé "BDD" sur l'onglet nommé BDD également.

voila le code que j ai écrit:

Sub Macro()

Dim i As Integer
Dim k As Integer
Dim ws As Worksheet

For i = 2 To 90
For j = 3 To 91
'
Workbooks("BDD").Sheets("BDD").Range("A" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("C12")

Excel: Retourner une sélection

Bonjour,

est-il possible sous Excel de retourner une sélection, c'est à dire:

de commencer par sélectionner toutes les cellules qu'on ne veut pas dans notre sélection finale, puis
d'inverser cette sélection grâce à la commande magique (dont je ne suis pas sûr qu'elle existe) pour obtenir la sélection que je voulais.

Pour ceux qui connaissent, ce serait l'équivalent du "inverser sélection" de Photoshop (Maj+Ctrl+I)

Voili voilà, merci tout le monde,

Matthieu.